37 lines
772 B
Perl
Executable file
37 lines
772 B
Perl
Executable file
#!/usr/bin/perl -T
|
|
#
|
|
# $FreeBSD: www/en/cgi/ftp.cgi,v 1.3 2000/04/03 08:45:51 phantom Exp $
|
|
|
|
require './cgi-lib.pl';
|
|
require './cgi-style.pl';
|
|
|
|
|
|
$newloc = "http://www.FreeBSD.org/";
|
|
|
|
print &html_header("FTP Download");
|
|
|
|
open (MIRRORS, "ftp.mirrors");
|
|
|
|
print "<h2>Download <em>$ARGV[0]</em> from one of the following mirror sites:</h2>\n";
|
|
|
|
$oldplace = "";
|
|
|
|
while (<MIRRORS>) {
|
|
if (/.*:.*:/ && !/^#/) {
|
|
($place, $site, $root) = split(':',$_);
|
|
chop $root; $root =~ s/ *$//;
|
|
if ($place ne $oldplace) {
|
|
if ($oldplace ne "") {
|
|
print "</ul>\n";
|
|
}
|
|
print "<strong>$place</strong>\n<ul>\n";
|
|
$oldplace = $place;
|
|
}
|
|
print "<li><a href='ftp://${site}${root}/$ARGV[0]'>$site</a></li>\n";
|
|
}
|
|
}
|
|
|
|
close (MIRRORS);
|
|
|
|
print "</ul>\n";
|
|
print &html_footer;
|