X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXDb.pm;h=a088866c5873e675586b4a72c8c93c6565170e70;hb=2ffd50e69be8f5e17e8ac3f8735139af7316195a;hp=2122234bf8fe9d8c8a6025d73707a3e49d698ab9;hpb=5a06cd7853e8bff86a0f17854c0791bb3f85c395;p=spider.git

diff --git a/perl/DXDb.pm b/perl/DXDb.pm
index 2122234b..a088866c 100644
--- a/perl/DXDb.pm
+++ b/perl/DXDb.pm
@@ -156,6 +156,10 @@ sub getkey
 	my $key = uc shift;
 	my $value;
 
+	# massage the key
+	$key =~ s/[\@\$\&\%\*]+//g;
+	$key =~ s/^[\.\/]+//g;
+	
 	# make sure we are open
 	$self->open;
 	if ($self->{localcmd}) {