#!/usr/local/bin/perl
#
# Aminet Download Utility
# (c)1996 Mark Rigby-Jones for mrjsw
# mark.rigby-jones@keble.oxford.ac.uk
# http://users.ox.ac.uk/~kebl0206/
#
# Usage:
# http://some.site.net/cgi-bin/safeperl/username/aminet?dir.subdir[&filename[&filename[&...]]]
# Parse the input
$query = $ENV{QUERY_STRING};
@query = split('&', $query);
$dir = shift(@query);
$dir =~ s|\.|/|;
# Output the top of the HTML document
print(<<"BACK_TO_PERL");
Content-type: text/html
Aminet Download
Aminet Download
This page will allow you to download the requested file(s) from any of the full aminet mirrors. Pick the site which is closest to
you. You may need to shift-click on the links to force your browser to download the file properly.
BACK_TO_PERL
# Do links for each of the aminet sites
&link("ftp.wustl.edu","Washington University in St.Louis (USA)");
&link("ftp.netnet.net","NetNet (USA)");
&link("ftp.amigalib.com","AmigaLib (USA)");
&link("ftp.doc.ic.ac.uk","SunSITE, Imperial College (UK)");
&link("ftp.uni-paderborn.de","Universität-GH Paderborn (Germany)");
&link("ftp.luth.se","Luleå University (Scandanavia)");
&link("ftp.unina.it","Universita' degli Studi di Napoli (Italy)");
#&link("ftp.eunet.ch","EUnet (Switzerland)");
#&link("ftp.livewire.com.au","LiveWire (Australia)");
# Output the bottom of the HTML document
print(<<"BACK_TO_PERL");
