Perl: Sendmail - Revision history

Ittichai at 20:37, 9 March 2011

2011-03-09T20:37:03Z

Ittichai at 20:36, 9 March 2011

2011-03-09T20:36:18Z

Ittichai: Created page with " #! /usr/bin/perl -w ############################################################################## # Filename: sendmail.pl # Description: Simple Send Mail S..."

2011-03-09T20:36:04Z

Created page with " #! /usr/bin/perl -w ############################################################################## # Filename: sendmail.pl # Description: Simple Send Mail S..."

New page

#! /usr/bin/perl -w
##############################################################################
# Filename: sendmail.pl
# Description: Simple Send Mail Script
# Usage: perl sendmail.pl [recipients] [subject] [message]
##############################################################################

use strict;
use Mail::Sendmail;

# Print out usage
if ($#ARGV != 2) {
print "Usage: send_mail addresses message\n";
exit;
}

my $recipients = $ARGV[0];
my $subject = $ARGV[1];
my $message = $ARGV[2];

# Send Mail
my %mail = (
smtp => "relay.cig.mot.com",
to => $recipients,
cc => "",
bcc => "",
from => "sender\@company.com",
subject => $subject,
message => $message
);

sendmail(%mail);

exit;
</pre>

@@ Line 1: / Line 1: @@
 <pre>
 #! /usr/bin/perl -w
-##############################################################################
+###################################################################
 # Filename:    sendmail.pl
 # Description: Simple Send Mail Script
 # Usage:       perl sendmail.pl [recipients] [subject] [message]
-##############################################################################
+###################################################################
 use strict;
@@ Line 12: / Line 12: @@
 # Print out usage
 if ($#ARGV != 2) {
-    print "Usage: send_mail addresses message\n";
+    print "Usage: sendmail [addresses] [subject] [message]\n";
     exit;
+}