--- processmail/reminder.pl	2002/02/04 17:22:28	1.1
+++ processmail/reminder.pl	2002/02/04 17:32:41	1.2
@@ -1,6 +1,6 @@
 #!/usr/local/bin/perl
 #
-#$Id: reminder.pl,v 1.1 2002/02/04 17:22:28 boris Exp $
+#$Id: reminder.pl,v 1.2 2002/02/04 17:32:41 boris Exp $
 #
 # Читаем файл и шлем e-mail
 #
@@ -10,7 +10,7 @@
 
     use Getopt::Std; 
 
-$usage = 'reminder.pl $Revision: 1.1 $, $Date: 2002/02/04 17:22:28 $'. "\n".
+$usage = 'reminder.pl $Revision: 1.2 $, $Date: 2002/02/04 17:32:41 $'. "\n".
 "Usage: reminder.pl [-d] [-m mail_file]  [-o results] \n";
 
 require 'parameters.pl';
@@ -50,7 +50,8 @@ select OUTFILE;
 &printheader;
 foreach $team (keys %teams)
 {
-    print  "$team\n";
+    my $num=$teams{$team}->{'numletters'};
+    print  "$team [$num]\n";
 }
 
 &printfooter;