my $localpath = <STDIN>;
chomp($localpath);
-$localpath=~s/\.\.//g;
$localpath=$slice_dir.$localpath;
-unless (-d $localpath) {
- die("Localpath does not exist, please create it first.");
+my $pathtest;
+
+$pathtest='';
+while ($localpath=~/(\/?[\w\d\-_]+\/?)/g) {
+ $pathtest=$pathtest.$1;
}
-unless($localpath=~/\/?[\w\d]+\/[\w\d]*\/?/) {
- die("$localpath is not a path");
+if ($pathtest ne $localpath) {
+ die "$localpath is not a safe path";
}
my $mntcmd="/bin/umount $localpath";