#!/usr/bin/perl -w
###############################################################################
-# UseVoteGer 4.07 Wahldurchfuehrung
-# (c) 2001-2004 Marc Langer <uv@marclanger.de>
+# UseVoteGer 4.09 Wahldurchfuehrung
+# (c) 2001-2005 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
my $clean = 0;
my %opt_ctl = ();
-print "\n$usevote_version Wahldurchfuehrung - (c) 2001-2004 Marc Langer\n\n";
+print "\n$usevote_version Wahldurchfuehrung - (c) 2001-2005 Marc Langer\n\n";
# unknown parameters remain in @ARGV (for "help")
Getopt::Long::Configure(qw(pass_through bundling));
# 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);
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