diff --git a/en/cgi/dosendpr.cgi b/en/cgi/dosendpr.cgi index 46133583e4..4b2247d9ec 100755 --- a/en/cgi/dosendpr.cgi +++ b/en/cgi/dosendpr.cgi @@ -8,7 +8,7 @@ # GNU General Public License Version 2. # (http://www.gnu.ai.mit.edu/copyleft/gpl.html) # -# $FreeBSD: www/en/cgi/dosendpr.cgi,v 1.22 2005/07/14 11:26:17 ceri Exp $ +# $FreeBSD: www/en/cgi/dosendpr.cgi,v 1.23 2005/11/06 22:07:23 ceri Exp $ require "html.pl"; @@ -101,6 +101,7 @@ unless (flock (DB_FH, LOCK_EX | LOCK_NB)) { } $codeentered = $cgi_data{'code-confirm'}; +$codeentered =~ s/.*/\U$&/; # Turn input uppercase $currenttime = time(); if (defined($codeentered) && $codeentered && $db_hash{$codeentered} && (($currenttime - $expiretime) <= $db_hash{$codeentered})) { diff --git a/en/cgi/query-pr.cgi b/en/cgi/query-pr.cgi index d00d950824..320653af5e 100755 --- a/en/cgi/query-pr.cgi +++ b/en/cgi/query-pr.cgi @@ -1,5 +1,5 @@ #!/usr/bin/perl -T -# $FreeBSD: www/en/cgi/query-pr.cgi,v 1.49 2005/11/07 10:43:19 ceri Exp $ +# $FreeBSD: www/en/cgi/query-pr.cgi,v 1.50 2005/11/09 21:38:31 fenner Exp $ $ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin"; @@ -38,7 +38,7 @@ if ($opt_p) { print " from the image below: \n"; print "

\n"; print "\n\n"; @@ -75,6 +75,7 @@ foreach $randomcode (keys %db_hash) { } } +$codeentered =~ s/.*/\U$&/; # Turn input uppercase $currenttime = time(); if (defined($codeentered) && $codeentered && $db_hash{$codeentered} && (($currenttime - $expiretime) <= $db_hash{$codeentered})) { @@ -251,7 +252,7 @@ if (! $codeok ) { print "\n"; print "\n"; print "\n";