projects
/
usenet
/
usevote.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update documentation.
[usenet/usevote.git]
/
uvcfv.pl
diff --git
a/uvcfv.pl
b/uvcfv.pl
old mode 100644
(file)
new mode 100755
(executable)
index
e5a9691
..
275da9b
--- a/
uvcfv.pl
+++ b/
uvcfv.pl
@@
-1,8
+1,8
@@
#!/usr/bin/perl -w
###############################################################################
#!/usr/bin/perl -w
###############################################################################
-# UseVoteGer 4.
07
Personalisierte Wahlscheine
-# (c) 2001-20
0
4 Marc Langer <uv@marclanger.de>
+# UseVoteGer 4.
12
Personalisierte Wahlscheine
+# (c) 2001-20
1
4 Marc Langer <uv@marclanger.de>
#
# This script package is free software; you can redistribute it and/or
# modify it under the terms of the GNU Public License as published by the
#
# This script package is free software; you can redistribute it and/or
# modify it under the terms of the GNU Public License as published by the
@@
-35,7
+35,7
@@
use UVtemplate;
my %opt_ctl = ();
my %opt_ctl = ();
-print "\n$usevote_version Personalisierte Wahlscheine - (c) 2001-200
4
Marc Langer\n\n";
+print "\n$usevote_version Personalisierte Wahlscheine - (c) 2001-200
5
Marc Langer\n\n";
# unknown parameters remain in @ARGV (for "help")
Getopt::Long::Configure(qw(pass_through bundling));
# unknown parameters remain in @ARGV (for "help")
Getopt::Long::Configure(qw(pass_through bundling));
@@
-152,9
+152,9
@@
sub process_request {
# check for suspicious addresses
foreach my $element (@bad_addr) {
if ($voter_addr =~ /^$element/) {
# check for suspicious addresses
foreach my $element (@bad_addr) {
if ($voter_addr =~ /^$element/) {
- my (@votes, @set, $ballot_id); # irrelevant, but necessary for UVmenu::menu()
+ my (@votes, @set, $ballot_id
, $voting
); # irrelevant, but necessary for UVmenu::menu()
my @errors = ('SuspiciousAccountBallot');
my @errors = ('SuspiciousAccountBallot');
- my $res = UVmenu::menu(\@votes, \@header, $body, \$voter_addr, \$voter_name, \$ballot_id, \@set, \@errors);
+ my $res = UVmenu::menu(\@votes, \@header, $body, \$voter_addr, \$voter_name, \$ballot_id, \
$voting, \
@set, \@errors);
# "Ignore": don't deliver a ballot
return 0 if ($res eq 'i');
# "Ignore": don't deliver a ballot
return 0 if ($res eq 'i');
This page took
0.011138 seconds
and
4
git commands to generate.