#!/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;