boardadd.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;
print'<body>';
if ($v{'email'} =~ /.*\@.*\..*/) {
if (!$v{'subj'}) { &breakerror('ไม่ได้กรอกหัวเรื่อง'); }
} else {
&breakerror('ไม่ได้กรอก E-Mail หรือกรอกผิดพลาด');
}
$filename="number.dat";
open(myfile,"$filename");
@rm = <myfile>;
close(myfile);
if (!@rm) {
$number=1000000001999;
} else {
$number=substr($rm[0],0,10);
$number=$number+1;
$number=join '',$number,'999';
}
if (length($ENV{HTTP_X_FORWARDED_FOR}) > 0) {
$getip = $ENV{HTTP_X_FORWARDED_FOR};
} else {
$getip = $ENV{REMOTE_ADDR};
}
$title = join ':',$number,$v{'subj'},$v{'email'},$v{'icq'},$v{'answer'},$getip;
$filename = join '.',$number,'txt';
$tstart = $^T;
$en = join '', substr($tstart, 8, 1),"บ";
$activecode = substr(crypt($tstart,$en),3,8);
print "<font size=6>";
print "<b>E-Mail</b> : $v{'email'}<br>\n";
print "<b>Subject</b> : $v{'subj'}</font><hr noshade color=#009900 width=50%>\n";
print "<ul><pre><b>Message ID</b> : $number<br>$v{'message'}</pre></ul>";
print "<hr noshade color=#009900 width=50%><center><font color=red>ดูให้ดีว่า e-mail และ subject ถูกต้อง .. ถ้าไม่ถูกให้ Back กลับไปแก้ไขก่อนนะครับ</font><form action=boardaddconfirm.pl method=post>";
print "<input type=hidden name=email value=$v{'xemail'}>\n";
print "<input type=hidden name=message value='$v{'xmessage'}'>\n";
print "<input type=hidden name=r value=$v{'r'}>\n";
print "<input type=hidden name=title value='$title'>\n";
print "<input type=hidden name=subj value='$v{'xsubj'}'>\n";
print "<input type=hidden name=filename value=$filename>\n";
print "<input type=hidden name=number value=$number>\n";
print "<input type=hidden name=tstart value=$tstart>\n";
print "<input type=hidden name=activecode value=$activecode>\n";
print "<input type=submit value=Confirm_in_30_seconds>\n";
print "</form>โปรดกดปุ่ม confirm ในทันที<br>มิเช่นนั้น คำขอเพิ่มกะทู้นี้จะหมดอายุ";
&footer; |
