contributors

   1 #!/usr/bin/perl
   2 # Copyright (C) 2006  Alex Schroeder <alex@emacswiki.org>
   3 #
   4 # This program is free software; you can redistribute it and/or modify
   5 # it under the terms of the GNU General Public License as published by
   6 # the Free Software Foundation; either version 2 of the License, or
   7 # (at your option) any later version.
   8 #
   9 # This program is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 # GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License
  15 # along with this program; if not, write to the
  16 #    Free Software Foundation, Inc.
  17 #    59 Temple Place, Suite 330
  18 #    Boston, MA 02111-1307 USA
  19 my $FS  = "\x1e";
  20 my %Total = ();
  21 my %Month = ();
  22 while (<STDIN>) {
  23   my ($ts, $pagename, $minor, $summary, $host, $username, $revision,
  24       $languages, $cluster)
  25     = split(/$FS/);
  26   my ($sec, $min, $hour, $mday, $mon, $year) = gmtime($ts);
  27   my $key = sprintf("%d-%02d", 1900 + $year, $mon + 1);
  28   # $username = 'Anon' unless $username;
  29   $Total{$key}++;
  30   $Month{$key}{$username}++ if $username;
  31 }
  32 print "Month   Total    Top Poster     Edits\n";
  33 for my $key (sort keys %Total) {
  34   my @posters = keys %{$Month{$key}};
  35   @posters = sort { $Month{$key}{$b} <=> $Month{$key}{$a} } @posters;
  36   my $top = shift @posters;
  37   printf("%s  %6d  %20s  %5d\n", $key, $Total{$key},
  38           $top, $Month{$key}{$top});
  39 }