[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Savannah-cvs] administration/lists stats.pl
From: |
Elfyn McBratney |
Subject: |
[Savannah-cvs] administration/lists stats.pl |
Date: |
Sat, 11 Sep 2004 22:18:19 -0400 |
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 {