cvs commit: apache-site/dyn closer.cgi
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 ChangesPath
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.cgi1998/10/09 14:27:42 1.6
+++ closer.cgi1998/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];
cvs commit: apache-site/dyn closer.cgi
brian 98/10/09 07:27:42
Modified:dyn closer.cgi
Log:
should split on any whitespace, not just tabs. Also, don't display entries
that are commented out.
Revision ChangesPath
1.6 +2 -1 apache-site/dyn/closer.cgi
Index: closer.cgi
===
RCS file: /home/cvs/apache-site/dyn/closer.cgi,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- closer.cgi1997/07/02 11:10:05 1.5
+++ closer.cgi1998/10/09 14:27:42 1.6
@@ -24,8 +24,9 @@
$count = 0;
while(MIRRORS)
{
+ next if (/^#/, $_);
chomp;
- @AR = split (/\t/, $_);
+ @AR = split (/\s/, $_);
if(($cc eq $AR[1] || $sld...$tld eq $AR[1]) $AR[0] eq $method)
{
$LIST[$count] = $AR[2];
cvs commit: apache-site/dyn closer.cgi
coar97/07/02 04:10:06
Modified:dyn closer.cgi
Log:
Add knowledge of fifth field in mirror list data file, which
is a comment or geographical location to be displayed alongside
the URL. Fields are now explicitly TAB-delimited, not whitespace-
delimited, so that the comment field can contain spaces. If
the comment field is empty, no additional info is displayed.
Revision ChangesPath
1.5 +17 -9 apache-site/dyn/closer.cgi
Index: closer.cgi
===
RCS file: /export/home/cvs/apache-site/dyn/closer.cgi,v
retrieving revision 1.4
retrieving revision 1.5
diff -C3 -r1.4 -r1.5
*** closer.cgi1997/06/28 17:11:00 1.4
--- closer.cgi1997/07/02 11:10:05 1.5
***
*** 24,33
$count = 0;
while(MIRRORS)
{
! @AR = split;
if(($cc eq $AR[1] || $sld...$tld eq $AR[1]) $AR[0] eq $method)
{
$LIST[$count] = $AR[2];
$count++;
}
}
--- 24,35
$count = 0;
while(MIRRORS)
{
! chomp;
! @AR = split (/\t/, $_);
if(($cc eq $AR[1] || $sld...$tld eq $AR[1]) $AR[0] eq $method)
{
$LIST[$count] = $AR[2];
+ $LOC[$count] = $AR[4];
$count++;
}
}
***
*** 48,66
/H3
EOF
! print BCENTER;
while(1)
{
$url = $LIST[$i];
# $url .= dist/ if $method eq http;
! print EOF;
! A HREF=$url$LIST[$i]/ABR
! EOF
$i++;
$i = 0 if $i = $count;
last if $i == $start;
}
! print /CENTER/B;
}
}
--- 50,71
/H3
EOF
! print CENTER;
while(1)
{
$url = $LIST[$i];
# $url .= dist/ if $method eq http;
! print \nA HREF=\$url\STRONG$LIST[$i]/STRONG/A;
! if ($LOC[$i]) {
! print ($LOC[$i]);
! }
! print \n;
$i++;
$i = 0 if $i = $count;
last if $i == $start;
+ print BR;
}
! print /CENTER\n;
}
}
***
*** 99,108
{
print EOF;
! P ALIGN=centerUse one of the sites above or see the A
! HREF=../mirrors/full listing of download sites/A./P
! P ALIGN=CENTERBA HREF=../info/how-to-mirror.htmlHow do I become an
Apache mirror site?/A/B
PHR
--- 104,116
{
print EOF;
! P ALIGN=centerUse one of the sites above or see the
! A HREF=../mirrors/full listing of download sites/A./P
! P ALIGN=CENTER
! STRONGA
! HREF=../info/how-to-mirror.html
! How do I become an Apache mirror site?/A/STRONG
PHR
cvs commit: apache-site/dyn closer.cgi
marc97/06/28 10:11:00
Modified:dyn closer.cgi
Log:
Fix a broken URL; the change was missed when the directory structure
was changed.
Revision ChangesPath
1.4 +1 -1 apache-site/dyn/closer.cgi
Index: closer.cgi
===
RCS file: /export/home/cvs/apache-site/dyn/closer.cgi,v
retrieving revision 1.3
retrieving revision 1.4
diff -C3 -r1.3 -r1.4
*** closer.cgi1997/06/14 20:39:47 1.3
--- closer.cgi1997/06/28 17:11:00 1.4
***
*** 114,119
else
{
print EOF;
! A HREF=list.cgiSee full listing of download sites/A
EOF
}
--- 114,119
else
{
print EOF;
! A HREF=../mirrors/See full listing of download sites/A
EOF
}
