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 $localpath=~s/\.\.//g;
  11
  12 $localpath=$slice_dir.$localpath;
  13
  14 unless($localpath=~/\/?[\w\d]+\/[\w\d]*\/?/) {
  15     die("$localpath is not a path");
  16 }
  17
  18 my $mntcmd="/bin/umount $localpath";
  19 system($mntcmd);
  20
  21 if ($?) {
  22     print "Mount failed: $?";
  23 }