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 (-d $localpath) {
  15         die("Localpath does not exist, please create it first.");
  16 }
  17
  18 unless($localpath=~/\/?[\w\d]+\/[\w\d]*\/?/) {
  19     die("$localpath is not a path");
  20 }
  21
  22 my $mntcmd="/bin/umount $localpath";
  23 system($mntcmd);
  24
  25 if ($?) {
  26     print "Mount failed: $?";
  27 }