#!/usr/bin/perl # sam / 20011102 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 { if( defined($cgi->param("MT"))) { $suchpat = $cgi->param("MT"); } else { $suchpat = "koeln.ccc.de" } }; print << "EOH";

713900

001825

CHAOS

COMPUTER

CLUB

COLOGNE

c4
CCC

EOH 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?search=".$suchpat)},"C4Wiki: ".$suchpat), $cgi->br; print "

"; print << "EOFOOT";

								(K) CHAOS COMPUTER CLUB COLOGNE. All Rights reversed.
[ INCOMING LINKS \| HOME ]

EOFOOT print $cgi->end_html(); exit (0);