#!/usr/bin/perl
# sam / 20010903
use CGI;
$cgi = new CGI;
@data = $cgi->param;
print $cgi->header;
print $cgi->start_html("C4: No Server found");
#print $cgi->dump;
if( defined($cgi->param("q"))) {
$suchpat = $cgi->param("q");
} else {
$suchpat = $cgi->param("MT");
};
print "Es wurde keine Seite (zu $suchpat) gefunden. ";
print $cgi->a({-href=>("http://www.google.de/search?hl=de&safe=off&q=".$suchpat)},"Google: ".$suchpat), $cgi->br;
print $cgi->a({-href=>("http://altavista.com/sites/search/web?q=".$suchpat."&pg=q&kl=XX&search=Search")},"Altavista: ".$suchpat), $cgi->br;
print $cgi->a({-href=>("http://65.165.234.120/cgi-bin/robot?srch=".$suchpat)},"Astalavista: ".$suchpat), $cgi->br;
print $cgi->a({-href=>("http://koeln.ccc.de/~drt/wiki.cgi?".$suchpat)},"C4Wiki: ".$suchpat), $cgi->br;
print "