From 2ffd50e69be8f5e17e8ac3f8735139af7316195a Mon Sep 17 00:00:00 2001
From: minima <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.34.1