X-Git-Url: http://git.onelab.eu/?p=vsys-scripts.git;a=blobdiff_plain;f=exec%2Fumount;fp=exec%2Fumount;h=f7c7fea84ce7f54794ed0ccdff38c8ebf286c05c;hp=0000000000000000000000000000000000000000;hb=ab8d503505c6c5c9343c48ca100f55682ec218f6;hpb=c8aca347ddb455f79b6daec831213c167d6385cb

diff --git a/exec/umount b/exec/umount
new file mode 100755
index 0000000..f7c7fea
--- /dev/null
+++ b/exec/umount
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+use strict;
+
+my $slicename=$ARGV[0];
+my $slice_dir="/vservers/$slicename/";
+my $localpath = <STDIN>;
+
+chomp($localpath);
+$localpath=~s/\.\.//g;
+
+$localpath=$slice_dir.$localpath;
+
+unless (-d $localpath) {
+	die("Localpath does not exist, please create it first.");
+}
+
+unless($localpath=~/\/?[\w\d]+\/[\w\d]*\/?/) {
+    die("$localpath is not a path");
+}
+
+my $mntcmd="/bin/umount $localpath";
+system($mntcmd);
+
+if ($?) {
+    print "Mount failed: $?";
+}