boardreply.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";
&headers;
&checklength;
if (!$v{'idstart'}) { &breakerror('ข้อมูลผิดพลาด โปรดกลับไปตรวจสอบ'); }
$filename = "$v{'r'}/."; 
opendir(flist,"$filename");
@allf = readdir flist;	
closedir(flist);   
@allf = @allf;
$max = 0;
for $i (0 .. @allf) {		  
  if (substr($v{'idstart'},0,10) eq substr($allf[$i],0,10) && 
      substr($allf[$i],10,3) ne "999") {  
    $getseq = substr($allf[$i],10,3);
    if ($getseq > $max) { $max = $getseq; }
  }
}
$max++;
if ($max < 10) { $max = join '','00',$max; } else {
if ($max < 100) { $max = join '','0',$max; } }
$filename = join '',substr($v{'idstart'},0,10),$max,'.txt';
$number = substr($filename,0,13);
if ($v{'email'} =~ /.*\@.*\..*/ && length($v{'email'}) > 8) { 
  if (!$v{'subj'}) { &breakerror('ไม่ได้กรอกหัวเรื่อง'); }
} else {
  &breakerror('ไม่ได้กรอก E-Mail หรือผิดพลาด');
}
$title = join ':',$number,$v{'subj'},$v{'email'},$v{'icq'},$v{'answer'},$ENV{REMOTE_ADDR};
$filename = join '.',$number,'txt';

$tstart = $^T;
$en = join '', substr($tstart, 8, 1),"บ";
$activecode = substr(crypt($tstart,$en),3,8); 
print "";
print "<font size=6><b>E-Mail </b>: $v{'email'}<br>";
print "<b>Subject</b> : $v{'subj'}</font><hr noshade color=#009900 width=50%>";
print "<ul><pre><b>Message ID </b>: $number<br> $v{'message'}</pre></ul>";
print "<center><form action=boardreplyconfirm.pl method=post>";
print "<input type=hidden name=email value=$v{'xemail'}>";
print "<input type=hidden name=message value='$v{'xmessage'}'>";
print "<input type=hidden name=r value=$v{'r'}>";
print "<input type=hidden name=title value='$title'>";
print "<input type=hidden name=subj value='$v{'xsubj'}'>";
print "<input type=hidden name=filename value=$filename>";
print "<input type=hidden name=tstart value=$tstart>";
print "<input type=hidden name=activecode value=$activecode>";
print "<input type=hidden name=idstart value=$v{'idstart'}>";
print "<input type=submit value=Confirm_in_30_seconds>";
print "</form>โปรดกดปุ่ม confirm ในทันที<br>มิเช่นนั้น คำขอเพิ่มกะทู้นี้จะหมดอายุ";
&footer;