[Popcon-commits] cvs commit to popularity-contest by ballombe

[popcon-commits@lists.alioth.debian.org]

Update of /cvsroot/popcon/popularity-contest
In directory haydn:/tmp/cvs-serv10285

Modified Files:
	popcon.pl 
Log Message:
sync server-side scripts with popcon.debian.org:
 Address bug #238004 in popcon.pl w.r.t. wording of per-maintainer
 reports.


Index: popcon.pl
===================================================================
RCS file: /cvsroot/popcon/popularity-contest/popcon.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- popcon.pl	18 Feb 2004 11:51:39 -0000	1.8
+++ popcon.pl	14 Apr 2004 16:11:34 -0000	1.9
@@ -98,9 +98,30 @@
   my %sum;
   @list = sort {$pkg->{$b}->{$order}<=> $pkg->{$a}->{$order} || $a cmp $b } @list;
   $winner{"$sec/$order"}=$list[0];
-  my $m=($sec eq "maint"?"":"(maintainer)");
   open DAT , "| tee $popcon/$sec/by_$order | gzip -c > $popcon/$sec/by_$order.gz";
-  print DAT <<"EOF";
+  if ($sec eq "maint")
+  {
+    print DAT <<"EOF";
+#Format
+#   
+#<name> is the developer name;
+#
+#The fields below are the sum for all the packages maintained by that
+#developer:
+#
+#<inst> is the number of people who installed this package;
+#<vote> is the number of people who use this package regularly;
+#<old> is the number of people who installed, but don't use this package
+#      regularly;
+#<recent> is the number of people who upgraded this package recently;
+#<no-files> is the number of people whose entry didn't contain enough
+#           information (atime and ctime were 0).
+#rank name                            inst  vote   old recent no-files
+EOF
+  }
+  else 
+  {
+    print DAT <<"EOF";
 #Format
 #   
 #<name> is the package name;
@@ -111,8 +132,9 @@
 #<recent> is the number of people who upgraded this package recently;
 #<no-files> is the number of people whose entry didn't contain enough
 #        information (atime and ctime were 0).
-#rank name                            inst  vote   old recent no-files  $m
+#rank name                            inst  vote   old recent no-files (maintainer)
 EOF
+  }
   $format="%-5d %-30s".(" %5d"x($#fields+1))." %-32s\n";
   my $rank=0;
   for $p (@list)