#!/usr/bin/perl
$e=$ENV{'QUERY_STRING'};
open(F,"files.txt")||die 'error opening files.txt';
print "Content-Type: text/html\n\n";
print '
DHLP - DownloadsDatei-Download von www.DHLP.de
Lade dir die gewünschte Datei von einem der folgenden Server herunter:
';
while(){
print "$_
" if ($_ =~ /$e/i);
}
print '
Sollte ein Link "tot" sein, dann benutz einfach einen anderen!
Als kleinen Dank kannst du ja mal auf einen (oder besser noch: alle) WERBEBANNER KLICKEN! Das kostet dich NUR EINE SEKUNDE und bringt mir ein paar Cent! Ein klitze kleiner Klick und ich bin schon glücklich :-)!
Ich bedanke mich schonmal im Voraus dafür!
';
close(F);