whitelisting $form{path} to one of two options

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@70 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 1 insertions, 4 deletions

diff --git a/menu.pl b/menu.pl
index 69090246..bad0a4f1 100755
--- a/menu.pl
+++ b/menu.pl
@@ -102,10 +102,7 @@ $SIG{__DIE__} = sub { $form->error($_[0]) };
 $myconfig{dbpasswd} = unpack 'u', $myconfig{dbpasswd};
 map { $form->{$_} = $myconfig{$_} } qw(stylesheet timeout) unless ($form->{type} eq 'preferences');
 
-$form->{path} =~ s/\.\.\///g;
-if ($form->{path} !~ /^bin\//) {
-	$form->error($locale->text('Invalid path!')."\n");
-}
+if ($form{path} ne 'bin/lynx'){ $form{path} = 'bin/mozilla';}	
 
 # did sysadmin lock us out
 if (-f "$userspath/nologin") {