File : boardread.pl. ID : 0807
Skin : Default | Sons-of-obsidian | Sunburst | Highlighter | Frame
#!/usr/bin/perl
require 'parse.pl';
&parse_form;
print "Content-type:text/html\n\n"; 
if (!$v{'id'}) { &breakerror('ข้อมูลผิดพลาด โปรดกลับไปตรวจสอบ'); }
$filename = join '.',$v{'id'},'txt';
open(myfile,$filename);
@r = <myfile>;
close(myfile);      
$r[0] =~ s/</&lt;/g; 
$r[0] =~ s/>/&gt;/g; 
@rec = split (/:/,$r[0]);
print "<font color=#808080>$rec[2] IP:$rec[5] ";          
if ($rec[4] eq "on") { print " [ans]"; }
@stat = stat $filename;
@t = localtime($stat[10]+50000);
print "Size:$stat[7] Byte Create: $t[3]/",$t[4]+1,"/",$t[5]+2443;
print " Time: $t[2]:$t[1]:$t[2]</font>";
if ($rec[3] > "0") { 
 print "<img src=http://online.mirabilis.com/scripts/online.dll?icq=$rec[3]&img=5>"; 
}	
print "<br>Subject : $rec[1] <hr noshade color=#0000ff>";
$tot = @r;
for $i (1..$tot-1) { print $r[$i],"<br>"; }
print "<hr>";
print "<form action=boardreply.pl method=post>ตอบกะทู้ใหม่<br>";
print "<input type=hidden name=idstart value=$rec[0]>";
print "หัวเรื่อง <input name=subj maxlength=40><br>";
print "<textarea name=message rows=6 cols=60></textarea><br>";
print "e-mail <input name=email maxlength=40 value=yourname\@thaiabc.com>";
print "icq <input name=icq maxlength=10><br>";
print "<input type=submit>";
print "</form>";