X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FScript.pm;h=716ee46e84d1f9655d02a5659609b79aeeb55685;hb=157f14220c0cbc875729be41a3e3a2acd18f51e1;hp=1e94ce595325e61cb69bd4c14ceb140330100751;hpb=f45d04e999b798f21ddcb887cf1bb9f3eb3a27b4;p=spider.git

diff --git a/perl/Script.pm b/perl/Script.pm
index 1e94ce59..716ee46e 100644
--- 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};
 }