#!/usr/bin/perl -w
$fil = "data/chattere.txt";
$path = "images/chattere";
open(DH,$fil);
@chattere =
;
close(DH);
print "Content-type: text/html\n\n";
print "\n";
print " | Førbillede | | Efterbillede |
|---|
\n";
foreach(@chattere) {
chomp($_);
if ($_ !~ /^#/) {
my ($t1,$im1,$t2,$im2,$nick) = split("::",$_);
if ($t1 eq "") { $t1 = "kommer.jpg"; }
if ($t2 eq "") { $t2 = "kommer.jpg"; }
if ($im1 eq "") { $im1 = "kommer.jpg"; }
if ($im2 eq "") { $im2 = "kommer.jpg"; }
print " \n";
print " \n";
print " ![\"$nick](\"$path/$t1\") \n";
print " | \n";
print " $nick | \n";
print " \n";
print " ![\"$nick](\"$path/$t2\") \n";
print " | \n";
print "
\n";
}
}
print "
\n";
