#!/usr/bin/perl ################################################### ## ### ## Program : Diary ### ## Description : ไดอารี่แสดงบันทึกการเดินทาง ### ## Programmer : Nattapong Chantanawongsa ### ## Email : ecensor@yahoo.com ### ## Date : 29/9/44 ### ## last modify : ### ## ### ################################################### print "content-type:text/html\n\n"; $mailprog = "/usr/sbin/sendmail"; open( MAIL, "| $mailprog -t") || &weberror( "Can not send mail"); print MAIL "From: $ymail\n"; print MAIL "To: $to\n"; if ( $cc ne "") { print MAIL "Cc: $cc\n"; } print MAIL "Subject: มีกระทู้น่าสนใจมาฝากจากคุณ $from\n\n"; print MAIL "มีกระทู้น่าสนใจมาฝากจากคุณ $from $ymail\n"; print MAIL "[ T ] opiC = >> $title\n\n\n"; print MAIL "โดยคุณสามารถเข้าไปชมได้ที่ URL นี้ $url\n\n"; print MAIL "$addmess\n"; print MAIL "\n\nBy ::: xjdor cooperation :::\n"; print MAIL "Get your email free @ xjdor.i-p.com\n"; close( MAIL); print qq( ::: + Diary @ TTZ + :::
Thank you.



เราได้รับการแจ้งจากท่านแล้ว

[ ClosE ]ย ย 
);