Restore Script.pm to master's version

[spider.git] / perl / Script.pm

diff --git a/perl/Script.pm b/perl/Script.pm
index c18de6304bacf954c378fcdbd14330984e0b9f24..716ee46e84d1f9655d02a5659609b79aeeb55685 100644 (file)
--- a/perl/Script.pm
+++ b/perl/Script.pm
@@ -22,7 +22,7 @@ my $base = "$main::root/scripts";
 sub clean
 {
        my $s = shift;
-       $s =~ s/([-\w\d_]+)/$1/g;
+       $s =~ s/[^-\w\.]//g;
        return $s;
 }
 
@@ -118,26 +118,5 @@ sub lines
 sub erase
 {
        my $self = shift;
-       my $call = clean($self->{call});
-
-       my $fn;
-       my $try;
-
-       $try = "$base/" . clean(lc $self->call);
-       if (-w $try) {
-               $fn = $try;
-       } else {
-               $try = "$base/" . clean(uc $self->call);
-               if (-w $try) {
-                       $fn = $try;
-               }
-       }
-
-       if ($fn && -w $fn) {
-               unless (unlink $fn) {
-                       return ($self->msg('m22'. $call)); 
-               }
-               return ($self->msg('m20', $call));
-       }
-       return ($self->msg('e3', "unset/startup", $call));
+       unlink $self->{fn};
 }