X-Git-Url: https://code.th-h.de/?p=usenet%2Fusevote.git;a=blobdiff_plain;f=uvvote.pl;h=5dd26ff6092576048959f755abd7fce51bff6168;hp=a86ef437dbfa0a848a6d6dc7dff875611400cabf;hb=a384e31e542e2520ebc1e2402a86fad5507b7da2;hpb=ac7e2c541a18c5c910548f5cddaf56502b6e51b0

diff --git a/uvvote.pl b/uvvote.pl
index a86ef43..5dd26ff 100644
--- a/uvvote.pl
+++ b/uvvote.pl
@@ -1,8 +1,8 @@
 #!/usr/bin/perl -w
 
 ###############################################################################
-# UseVoteGer 4.09 Wahldurchfuehrung
-# (c) 2001-2005 Marc Langer <uv@marclanger.de>
+# UseVoteGer 4.07 Wahldurchfuehrung
+# (c) 2001-2004 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
@@ -37,7 +37,7 @@ use UVtemplate;
 my $clean = 0;
 my %opt_ctl = ();
 
-print "\n$usevote_version Wahldurchfuehrung - (c) 2001-2005 Marc Langer\n\n";
+print "\n$usevote_version Wahldurchfuehrung - (c) 2001-2004 Marc Langer\n\n";
 
 # unknown parameters remain in @ARGV (for "help")
 Getopt::Long::Configure(qw(pass_through bundling));
@@ -123,7 +123,7 @@ if ($clean) {
   my $ext = time;
 
   opendir (TMP, $config{tmpdir});
-  my @tmpfiles = readdir (DIR);
+  my @tmpfiles = readdir (TMP);
   closedir (TMP);
   opendir (FERTIG, $config{archivedir});
   my @fertigfiles = readdir (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');
-  chomp($msgid) if ($msgid);
+  chomp($msgid) if defined($msgid);
 
   my @votes = ();              # the votes
   my @set;                     # interactively changed fields