#!/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 "<font face='Arial, hevetica' size=2>Es wurde keine Seite (zu <i>$suchpat</i>) gefunden.<p>";
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 "</font><p><hr size=1 width=75% noshade><center><font face='Arial, hevetica' size=1><a href='http://koeln.ccc.de'>c4</a> | <a href='http://castro.labor.koeln.ccc.de'>castro</a></font></center>";
print $cgi->end_html();
exit (0);