add a modicum of security to the remote key get

diff --git a/perl/DXDb.pm b/perl/DXDb.pm
index 2122234bf8fe9d8c8a6025d73707a3e49d698ab9..a088866c5873e675586b4a72c8c93c6565170e70 100644 (file)
--- 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}) {