#!/usr/bin/perl 
use CGI':standard'; 
 
open (HEADER, "<data/header.dat"); 
@header = <HEADER>; 
close (HEADER); 
open (FOOTER, "<data/footer.dat"); 
$footer = <FOOTER>; 
close (FOOTER); 
 
$number = param('post'); 
($thread,$ext) = split(/\./,$number); 
 
print "Content-type: text/html\n\n"; 
print "@header"; 
print "<a href='reply.pl?thread=$thread'>Click here to reply to this thread.</a><span class='blah'>BLAH!</span><br>"; 
print "<table width=75% border=0>"; 
opendir (POSTS, "data/posts"); 
while (defined($file = readdir POSTS)) { 
	if ($file =~ m/thread$thread/) { 
	open (FILE, "<data/posts/$file"); 
	@post = <FILE>; 
	close (FILE); 
	$subject = $post[1]; 
	$datetime = $post[2]; 
	$poster = $post[3]; 
	$message = $post[4]; 
	$number = $file; 
	$number =~ s/.post//; 
	print "<tr bgcolor='darkslateblue'><td width=100><font color='white'>$poster</font></td><td><font color='white'>$subject</font></td></tr>"; 
	print "<tr bgcolor='slategreen'><td>$datetime</td><td>$message</td></tr>"; 
	} 
} 
closedir (POSTS); 
print "</table>"; 
print "<br>"; 
print "$footer";