Aman Raheja [[EMAIL PROTECTED]] quoth: *>Hi all *>I am trying to send a mail with the following code and the last print *>statement doesn't print, ie, the mail is not sent. *>This code is called on submitting a form on the web *>-------------------- *>open(MAIL, "/usr/sbin/sendmail -oi -t") || die "Can't open mail"; *>print MAIL <<END; *>To: amancgiperl\@hotmail.com *>Subject: News *>all the message goes here *>END *> *>close(MAIL); *>print "The mail has been sent successfully<BR><BR>"; *>--------------------- *>If I remove the -oi -t switch from the first statement, the print statement *>works but the mail is not sent. *>Please help and let me know what could I be missing, in or above the code.
#!/usr/bin/perl -w open(MAIL, "|/usr/sbin/sendmail -oi -t -f foo\@bar.com") || die "Can't open mail"; print MAIL <<'DNE'; To: amancgiperl\@hotmail.com Subject: News all the message goes here DNE close(MAIL); Other than the obvious changes you should *always* add -w and use perl -c $programname whenever you find something works. Also, END is a reserved word so never use that in a 'here' doc. e. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
