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

[pere at cvs.alioth.debian.org]

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

Modified Files:
	popcon.pl 
Log Message:
Make it easier to switch path to the ftp mirror.


Index: popcon.pl
===================================================================
RCS file: /cvsroot/popcon/popularity-contest/popcon.pl,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- popcon.pl	7 Jun 2005 12:27:59 -0000	1.17
+++ popcon.pl	23 Jul 2005 08:13:12 -0000	1.18
@@ -2,6 +2,7 @@
 
 $results="../popcon-mail/results";
 $popcon="../www";
+my $mirrorbase "/org/ftp.root/debian";
 
 sub htmlheader
 {
@@ -207,7 +208,7 @@
 }
 mark "Reading legacy packages...";
 
-for $file (glob("/org/ftp.root/debian/dists/testing/*/binary-*/Packages"),glob("/org/ftp.root/debian/dists/sid/*/binary-*/Packages"))
+for $file (glob("$mirrorbase/dists/testing/*/binary-*/Packages"),glob("$mirrorbase/dists/sid/*/binary-*/Packages"))
 {
   open AVAIL, "$file";
   while(<AVAIL>)