chiark / gitweb /
Allow votes to be entered in upper case
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Mon, 1 Mar 2010 12:42:05 +0000 (12:42 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Mon, 1 Mar 2010 12:42:05 +0000 (12:42 +0000)
sballot/cgi

index d328b9b..b537dcc 100755 (executable)
@@ -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 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")