Web pages, may I introduce you to CVS. CVS, these are the web pages.

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.

data/cgi/ftp.cgi

@@ -0,0 +1,35 @@
+#!/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;