#!/usr/bin/perl use warnings; use strict; use v5.10; use CGI; our @names; open my $fh, "names.txt" or die "$!"; while (<$fh>) { chomp; push @names, $_; } close $fh; our @tokens; open $fh, "tokens.txt" or die "$!"; while (<$fh>) { chomp; push @tokens, $_; } close $fh; my $q = CGI->new; print $q->header(-charset => 'utf-8'); print < brmelect Web Ballot

brmelect Web Ballot

You can find your token on your paper ballot.
Keep your token secret until the vote is closed!
Udržujte svůj token v tajnosti, dokud není hlasování uzavřeno!

Enter preference numbers for individual candidates. You may skip some candidates (which you absolutely do not wish to elect), but you must select at least one candidate. You must start numbering your candidates with number 1, all candidates must have a unique number and you must not skip any number.

2011/5 VII.8: Účastníci Valné hromady označí na volebních lístcích pořadí kandidátů připsáním čísla z nepřerušené řady přirozených čísel začínající jedničkou ke jménu kandidáta. Hlasovací lístek, který neobsahuje žádného označeného kandidáta nebo obsahuje alespoň dvě stejná čísla připsaná k různým kandidátům nebo takový, na kterém nejsou použita čísla z nepřerušené řady přirozených čísel, nebo žádný kandidát není označen číslem jedna, je neplatný.

EOT if ($q->param('go')) { my $token = $q->param('token'); unless (grep { $_ eq $token } @tokens) { print qq#

ERROR: Unknown token specified. Please go back and try again.

#; exit; } my $votestr; unless ($q->param('invalid')) { my @indices; # XXX: We ignore $indices[0] for simplicity, we start indexing from 1 here! my %prefs; my $n_set = 0; my $over = 0; for my $i (1..@names) { my $pref = $q->param($i); if (not defined $pref or $pref eq '') { $over = 1; next; } if ($over > 0) { print qq#

Number $i has a candidate but some higher preference does not, which is not permitted. Please go back and try again.

#; exit; } if (not grep { $_ eq $pref } @names) { print qq#

Number $i has an unknown candidate $pref, are you trolling? Please go back and try again.

#; exit; } if (exists $prefs{$pref}) { print qq#

Candidate $pref is selected as both number $prefs{$pref} and $i, this is not permitted. Please go back and try again.

#; exit; } $prefs{$pref} = $i; $indices[$i] = $pref; } if (not keys %prefs) { print qq#

You must assign a preference to at least one candidate. Please go back and try again.

#; exit; } $votestr = join(',', $token, map { $prefs{$_} or 0 } @names); } else { $votestr = join(',', $token, map { 'x' } @names); } print STDERR "$votestr\n"; open $fh, '>>/home/pasky/votes.txt' or die "$!"; print $fh "$votestr\n"; close $fh; (my $rvotestr = $votestr) =~ s/^.*?,//; print qq#

Success. Your vote ($rvotestr) has been saved.

You may still revise your vote before the closing call if you wish, but do NOT cast a paper ballot at this point anymore!

\n#; exit; } print <

Token:

EOT