|
#!/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/</</g; $r[0] =~ s/>/>/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>"; |