Sending mail from perl in unix

[mdshafi01]

Hi ,
I am trying to send mail from unix perl.

I am using following code to send mail.
It is not triggering mail and also it is not giving any error.

please tell me any special settings are required or this program should be executed from special user with higher permission or something.

please tell me.


what changes i should bring into this program so that this program should work fine.

#!/usr/perl/bin/perl
print "Content-type: text/html\n\n";
 
$title='Perl Mail demo';
$to='[e-mail]';
$from= '[e-mail]';
$subject='YOUR SUBJECT';
 
open(MAIL, "|/usr/sbin/sendmail -t") || die "unable to open";
print "hhhh ",<MAIL>,"\n";
 
## Mail Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
## Mail Body
print MAIL "This is a test message from Cyberciti.biz! You can write your mail body text here\n";
 
close(MAIL);

shafi

[eWish]

The really only thing I see missing is the header for the email itself.

print MAIL "Content-type:text/plain; charset=iso-8859-1\n";

Here is a sample of one I did playing around with the some time ago.

#! /usr/bin/perl 
 
use strict;
use warnings;
 
use CGI;
use CGI::Carp qw/fatalsToBrowser/;
 
my $q = CGI->new;
 
print $q->header; 
print $q->start_html(-title =>'Mysite.com'); 
 
my $mail_path         = '/usr/sbin/sendmail -i -t';
my $email_to        = '[e-mail]';
my $email_from        = '[e-mail]';
my $email_subject    = 'Testing My Email';
my $email_message     = qq~ 
<pre>Hello $email_to,<br><br>
 
Thank you for $email_subject service.<br>  
<a href="http://www.somesite.com">Some Site</a></pre>
~;
 
&send_email($email_to, $email_from, $email_subject, $email_message);
 
sub send_email{
 
    my ($to, $from, $subject, $message) = @_;
 
       open (my $MAIL, "|$mail_path") || print "Could Not Open Mail Program!";
 
           print $MAIL "Content-type:text/html; charset=iso-8859-1\n";
           print $MAIL "To: $to\n";
           print $MAIL "From: $from\n";
           print $MAIL "Subject: $subject\n\n";
           print $MAIL "$message\n\n";
 
   close ($MAIL);
 
   print 'Done.  Please check your email box';
 
} 
print $q->end_html();
 
1;

Hopefully it will help you! Also, please be sure to use the [CODE][/CODE] tags when posting code here. Thank you!

--Kevin

[mdshafi01]

Hello here is the sample code with all the parameter filled still it is not working please let me know.

#!/opt/perl/bin/perl -w
 
my $send_to  = "To: ".'[e-mail]'."\n";
 
my $subject="hi";
my $content="how r u";
 
my $from='[e-mail]';
my $sendmail = "/usr/sbin/sendmail -t";
open(SENDMAIL, "|$sendmail") or die "Cannot open $sendmail: $!";
print SENDMAIL "Content-type:text/plain; charset=iso-8859-1\n";
print SENDMAIL $subject;
print SENDMAIL "From: $from\n";
print SENDMAIL $send_to;
print SENDMAIL "Content-type: text/plain\n\n";
print SENDMAIL $content;
close(SENDMAIL);
 
print "\nProcess completed\n";

[krishshan]

Have you configure the ip address in the sendmail module...

[npidaparthy]

try to run the sendmail command from unix prompt, then you will have some understanding on where exactly the problem lies, ie., unix config, or calling from perl

also you can try using mailx utility in Unix

-Nagendra