#!/usr/bin/env perl

#Mount Windows shares on Probe using Samba

#WRJF 2010 Jul  5 New, based on my smbmount.csh
#WRJF 2010 Jul  6 Check for unrecognized logname; cleaned up

my %names = qw/funnell rfunne nima nmafto2 brian bgarie zinan zhe4 hamid hmotal mathieu mcharl33 ningnan nwang16 eric ezhang1/;

do_mount("//probe.campus.mcgill.ca/probeshare", "probeShare");
do_mount("//probe.campus.mcgill.ca/biomedusers", "probe");
exit;

sub do_mount {
    $logname = $ENV{'LOGNAME'};
    $smbname = $names{$logname};
    if ($smbname eq "")
    { print "Unrecognized username <$logname>\n";
    exit;
  }

    $service = $_[0];
    $mountpt = "/home/$logname/$_[1]";

    unless (-d $mountpt)
    { $mkdir_cmd = "mkdir $mountpt";
      @args = $mkdir_cmd;
      print "Creating mount point $mountpt\n";
      system @args;
  }

    print "Mounting $service\n    at $mountpt for $smbname\n";
    $options = "-o workgroup=campus,username=$smbname";
    @args = "smbmount $service $mountpt $options";
    print "cmd=@args\n";
    system @args;
}