5 my $slicename=$ARGV[0];
6 my $slice_dir="/vservers/$slicename/";
7 my $localpath = <STDIN>;
11 $localpath=$slice_dir.$localpath;
16 while ($localpath=~/(\/?[\w\d\-_]+\/?)/g) {
17 $pathtest=$pathtest.$1;
20 if ($pathtest ne $localpath) {
21 die "$localpath is not a safe path";
24 my $mntcmd="/bin/umount $localpath";
28 print "Mount failed: $?";