#!/usr/local/bin/perl
&cgi_init;
$row = $queryelt{"ROW"};
$col = $queryelt{"COL"};
$subject = $queryelt{"SUBJECT"};
$name = $queryelt{"NAME"};
$address = $queryelt{"ADDRESS"};
$text = $queryelt{"TEXT"};
print "Content-type: text/html\n";
if ($row =~ /./) {
if ($subject) {
$date = localtime();
open(FILE,">current/$row$col.html");
print FILE "
BABYLON TOWER
![](\"../../gfx/nnn1.gif\")
Contribution from: $name <$address>
Date: $date
$text
";
close(FILE);
print"Location: http://www.dds.nl/~n5mj/babylon/\n\n";
} else {
print"\n
Contribute a reaction...
![](\"../gfx/nnn1.gif\")
Contribute a reaction to the Babylon Tower of TV's
";
}
} else {
srand();
$x = int(rand(3))+1;
print"\nBABYLON TOWER
Babylon Tower
";
# read in all tv's in current tower
opendir(DIR,"current");
while ($e = readdir(DIR)) {
if ($e =~ /^([0-9])([0-9])/) {
$tv[$1][$2] = 1;
$n++;
}
}
closedir(DIR);
# read all towers
$towers=0;
opendir(DIR,".");
while ($e = readdir(DIR)) {
if ($e =~ /^tower/) {
$towers++;
}
}
closedir(DIR);
if ($n == 20) {
system("mv current tower$towers; mkdir current");
$towers++;
for ($r = 0; $r < 5; $r++) {
for ($c = 0; $c < 4; $c++) {
$tv[$r][$c] = 0;
}
}
}
print "";
for ($r = 0; $r < 5; $r++) {
print "\n";
for ($c = 0; $c < 4; $c++) {
print "";
if ($tv[$r][$c]) {
print "![](\"../gfx/$r$c.gif\") ";
} else {
print "![](\"../gfx/zwart.gif\") ";
}
print " | \n";
}
print "
\n";
}
print"
";
if ($towers) {
for ($tower = $towers - 1; $tower >= 0; $tower--) {
print "
";
for ($r = 0; $r < 5; $r++) {
print "\n";
for ($c = 0; $c < 4; $c++) {
print "| ";
print "";
print " | \n";
}
print "
\n";
}
print"
";
}
}
print "
![](\"../gfx/si_bi2.gif\")