X-Git-Url: https://code.th-h.de/?p=usenet%2Fusevote.git;a=blobdiff_plain;f=uvcfv.pl;h=a053e77544012b3f35c37f0bec207b398876e1ae;hp=e5a96915df5d0572f3a0653ded1936967ee0ecee;hb=075e6efe35c3b77e0d4d2d6a868a12f99f075270;hpb=a384e31e542e2520ebc1e2402a86fad5507b7da2

diff --git a/uvcfv.pl b/uvcfv.pl
old mode 100644
new mode 100755
index e5a9691..a053e77
--- a/uvcfv.pl
+++ b/uvcfv.pl
@@ -1,8 +1,8 @@
 #!/usr/bin/perl -w
 
 ###############################################################################
-# UseVoteGer 4.07 Personalisierte Wahlscheine
-# (c) 2001-2004 Marc Langer <uv@marclanger.de>
+# UseVoteGer 4.11 Personalisierte Wahlscheine
+# (c) 2001-2012 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
@@ -35,7 +35,7 @@ use UVtemplate;
 
 my %opt_ctl = ();
 
-print "\n$usevote_version Personalisierte Wahlscheine - (c) 2001-2004 Marc Langer\n\n";
+print "\n$usevote_version Personalisierte Wahlscheine - (c) 2001-2005 Marc Langer\n\n";
 
 # 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/) {
-        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 $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');