You don't need to set up an SMTP host from scratch (sendmail needs a lot of study ). Use a perl script calling up the Net::SMTP module and connect to an existing SMTP host (you do have one of these, don't you?)
Here's a script that I knocked up. Call it up by piping or redirecting the message content with a message title followed by a list of users.
Code:
#!/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;
It would be nice to see your (or anybody's) disk usage monitoring script, if you've written one. I've got one, which I found on the web and modified for my own use (which I could post if anyone is interested.)
I have been a member for almost a year now. I have always recieved email notifications when I select "subcribe to this thread" at the bottom of posts that I reply to.
However, over the last month or so, I have not been recieving email notification of replys to posts I respond to.
I have... (6 Replies)
Hi.
I want to add email notification so when the my script finishes it sends out an email of the results to our team. If there are errors the subject on the email should say there were errors.
If any having idea/sample scripts pls share with me. (2 Replies)
Hey guys
Just need some help with crontab.Iam looking for a script that will alert particular user about its change through sendmail.We are using bash here.
--CoolKid (3 Replies)
Hi,
I'm fairly new to Aix and am looking for some help on the following.
I have setup a cron job under root and want it to send the email once it's run to an external email address. I can get it to send the output in an email to me by using mail on the end of the crontab entry. But I would... (1 Reply)
hi guys
I hope this goes here
Have someone used Linux heartbeat to send email when the Slave server becomes the Master?
I've read I can configure the MailTo under
/etc/ha.d/resource.d
but I really don't know how to do it.
I basically need my primary server to send an email when it... (2 Replies)
Hi
All of a sudden the syslog daemon in the server went down and then later I started it manually
# ps -ef | grep syslogd
root 217228 114906 0 Nov 16 - 0:00 /usr/sbin/syslogd
root 430306 290870 0 14:18:11 pts/0 0:00 grep syslogd
Can some one help me with a script which will monitor the... (2 Replies)
Hi,
I am using spacewalk tool ( Linux systems management solution ). I have configured probe notification and notification method in spacewalk.
But I am not getting the notification mail.
Checked the /var/log/maillog and the error message as follows,
Dec 11 17:01:11 spserver... (2 Replies)
Hi All,
I need write a linux script which emails each record to the employee manager email-id which will be specified inside the file.
Each employee can have a different manager too..
file contain 200 to 300 records
Employee ID, Employee Name, Employee Email-ID, Manager, Manager... (4 Replies)
Hi,
I am getting error below when testing email. is there a way I can configure email on Solaris?
SunOS -s 5.10 Generic_147440-04 sun4u sparc SUNW,SPARC-Enterprise
echo "hello" | sendmail -v abcd
WARNING: local host name (-s) is not qualified; see cf/README: WHO AM I?
abcd... Connecting... (1 Reply)
Discussion started by: roshanbi
1 Replies
LEARN ABOUT DEBIAN
mail::sendeasy::smtp
Mail::SendEasy::SMTP(3pm) User Contributed Perl Documentation Mail::SendEasy::SMTP(3pm)NAME
Mail::SendEasy::SMTP - Handles the communication with the SMTP server without dependencies.
DESCRIPTION
This module will handle the communication with the SMTP server. It hasn't dependencies and supports authentication.
USAGE
use Mail::SendEasy ;
$smtp = Mail::SendEasy::SMTP->new( 'domain.foo' , 25 , 120 ) ;
if ( !$smtp->auth ) { warn($smtp->last_response_line) ;}
if ( $smtp->MAIL("FROM:<$mail{from}>") !~ /^2/ ) { warn($smtp->last_response_line) ;}
if ( $smtp->RCPT("TO:<$to>") !~ /^2/ ) { warn($smtp->last_response_line) ;}
if ( $smtp->RCPT("TO:<$to>") !~ /^2/ ) { warn($smtp->last_response_line) ;}
if ( $smtp->DATA =~ /^3/ ) {
$smtp->print("To: foo@foo") ;
$smtp->print("Subject: test") ;
$smtp->print("
") ;
$smtp->print("This is a sample MSG!") ;
if ( $smtp->DATAEND !~ /^2/ ) { warn($smtp->last_response_line) ;}
}
$smtp->close ;
METHODS
new ($host , $port , $timeout , $user , $pass)
Create the SMTP object and connects to the server.
connect
Connect to the server.
auth_types
The authentication types supported by the SMTP server.
auth($user , $pass)
Does the authentication.
print (data)
Send data to the socket connection.
cmd (CMD , @MORE)
Send a command to the server.
response
Returns the code response.
If wantarray returns an ARRAY with the response lines.
last_response
Returns an ARRAY with the response lines.
last_response_msg
The last response text.
last_response_line
The last response line (code and text).
close
QUIT and close the connection.
AUTHOR
Graciliano M. P. <gm@virtuasites.com.br>
COPYRIGHT
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.12.4 2004-04-09 Mail::SendEasy::SMTP(3pm)
04-01-2010
). Use a perl script calling up the Net::SMTP module and connect to an existing SMTP host (you do have one of these, don't you?)