#!/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 "


c4 | castro
"; print $cgi->end_html(); exit (0);