38df6f51c6
Yes, this is supposed to be a new top level in the repository. For the moment any changes to this area must be cleared by myself or Jordan. Once the kinks are worked out, the policy will probably be relaxed.
35 lines
692 B
Perl
Executable file
35 lines
692 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
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;
|