new layout - make room for slice-space stuff

[vsys-scripts.git] / root-context / exec / umount

diff --git a/root-context/exec/umount b/root-context/exec/umount
new file mode 100755 (executable)
index 0000000..7bde900
--- /dev/null
+++ b/root-context/exec/umount
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+
+use strict;
+
+my $slicename=$ARGV[0];
+my $slice_dir="/vservers/$slicename/";
+my $localpath = <STDIN>;
+
+chomp($localpath);
+
+$localpath=$slice_dir.$localpath;
+
+my $pathtest;
+
+$pathtest='';
+while ($localpath=~/(\/?[\w\d\-_]+\/?)/g) {
+    $pathtest=$pathtest.$1;
+}
+
+if ($pathtest ne $localpath) {
+    die "$localpath is not a safe path";
+}
+
+my $mntcmd="/bin/umount $localpath";
+system($mntcmd);
+
+if ($?) {
+    print "Mount failed: $?";
+}