--- processmail/reminder.pl	2008/03/24 16:01:47	3.1
+++ processmail/reminder.pl	2013/10/11 15:39:35	3.2
@@ -1,6 +1,6 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 #
-#$Id: reminder.pl,v 3.1 2008/03/24 16:01:47 boris Exp $
+#$Id: reminder.pl,v 3.2 2013/10/11 15:39:35 boris Exp $
 #
 # Читаем файл и шлем e-mail
 #
@@ -10,7 +10,7 @@
 
     use Getopt::Std; 
 
-$usage = 'reminder.pl $Revision: 3.1 $, $Date: 2008/03/24 16:01:47 $'. "\n".
+$usage = 'reminder.pl $Revision: 3.2 $, $Date: 2013/10/11 15:39:35 $'. "\n".
 "Usage: reminder.pl [-d] [-r round]  [-o results] \n";
 
 require 'parameters.pl';
@@ -55,12 +55,18 @@ else
 }
 select OUTFILE;
 &printheader;
+my $numletters=0;
 foreach $team (keys %teams)
 {
     my $num=$teams{$team}->{'numletters'};
     print  "$team [$num]\n";
+    $numletters += $num;
 }
 
+print "\n------------------\n";
+printf("Всего команд: %3d\n", scalar keys %teams);
+printf("Всего писем:  %3d\n", $numletters);
+
 &printfooter;
 
 #