projects
/
usenet
/
usevote.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Change placeholders in usevote.tpl.cfg
[usenet/usevote.git]
/
uvvote.pl
diff --git
a/uvvote.pl
b/uvvote.pl
index
5dd26ff
..
72a366e
100644
(file)
--- a/
uvvote.pl
+++ b/
uvvote.pl
@@
-1,8
+1,8
@@
#!/usr/bin/perl -w
###############################################################################
#!/usr/bin/perl -w
###############################################################################
-# UseVoteGer 4.0
7
Wahldurchfuehrung
-# (c) 2001-200
4
Marc Langer <uv@marclanger.de>
+# UseVoteGer 4.0
9
Wahldurchfuehrung
+# (c) 2001-200
5
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
@@
-37,7
+37,7
@@
use UVtemplate;
my $clean = 0;
my %opt_ctl = ();
my $clean = 0;
my %opt_ctl = ();
-print "\n$usevote_version Wahldurchfuehrung - (c) 2001-200
4
Marc Langer\n\n";
+print "\n$usevote_version Wahldurchfuehrung - (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));
@@
-122,9
+122,9
@@
if ($clean) {
# normally unixtime is sufficient, if it is not unique append our PID
my $ext = time;
# normally unixtime is sufficient, if it is not unique append our PID
my $ext = time;
- opendir (
TMP
, $config{tmpdir});
- my @tmpfiles = readdir (
TMP
);
- closedir (
TMP
);
+ opendir (
DIR
, $config{tmpdir});
+ my @tmpfiles = readdir (
DIR
);
+ closedir (
DIR
);
opendir (FERTIG, $config{archivedir});
my @fertigfiles = readdir (FERTIG);
closedir (FERTIG);
opendir (FERTIG, $config{archivedir});
my @fertigfiles = readdir (FERTIG);
closedir (FERTIG);
@@
-216,7
+216,7
@@
sub process_vote {
my @header = split(/\n/, $entity->stringify_header);
my $head = $entity->head;
my $msgid = $head->get('Message-ID');
my @header = split(/\n/, $entity->stringify_header);
my $head = $entity->head;
my $msgid = $head->get('Message-ID');
- chomp($msgid) if
defined
($msgid);
+ chomp($msgid) if ($msgid);
my @votes = (); # the votes
my @set; # interactively changed fields
my @votes = (); # the votes
my @set; # interactively changed fields
This page took
0.011202 seconds
and
4
git commands to generate.