#!/usr/bin/perl -w

use CGI qw/:standard/;

$fil = "data/chattere.txt";
$path = "images/chattere";
open(DH,$fil);

@chattere = <DH>;

close(DH);

print header,start_html(-style=>{'src'=>'style.css'} );

# der skal vises et billede, skiftevis i højre og venstre side
$side = "left";
$side2 = "right";

print "<div align=center cl ass=beskeder>\n";
print "<div s tyle=\"width: 50%;\" cl ass=beskeder>\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 " <div class=beskeder style=\"text-align: left; vertical-align: top;\">\n";
		print "  <a href=\"$path/$im1\" target=\"_blank\"><img src=\"$path/$t1\" alt=\"$nick før\" style=\"float: left; clear: left; margin-top: 5px; margin-right: 5px\"></a>\n";
		print "  <a href=\"$path/$im2\" target=\"_blank\"><img src=\"$path/$t2\" alt=\"$nick efter\" style=\"float: right; margin-top: 2px; margin-left: 5px\"></a>\n";
		print " <span style=\"font-weight: bolder\">$nick</span>\n";
		print " <hr style=\"clear: both; visibility: hidden\">\n";
		print " </div>\n";
#		print "<br style=\"clear:both\">\n";
		if ($side eq "left") { $side = "right"; $side2 = "left"; }
		else { $side = "left"; $side2 = "right"; }
	}
}
print "</div>";
print "</div>";

print end_html;