use ModerationCommon;
+readsettings();
+
sub fail ($) {
my ($m)= @_;
print header(-status=>500), start_html('Secret ballot - error'),
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")