Allow votes to be entered in upper case

diff --git a/sballot/cgi b/sballot/cgi
index d328b9b979e86ddb5f44135fa74548cc55d381f1..b537dcc393681b74bab4aec4df264c937fca6263 100755 (executable)
--- a/sballot/cgi
+++ b/sballot/cgi
@@ -60,7 +60,7 @@ if (length $vote or length $ident or length $pw) {
     fail('bad password') if !defined $pw or $pw =~ m/[^0-9a-z]/;
     my $pwhash= hash($pw);
 
     fail('bad password') if !defined $pw or $pw =~ m/[^0-9a-z]/;
     my $pwhash= hash($pw);
 

-    fail('bad vote') if $vote =~ m/[^0-9a-z]/;
+    fail('bad vote') if $vote =~ m/[^0-9a-z]/i;

     $vote =~ y/a-z/A-Z/;
 
     fail("invalid vote - consult administrator's instructions")
     $vote =~ y/a-z/A-Z/;
 
     fail("invalid vote - consult administrator's instructions")