#!/usr/bin/perl

$smburl = `pbpaste`;
$smburl =~ s"\n" "g;
if ($smburl =~ m"^\\\\([^\\]*)\\([^\\]*)\\(.*)") {
  my ($server, $share, $path) = ($1, $2, $3);
  if (! -d "/Volumes/$share/") {
    system("osascript -e 'mount volume \"smb://$server/$share\"'");
  }
  $path =~ s"\s*$"";
  $path =~ s"\\"\/"g;
  $path =~ s"\s"\\ "g;
  system("open /Volumes/$share/$path");
}