From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Mon, 1 Mar 2010 12:42:05 +0000 (+0000)
Subject: Allow votes to be entered in upper case
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~webstump/git?p=modbot-mtm.git;a=commitdiff_plain;h=a4080d76062049b31b87dca2b4d8859070930153

Allow votes to be entered in upper case
---

diff --git a/sballot/cgi b/sballot/cgi
index d328b9b..b537dcc 100755
--- 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 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")