Received: (from majordom@localhost)
by hyperreal.com (8.8.5/8.8.5) id XAA03895;
Fri, 27 Jun 1997 23:45:13 -0700 (PDT)
Received: from DECUS.Org (Topaz.DECUS.Org [192.67.173.1])
by hyperreal.com (8.8.5/8.8.5) with ESMTP id XAA03890
for ; Fri, 27 Jun 1997 23:45:10 -0700 (PDT)
Received: from Master.DECUS.Org (master.process.com) by DECUS.Org (PMDF
V4.2-13
#18511) id <01IKL9EQK1DS8WY7YO@DECUS.Org>; Sat, 28 Jun 1997 02:44:51 EDT
Date: Sat, 28 Jun 1997 02:07:50 -0400
From: coar@decus.org (Rodent of Unusual Size)
Subject: [PATCH] to apache-site/dyn/closer.cgi for enhancements
To: New-HTTPd@apache.org, Coar@decus.org
Message-id: <97062802074999@decus.org>
X-VMS-To: NH
X-VMS-Cc: COAR
Content-transfer-encoding: 7BIT
Sender: new-httpd-owner@apache.org
Precedence: bulk
Reply-To: new-httpd@apache.org
At last! cvs diff managed to get something from taz!
The closer.cgi script generates some fairly alarming HTML (such as
newlines embedded in HREF values); this fixes that. It also
provides for a fifth field in the mirrors.list file; if present,
it's interpreted as a comment (such as a geographic location) and
displayed next to the link in parens, such as
http://www.apache.org/dist/ (Under the Bay, Ca, USA)
(it isn't part of the anchor). If the fifth field isn't there, the
display looks just like it does now.
To make this work, I had to restrict the field delimiter to actual
hard tabs, not just whitespace.
#ken :-)}
Index: closer.cgi
===================================================================
RCS file: /export/home/cvs/apache-site/dyn/closer.cgi,v
retrieving revision 1.3
diff -c -r1.3 closer.cgi
*** closer.cgi 1997/06/14 20:39:47 1.3
--- closer.cgi 1997/06/28 06:36:55
***************
*** 24,33 ****
$count = 0;
while()
{
! @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()
{
! 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 ****
EOF
! print "";
while(1)
{
$url = $LIST[$i];
# $url .= "dist/" if $method eq "http";
! print <$LIST[$i]
! EOF
$i++;
$i = 0 if $i >= $count;
last if $i == $start;
}
! print "";
}
}
--- 50,71 ----
EOF
! print "";
while(1)
{
$url = $LIST[$i];
# $url .= "dist/" if $method eq "http";
! print "\n$LIST[$i]";
! if ($LOC[$i]) {
! print " ($LOC[$i])";
! }
! print "\n";
$i++;
$i = 0 if $i >= $count;
last if $i == $start;
+ print "
";
}
! print "\n";
}
}
***************
*** 99,108 ****
{
print <Use one of the sites above or see the full listing of download sites.
! How do I become an Apache mirror site?
--- 104,116 ----
{
print <Use one of the sites above or see the
! full listing of download sites.
!
! How do I become an Apache mirror site?