|
#!/usr/bin/perl require 'parse.pl'; &parse_form; print "Content-type:text/html\n\n"; &checklength; if (!$v{'idstart'}) { &breakerror('ข้อมูลผิดพลาด โปรดกลับไปตรวจสอบ'); } $filename = "."; opendir(flist,"$filename"); @allf = readdir flist; closedir(flist); $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'} =~ /.*\@.*\..*/) { 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'; open(myfile,">$filename"); print myfile "$title\n"; print myfile "$v{'message'}"; close(myfile); print "$title<br>กะทู้ถูกส่งให้ท่านทาง e-mail และจัดเก็บเข้าแฟ้ม .. เรียบร้อย"; # mail process $filename = join '',substr($v{'idstart'},0,10),"999.txt"; open(myfile,"$filename"); @ar = <myfile>; close(myfile); @ars = split(/:/,$ar[0]); $mailprog = '/var/qmail/bin/qmail-inject'; open (MAIL, "|$mailprog") || die "Can't open $mailprog!\n"; print MAIL "To: $v{'email'}"; if ($ars[4] eq "on") { print ",$ars[2]"; } print MAIL "\nFrom: perlphpasp\@thaiabc.com \n"; print MAIL "Subject: Reply from board \n\n"; print MAIL "Automatically from http://perlphpaspbook.hypermart.net\n"; print MAIL "$v{'message'}\n"; close (MAIL); |