[Savannah-cvs] administration/lists stats.pl

[Elfyn McBratney]

CVSROOT:        /cvsroot/administration
Module name:    administration
Branch:         
Changes by:     Elfyn McBratney <address@hidden>        04/09/12 02:12:59

Modified files:
        lists          : stats.pl 

Log message:
        .

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/administration/administration/lists/stats.pl.diff?tr1=1.2&tr2=1.3&r1=text&r2=text

Patches:
Index: administration/lists/stats.pl
diff -u administration/lists/stats.pl:1.2 administration/lists/stats.pl:1.3
--- administration/lists/stats.pl:1.2   Sun Sep 12 02:06:04 2004
+++ administration/lists/stats.pl       Sun Sep 12 02:12:59 2004
@@ -29,6 +29,11 @@
 my ($file, %stats);
 $file = shift @ARGV || die "Usage: $prog [input-file]\n";
 &stats_parse($file, \%stats);
+
+foreach (keys %stats) {
+    printf "%s:\n\t%d\n\n", $_, $stats{$_}{'count'};
+}
+
 print Data::Dumper->Dump([\%stats], ['stats']);
 
 sub my_trim {