From: minima <minima>
Date: Wed, 31 Dec 2003 16:04:12 +0000 (+0000)
Subject: add a modicum of security to the remote key get
X-Git-Tag: R1_51~2
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=2ffd50e69be8f5e17e8ac3f8735139af7316195a;p=spider.git

add a modicum of security to the remote key get
---

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}) {