sub warp { my $whereto = shift; print <<X; }
HTTP/1.0 200 Look at this!
Content-Type: text/html
Refresh: 1; URL=$whereto

<script language="JavaScript"> <!--

// fade script ver0.1 by Kouichirou\@Eto.com 1996/02/20

function makearray(n) {
    this.length = n;
    for(var i = 1; i <= n; i++)
        this[i] = 0;
    return this;
}

hexa = new makearray(16);
for(var i = 0; i < 10; i++)
    hexa[i] = i;
hexa[10]="a"; hexa[11]="b"; hexa[12]="c";
hexa[13]="d"; hexa[14]="e"; hexa[15]="f";

function hex(i) {
    if (i < 0)
        return "00";
    else if (i > 255)
        return "ff";
    else
        return "" + hexa[Math.floor(i/16)] + hexa[i%16];
}

function setbgColor(r, g, b) {
    var hr = hex(r); var hg = hex(g); var hb = hex(b);
    document.bgColor = "#"+hr+hg+hb;
}

function fade(sr, sg, sb, er, eg, eb, step) {
    for(var i = 0; i <= step; i++) {
        setbgColor(
        Math.floor(sr * ((step-i)/step) + er * (i/step)),
        Math.floor(sg * ((step-i)/step) + eg * (i/step)),
        Math.floor(sb * ((step-i)/step) + eb * (i/step)));
    }
}

function go() {
	fade(0,0,0,		0x66,0x44,0x22,	22)
	fade(0x66,0x44,0x22,	0x22,0x44,0x66, 44)
}

// --> </script>

<title>$site warping...</title>
<body bgcolor=#000000 text=#eeeeee onLoad="go()">

<div align=center>
<table height=99%><tr><th>

<pre>



<blink><font size=9>
				  
				  
	TELEPORT ACTIVATED	  
				  
				  
</font></blink>

dns + http + html
magik by the symLynX
</pre>

</th></tr></table>
</div>
X

1;
