boardview.pl
#!/usr/local/bin/perl
# ปรับปรุง 28 กรกฎาคม 2545
# Version สำหรับ lovelampang.com และเปิดให้คนลำปางนำไปใช้ได้
############################################################
# เพื่อนำ 10 กะทู้ล่าสุดไปแสดง
# <iframe src=http://www.thaiall.com/lovelampang/board/board10.pl height="205" width="500" marginwidth="0" marginheight="0" vspace="0" hspace="0" frameborder="0"></iframe>
# เพิ่มข่าว หรือแสดงความเห็น
# <a href=http://www.lovelampang.com/board>http://www.lovelampang.com/board</a>
############################################################
require 'parse.pl';
&parse_form;
print "Content-type:text/html\n\n";
if (!$v{'id'}) { &breakerror('ข้อมูลผิดพลาด โปรดกลับไปตรวจสอบ'); }
$filename = join '',$v{'id'},'.txt';
open(myfile,"$v{'r'}/$filename");
@r = <myfile>;
close(myfile);
$r[0] =~ s/</</g;
$r[0] =~ s/>/>/g;
@rec = split (/:/,$r[0]);
print "<title>$rec[1]</title><body bgcolor=#ffffdd>";
print '<font face="ms sans serif">';
print "<font size=6>$rec[1]</font><div align=right>";
print "<font color=#808080 size=0>";
@stat = stat "$v{'r'}/$filename";
@t = localtime($stat[9]+50000);
print "Size:$stat[7] Byte Create: $t[3]/",$t[4]+1,"/",$t[5]+2443;
print " Time: $t[2]:$t[1]:$t[2]</font></div>";
print '<font size=0 face="ms sans serif">';
# print "<hr noshade color=#000000><ul>";
$tot = @r;
print "<center><table width=95% border=0 cellpadding=1 cellspacing=1 bgcolor=black><td bgcolor=white>";
for $i (1..$tot-1) { print $r[$i],"<br>"; }
print "<br></td></table>";
#print "<hr noshade color=#000000>";
print '<!--#echo banner=""--></body></html>';
|
