source: scripts/sendmail.pl @ 2992

#!/usr/bin/perl
# Simple script tp send emails
# Copyright 2007 Alan Baghumian, GNU/GPL
#
# Updated: 2007-11-25 10:27 +330 GMT
#

if ($#ARGV != 3) {
 print "Usage: sendmail.pl <mail-from> <mail-to> <subject> <message> \n";
 exit;
}

$MailFrom = $ARGV[0];
$MailTo = $ARGV[1];
$Subject = $ARGV[2];
$Message = $ARGV[3];

$ServerName = "localhost" ;

use Net::SMTP;

# Get the a ll the values for current time
($Second, $Minute, $Hour, $Day, $Month, $Year, $WeekDay, $DayOfYear, $IsDST) = localtime(time); 
$DateTime = sprintf "%4d/%02d/%02d %02d:%02d:%02d",$Month+1,$Day,$Year+1900,$Hour,$Minute,$Second;

# Connect to the server
$smtp = Net::SMTP->new($ServerName) ;
die "Couldn't connect to server" unless $smtp ; 

# DEBUG, Mail is not being sent?
#$smtp = Net::SMTP->new($ServerName, Debug   => 1,) ;
#print $smtp->banner;

$smtp->mail( $MailFrom ) ;
$smtp->to( $MailTo ) ; 

# Start the mail
$smtp->data() ;

# Send the header.
$smtp->datasend("Subject: $Subject\n") ;
$smtp->datasend("Date: $DateTime\n") ;
$smtp->datasend("From: $MailFrom\n") ;
$smtp->datasend("To: $MailTo\n") ;
$smtp->datasend("\n") ;

# Send the message
$smtp->datasend("$Message") ;

# Send the termination string
$smtp->dataend() ;

$smtp->quit() ; 

#print "Email has been sent to $MailTo...\n";