better argument checking

This commit is contained in:
Wolfram Schneider 2000-11-29 13:39:37 +00:00
parent db8c6d905a
commit 1b334d6405
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=8440

View file

@ -1,4 +1,4 @@
#!/usr/bin/perl #!/usr/bin/perl -T
# #
# Send-pr perl script to send a pr. # Send-pr perl script to send a pr.
# #
@ -8,7 +8,7 @@
# GNU General Public License Version 2. # GNU General Public License Version 2.
# (http://www.gnu.ai.mit.edu/copyleft/gpl.html) # (http://www.gnu.ai.mit.edu/copyleft/gpl.html)
# #
# $FreeBSD$ # $FreeBSD: www/en/cgi/dosendpr.cgi,v 1.2 2000/04/03 08:45:50 phantom Exp $
require "html.pl"; require "html.pl";
@ -26,7 +26,7 @@ sub prerror {
&cgi_form_in(); &cgi_form_in();
$gndb = $cgi_data{'gndb'}; $gndb = $cgi_data{'gndb'};
if (-e "$gndb.def") if ($gndb =~ /^[a-z]+$/ && -e "$gndb.def")
{ require "$gndb.def"; } { require "$gndb.def"; }
else else
{ &prerror("gndb problem"); } { &prerror("gndb problem"); }