Infrastructure Monitoring

WSERV% sendmail -v counsellor@companyX.com
testing
.
counsellor@companyX.com... Connecting to [127.0.0.1] via relay...
220 WSERV. ESMTP Sendmail 8.13.8+Sun/8.13.8; Thu, 1 Apr 2010 12:35:57 +0800 (MYT)
>>> EHLO WSERV.
250-WSERV. Hello localhost [127.0.0.1], pleased to meet you
250-ENHANCEDSTATUSCODES
250-PIPELINING
250-EXPN
250-VERB
250-8BITMIME
250-SIZE
250-DSN
250-ETRN
250-DELIVERBY
250 HELP
>>> VERB
250 2.0.0 Verbose mode
>>> MAIL From:<informix@WSERV> SIZE=8
250 2.1.0 <informix@WSERV>... Sender ok
>>> RCPT To:<counsellor@companyX.com>
>>> DATA
250 2.1.5 <counsellor@companyX.com>... Recipient ok
354 Enter mail, end with "." on a line by itself
>>> .
050 <counsellor@companyX.com>... Connecting to mail.companyX.com via relay...
050 <informix@WSERV>... Warning: alias database /etc/mail/aliases.db out of date
050 <informix@WSERV>... Connecting to local...
050 220 WSERV LMTP ready
050 >>> LHLO WSERV.
050 250-WSERV
050 250-8BITMIME
050 250-ENHANCEDSTATUSCODES
050 250 PIPELINING
050 >>> MAIL From:<>
050 250 2.5.0 ok
050 >>> RCPT To:<informix>
050 >>> DATA
050 250 2.1.5 ok
050 354 go ahead
050 >>> .
050 250 2.1.5 informix OK
050 <informix@WSERV>... Sent
250 2.0.0 o314ZvoG022914 Message accepted for delivery
counsellor@companyX.com... Sent (o314ZvoG022914 Message accepted for delivery)
Closing connection to [127.0.0.1]
>>> QUIT
221 2.0.0 WSERV. closing connection
WSERV% pwd

#!/usr/bin/perl
#(C) son_t, 2010
#Usage: sendmessage.pl "MESSAGE TITLE" <user> [<user>] < message_content_file
#Or: cat message_content_file | sendmessage.pl "MESSAGE TITLE" <user> [<user>]"

use Net::SMTP;

my $domain = "YOUR DOMAIN";
my $smtphost = "YOUR SMTP HOST";
my $sending_user = `/usr/ucb/whoami`;
chop($sending_user);
my $server = `/usr/bin/hostname`;
chop($server);

my $subject=shift(@ARGV);

my @users = @ARGV;
if (!@users) {
    print STDERR "Must specify one or more users\n";
    exit 1;
}

# qualify addresses
for (my $i = 0; $i < @users; $i++) {
    $users[$i] = $users[$i] . "\@$domain" if ($users[$i] !~ /\@/);
}

# connect
#print "connect smtphost:$smtphost server.domain:$server.$domain\n";
$smtp = Net::SMTP->new("$smtphost",Hello=>"$server.$domain");
if (!defined($smtp)) {
    print STDERR "Error connecting to server\n";
    exit 1;
}

# setup
#print "setup $sending_user\@$server.$domain\n";
$smtp->mail("$sending_user\@$server.$domain");
$smtp->recipient(@users);
$smtp->data();

# header
my $tousers = join(', ', @users);
#print "header tousers:$tousers sending_user:$sending_user\@$server.$domain subject:$subject\n";
$smtp->datasend("To: $tousers\n");
$smtp->datasend("From: $sending_user\@$server.$domain\n");
$smtp->datasend("Subject: $subject\n\n");

# body
$smtp->datasend(<STDIN>);

# finish
$smtp->dataend();
$smtp->quit;