From:
[email protected]
tag 251435 patch
thanks
Hi,
the attached patch makes popcon.pl create a "maintainers" subdirectory
with per-maintainer statistics.
ciao,
ema
--
Questo � il domani di cui ti preoccupavi ieri. E ora sai perch�.
--- /home/ema/debian/packages/popularity-contest-1.24/popcon.pl 2004-06-18 23:09:30.000000000 +0200
+++ popcon.pl 2004-08-16 23:38:56.000000000 +0200
@@ -107,6 +107,8 @@
{
my ($sec,$order,$pkg,@list) = @_;
my %sum;
+
+ $sec =~ s/(\'|\")/\\$1/g;
@list = sort {$pkg->{$b}->{$order}<=> $pkg->{$a}->{$order} || $a cmp $b } @list;
$winner{"$sec/$order"}=$list[0];
open DAT , "| tee $popcon/$sec/by_$order | gzip -c > $popcon/$sec/by_$order.gz";
@@ -273,6 +275,34 @@
}
make_sec "maint";
make_by ("maint", $_, \%maintpkg, @maints) for (@fields);
+
+{
+ open HTML , "> $popcon/maintainers/index.html";
+ &htmlheader;
+ printf HTML ("<p>Per-maintainer statistics sorted by fields\n <pre>\n");
+ for $maintainer (@maints)
+ {
+ my @list = grep {$maint{$_} eq $maintainer} @pkgs;
+ $maintainer =~ s/ /_/g;
+ make_sec "maintainers/$maintainer";
+ make_by ("maintainers/$maintainer", $_, \%pkg, @list) for (@fields);
+ }
+
+ opendir SEC,"$popcon/maintainers";
+ for $dir (sort re