#!/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";
<body bgcolor="#FFFFFF" link="#6074A0" alink="#8AA7C3" vlink="#8AA7C3" text="#000000">
<font face="Arial, Helvetica" size="3">
<table border=0 cellspacing=0 cellpadding=0>
<tr>
<td WIDTH=1><br>&nbsp;<br>&nbsp;<br>&nbsp;</td>
<td WIDTH=1 BGCOLOR="#000000">&nbsp;</td>
<td WIDTH=1>&nbsp;</td>
<td WIDTH=1 BGCOLOR="#000000">&nbsp;</td>
<td WIDTH=1>&nbsp;</td>
<td WIDTH=1 BGCOLOR="#000000">&nbsp;</td>
<td WIDTH=1>&nbsp;</td>
<td WIDTH=1 BGCOLOR="#8AA7C3">&nbsp;</td>
<td WIDTH=1>&nbsp;</td>
<td WIDTH=1 BGCOLOR="#000000">&nbsp;&nbsp;</td>
<td WIDTH=1>&nbsp;</td>
<td WIDTH=1 BGCOLOR="#000000">&nbsp;</td>
<td WIDTH=1>&nbsp;</td>
<td WIDTH=1 BGCOLOR="#000000">&nbsp;</td>
<td WIDTH=1>&nbsp;</td>
<td WIDTH=1 BGCOLOR="#000000">&nbsp;</td>
<td WIDTH=1>&nbsp;</td>
<td WIDTH=1 BGCOLOR="#000000">&nbsp;&nbsp;</td>
<td WIDTH=1>&nbsp;</td>
<td WIDTH=1 BGCOLOR="#000000">&nbsp;</td>
<td WIDTH=1>&nbsp;</td>
<td WIDTH=1 BGCOLOR="#000000">&nbsp;&nbsp;</td>
<td WIDTH=1>&nbsp;</td>
<td WIDTH=1 BGCOLOR="#000000">&nbsp;</td>
<td WIDTH=1>&nbsp;</td>
<td WIDTH=1 BGCOLOR="#000000">&nbsp;</td>
<td WIDTH=1>&nbsp;</td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td WIDTH=90 BGCOLOR="#1F1F54">&nbsp;</td>
<td WIDTH=10>&nbsp;</td>
<td WIDTH=100 BGCOLOR="#2E518A">&nbsp;</td>
<td WIDTH=10>&nbsp;</td>
<td WIDTH=110 BGCOLOR="#6074A0">&nbsp;</td>
<td WIDTH=10>&nbsp;</td>
<td WIDTH=120 BGCOLOR="#8AA7C3">&nbsp;</td>
</tr>
<tr>
<td VALIGN=top>
<font face="Arial, Helvetica" size=2>8&nbsp;</font></td>
<td BGCOLOR="#000000">&nbsp;</td>
<td>&nbsp;</td>
<td BGCOLOR="#000000">&nbsp;</td>
<td>&nbsp;</td>
<td COLSPAN=8 VALIGN="top" ALIGN="center">
<font face="Arial, Helvetica" size=2>713900&nbsp;</font></td>
<td BGCOLOR="#000000">&nbsp;</td>
<td>&nbsp;</td>
<td BGCOLOR="#000000">&nbsp;</td>
<td>&nbsp;</td>
<td COLSPAN=6 ALIGN="center" VALIGN="top"><font face="Arial, Helvetica" size=2>001825&nbsp;</font></td>
<td BGCOLOR="#000000">&nbsp;</td>
<td>&nbsp;</td>
<td BGCOLOR="#000000">&nbsp;</td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td VALIGN="top" ALIGN="center">
<font face="Arial, Helvetica" size=-1>CHAOS</font></td>
<td>&nbsp;</td>
<td VALIGN="top" ALIGN="center">
<font face="Arial, Helvetica" size=-1>COMPUTER</font></td>
<td>&nbsp;</td>
<td VALIGN="top" ALIGN="center">
<font face="Arial, Helvetica" size=-1>
&nbsp;&nbsp;&nbsp;CLUB&nbsp;&nbsp;&nbsp;&nbsp;</font></td>
<td>&nbsp;</td>
<td VALIGN="top" ALIGN="center">
<font face="Arial, Helvetica" size=-1>COLOGNE</font></td>
</tr>

<tr>
<td>&nbsp;<br><br><br></td>
</tr>

<tr>
<td>&nbsp;</td>
<td>&nbsp;</td>
<td COLSPAN=25 VALIGN=top>
<font face='Arial, hevetica' size=1><b><a href='http://koeln.ccc.de'>c4</a><br>
<a href='http://www.ccc.de'>CCC</a>
</b></font>
</td><td>&nbsp;</td><td colspan="7">
EOH
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?search=".$suchpat)},"C4Wiki: ".$suchpat), $cgi->br;
print "<form onSubmit='location.href=this.url.value;return false;'><input type='text' name='url' value='http://".$suchpat."' size='35' maxlength='64'></form>";
print << "EOFOOT";
</td></tr>
</table>

<center>
<table border=0>
<tr>
<td WIDTH=10 BGCOLOR="#1F1F54">&nbsp;</td>
<td WIDTH=1></td>
<td WIDTH=15 BGCOLOR="#2E518A">&nbsp;</td>
<td WIDTH=1></td>
<td WIDTH=20 BGCOLOR="#6074A0">&nbsp;</td>
<td WIDTH=1></td>
<td WIDTH=25 BGCOLOR="#8AA7C3">&nbsp;</td>
<td WIDTH=1></td>
<td align=left><font face="Arial, Helvetica" size=-2>
(K) CHAOS COMPUTER CLUB COLOGNE. All Rights reversed.
</font></td>
</tr>
<tr>
<td align=center COLSPAN=10>
<font face="Arial, Helvetica" size=-1 color="#6074A0">
<b>[ <a href="/index.html?showlinks=yep#showlinks">INCOMING LINKS</a> | 
<a HREF="http://koeln.ccc.de/">HOME</a> ]</b></font>
</td>
</tr>
</table>
EOFOOT
print $cgi->end_html();
exit (0);

