my $slicename=$ARGV[0];
my $already_mounted_testfile = "/tmp/$slicename"."_nfsmounted";
+my $slice_dir="/vservers/$slicename/";
+
if (-f $already_mounted_testfile) {
die("Sorry, only one successful NFS mount allowed per slice!");
}
my $remotepath = <STDIN>;
my $localpath = <STDIN>;
chomp($localpath);
+chomp($remotepath);
$localpath=~s/\.\.//g;
+$localpath=$slice_dir.$localpath;
+
unless (-d $localpath) {
die("Localpath does not exist, please create it first.");
}
die("The remote path $nfspath does not seem to be right.");
}
+$mntcmd="/bin/mount $remotepath $localpath";
+system($mntcmd);
+
+if ($?) {
+ print "Mount failed: $?";
+}
+else {
+ open FIL, ">$already_mounted_testfile";
+ print FIL "$remotepath $localpath";
+ close FIL;
+}