logo

boardaddconfirm.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><font color=red size=6><center><br>'; if ($v{'email'} =~ /.*\@.*\..*/) { if (!$v{'subj'}) { &breakerror('ไม่ได้กรอกหัวเรื่อง'); } } else { &breakerror('ไม่ได้กรอก E-Mail หรือกรอกผิดพลาด'); } # ป้องกันส่งช้ากว่า 50 วินาที $tstop = $^T; $gap = $tstop - $v{'tstart'}; if ($gap > 50) { &breakerror('เสียใจด้วย Process นี้ : timeout<br>เพราะท่านกดปุ่ม confirm ช้าไปหน่อย<br>ให้กดปุ่ม Back แล้วกลับไปกดปุ่มส่งใหม่ครับ'); } # ป้องกันส่งเร็วกว่า 60 วินาที $filename="lasttime.dat"; open(myfile,"$filename"); @rm = <myfile>; close(myfile); $gap = $tstop - $rm[0]; if ($gap < 60) { &breakerror('เสียใจด้วย Process นี้ : ส่งเข้ามาเร็วเกินไป<br>ท่านอาจกดปุ่ม confirm ซ้ำ<br>หรือมีคนส่งกะทู้ เข้ากระดานข่าว พร้อมท่าน<br>ให้กดปุ่ม Back แล้วกลับไปกดปุ่มส่งใหม่ครับ'); } $en = join '', substr($v{'tstart'}, 8, 1),"บ"; $activecode = substr(crypt($v{'tstart'},$en),3,8); if ($activecode ne $v{'activecode'}) { &breakerror('Code error'); } # เก็บเวลาล่าสุด open(myfile,">lasttime.dat"); print myfile $tstop; close(myfile); open(myfile,">number.dat"); print myfile $v{'number'}; close(myfile); open(myfile,">$v{'r'}/$v{'filename'}"); print myfile "$v{'title'}\n"; $v{'message'} =~ tr/+/ /; $v{'message'} =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $v{'message'} =~ s/~!/~!/g; print myfile "$v{'message'}"; close(myfile); print "$title<br>Add new message (Confirmed) : OK"; # mail process $mailprog = '/var/qmail/bin/qmail-inject'; open (MAIL, "|$mailprog") || die "Can't open $mailprog!\n"; print MAIL "To: $v{'email'} \n"; print MAIL "From: webmaster\@thaiall.com \n"; print MAIL "Subject: You use this email add the content to board\n\n"; print MAIL "Don't reply :: \n\n"; print MAIL "Just Inform from http://www.lovelampang.com/board\n "; print MAIL "You will get the message if someone reply your content.\n"; print MAIL "If you are not ok, you can remove the content by yourself.\n"; print MAIL "For remove your content http://www.lovelampang.com/board/del.htm \n"; print MAIL "================================== \n"; print MAIL "$v{'title'}\n"; print MAIL "$v{'message'}\n"; close (MAIL); &footer;

ท่านมา เราขอบใจ < - • - > ท่านไป เราขอบคุณ
ทีมงาน | บทความ Online | ศูนย์สอบ Online | Thaisysadmin board [Free_Mail@thaiall.com]
บทเรียน : HTML, PERL, PHP, ASP, Paint, Photoshop, Illustrator, Java[PerlPhpAsp.com]

แนะนำเว็บใหม่ . แสดงผลการจัดอันดับ . Top Keyword . [ Database search.dat, search.mdb ]
Top Article: Work dream, DataTransfer, Demo-ecommerce, How to dotcom and mailand promote
ผู้สนับสนุน : โยนกที่ทำงาน, ลำปางที่อยู่, thai.netBandwidth, Sumsystemสำนักพิมพ์, Thaiadclickให้ค่าBanner
ทีมงาน: พวกเราทำงานที่จังหวัดลำปาง, ประเทศไทย 52000 Tel.0-1992-7223 ICQ.20449588 มีอะไรให้ช่วยก็ยินดี