brian 98/10/10 12:25:22
Modified: dyn closer.cgi
Log:
I swear, sometimes perl just mystifies me. Change the "next" call
because for some reason it was rejecting everything. Fix the "split"
line because the fifth field in mirrors.list can have spaces in it.
Revision Changes Path
1.7 +2 -2 apache-site/dyn/closer.cgi
Index: closer.cgi
===================================================================
RCS file: /export/home/cvs/apache-site/dyn/closer.cgi,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- closer.cgi 1998/10/09 14:27:42 1.6
+++ closer.cgi 1998/10/10 19:25:21 1.7
@@ -24,9 +24,9 @@
$count = 0;
while(<MIRRORS>)
{
- next if (/^#/, $_);
+ next if (/^#/);
chomp;
- @AR = split (/\s/, $_);
+ @AR = split (/\s/, $_, 5);
if(($cc eq $AR[1] || $sld.".".$tld eq $AR[1]) && $AR[0] eq $method)
{
$LIST[$count] = $AR[2];
