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

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

Update of /cvsroot/popcon/popularity-contest
In directory quantz:/tmp/cvs-serv32665

Modified Files:
	popcon.pl 
Log Message:
Convert Debian architecture name to port name.


Index: popcon.pl
===================================================================
RCS file: /cvsroot/popcon/popularity-contest/popcon.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- popcon.pl	8 Feb 2004 11:53:05 -0000	1.4
+++ popcon.pl	8 Feb 2004 14:12:21 -0000	1.5
@@ -324,7 +324,8 @@
 	print HTML "</pre><p>Statistics for architectures\n<pre>";
         for $f (grep { $_ ne 'unknown' } sort keys %arch)
         {
-                printf HTML "<a href=\"http://www.debian.org/ports/$f/\">%-16s</a> : %-10s\n",$f,$arch{$f};
+		my ($port)=split('-',$f);
+                printf HTML "<a href=\"http://www.debian.org/ports/$port/\">%-16s</a> : %-10s\n",$f,$arch{$f};
         }
         printf HTML "%-16s : %-10s\n","unknown",$arch{"unknown"};