root-context/exec/umount

   1 #!/usr/bin/perl
   2
   3 use strict;
   4
   5 my $slicename=$ARGV[0];
   6 my $slice_dir="/vservers/$slicename/";
   7 my $localpath = <STDIN>;
   8
   9 chomp($localpath);
  10
  11 $localpath=$slice_dir.$localpath;
  12
  13 my $pathtest;
  14
  15 $pathtest='';
  16 while ($localpath=~/(\/?[\w\d\-_]+\/?)/g) {
  17     $pathtest=$pathtest.$1;
  18 }
  19
  20 if ($pathtest ne $localpath) {
  21     die "$localpath is not a safe path";
  22 }
  23
  24 my $mntcmd="/bin/umount $localpath";
  25 system($mntcmd);
  26
  27 if ($?) {
  28     print "Mount failed: $?";
  29 }