From 2ffd50e69be8f5e17e8ac3f8735139af7316195a Mon Sep 17 00:00:00 2001 From: minima Date: Wed, 31 Dec 2003 16:04:12 +0000 Subject: [PATCH] add a modicum of security to the remote key get --- perl/DXDb.pm | 4 ++++ 1 file changed, 4 insertions(+) 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}) { -- 2.43.0