Removed debugging line
[vsys.git] / factory / nfsmount
index 3f0222d..8efff6b 100755 (executable)
@@ -5,6 +5,8 @@ use strict;
 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!");
 }
@@ -12,8 +14,11 @@ if (-f $already_mounted_testfile) {
 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.");
 }
@@ -33,3 +38,14 @@ if ($nfspath!~/^(((\.\.){1}\/)*|(\/){1})?(([a-zA-Z0-9]*)\/)*([a-zA-Z0-9]*)+$/) {
        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;
+}