--- processmail/reminder.pl	2005/02/15 19:27:51	1.3
+++ processmail/reminder.pl	2008/03/24 16:01:47	3.1
@@ -1,6 +1,6 @@
 #!/usr/local/bin/perl
 #
-#$Id: reminder.pl,v 1.3 2005/02/15 19:27:51 boris Exp $
+#$Id: reminder.pl,v 3.1 2008/03/24 16:01:47 boris Exp $
 #
 # Читаем файл и шлем e-mail
 #
@@ -10,7 +10,7 @@
 
     use Getopt::Std; 
 
-$usage = 'reminder.pl $Revision: 1.3 $, $Date: 2005/02/15 19:27:51 $'. "\n".
+$usage = 'reminder.pl $Revision: 3.1 $, $Date: 2008/03/24 16:01:47 $'. "\n".
 "Usage: reminder.pl [-d] [-r round]  [-o results] \n";
 
 require 'parameters.pl';
@@ -29,7 +29,7 @@ $round=0;
 if ($opt_r)
 {
     $round=$opt_r;
-    foreach my $file (split /\s+/, $FILES[$opt_r]) {
+    foreach my $file ( @{$FILES[$opt_r]} ) {
 	open (INFILE, $file);
 	readmail(\%teams);
 	close (INFILE);
@@ -41,6 +41,7 @@ else
 }
 readmail(\%teams);
 close(INFILE);
+
 #
 # Пишем мейл
 #
@@ -62,3 +63,7 @@ foreach $team (keys %teams)
 
 &printfooter;
 
+#
+# На всякий случай проверяем на наличие команд с дублирующимися номерами.
+#
+check_dup_numbers(\%teams);