#!/usr/bin/perl
use CGI qw(:standard);
$inputdata=param("URL");
require LWP::UserAgent;
use HTTP::Request::Common;
$ua = LWP::UserAgent->new;
$res = $ua->request(GET $inputdata);
open(TEMP, "> temp.txt");
print TEMP $res->content;
close TEMP;
open(DATA, ">> data.txt");
print DATA $inputdata."\n";
close DATA;
$page = "temp.txt";
$dummyimage = "dummyimage.gif";
open(IMAGEDATA, "< $page");
$dummy1 = 0;
while (read IMAGEDATA, $char, 1)
{
$data[$dummy1] = ord $char;
$dummy1 = $dummy1 + 1;
}
print "Content-type:text/html\n\n";
print "\n";
print "\n";
print "\n";
print "HTMLdna - The genetic code for $inputdata<\/title>\n";
print "<style type=\"text\/css\">";
print "<\!\-\-";
print "\.text \{";
print "font\-family\: Verdana\, Arial\, Helvetica\, sans-serif\;";
print "font\-size\: 7pt\;";
print "color\: \#333333\;\}";
print "\.headtext \{";
print "font\-family\: Verdana\, Arial\, Helvetica\, sans-serif\;";
print "font\-size\: 20pt\;";
print "color\: \#333333\;\}";
print "\-\-\>";
print "<\/style>";
print "<\/head>\n";
print "<body bgcolor=\"\#9999CC\">\n";
print "<table cellpadding=\"5\" cellspacing=\"0\"><tr><td align=\"left\" valign=\"top\" nowrap><img src=\"HTMLdna.gif\" width=\"284\" height=\"107\"><br><span class=\"headtext\"><strong>HTMLdna<\/strong><\/span><\/td><td width=\"100\%\">\ \;<\/td><\/tr><tr><td><span class=\"text\">Resource analyzed: $inputdata<\/span><\/td><td align=\"right\"><span class=\"text\">Scroll horizontally <img src=\"blinkingarrow.gif\"><\/span><\/td><\/tr><\/table>";
$orizon = 300;
$gain = 1;
$n = 6;
$lastleft = 0;
$endcycle = int((scalar @data)/$n);
for ($dummy2=0;$dummy2<=$endcycle;$dummy2++)
{
$h = $gain*$data[$n*$dummy2];
$k = $gain*$data[$n*$dummy2+1];
$top = $orizon-($h/2);
$left = $lastleft+$k;
$lastleft = $left;
print "<div id\=\"".$dummy2."\" style\=\"position:absolute; left:".$left."px; top:".$top."px; z-index:".$data[$n*$dummy2+2]."\">";
print "<table cellpadding=\"0\" cellspacing=\"0\"><tr><td bgcolor=\"\#".findcolor($data[$n*$dummy2+3]).findcolor($data[$n*$dummy2+4]).findcolor($data[$n*$dummy2+5])."\">";
print "<img src=\"".$dummyimage."\" width=\"".$k."\" height=\"".$h."\" border=\"1\">";
print "<\/td><\/tr><\/table>";
print "<\/div>";
}
#print "<div id=\"last\" style=\"position:absolute; left:15px; top:400px; z-index:1\"><img src=\"".$dummyimage."\" width=\"".$left."\" height=\"1\" border=\"0\"><br><br><span class=\"text\">".join("\ \;",@data)."<\/span><\/div>";
print "<\/body>\n";
print "<\/html>\n";
sub findcolor ($c)
{
if ($_[0]<=20) {return "00";} elsif ($_[0]<=40) {return "33";} elsif ($_[0]<=60) {return "66";} elsif ($_[0]<=80) {return "99";} elsif ($_[0]<=100) {return "cc";} else {return "ff";}
}