Sponsored Content
Special Forums UNIX and Linux Applications Infrastructure Monitoring How to setup Email notification when storage reach certain % ? Post 302409412 by son_t on Thursday 1st of April 2010 05:01:32 AM
Old 04-01-2010
You don't need to set up an SMTP host from scratch (sendmail needs a lot of study Smilie). 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.)
 

9 More Discussions You Might Find Interesting

1. Post Here to Contact Site Administrators and Moderators

Why am I not recieving email notification?

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)
Discussion started by: Kelam_Magnus
6 Replies

2. UNIX for Dummies Questions & Answers

How to add email notification in scripts?

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)
Discussion started by: redlotus72
2 Replies

3. Shell Programming and Scripting

Crontab change and email notification

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)
Discussion started by: coolkid
3 Replies

4. AIX

Cron Job notification email

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)
Discussion started by: elmesy
1 Replies

5. UNIX for Advanced & Expert Users

Linux-Heartbeat Email Notification

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)
Discussion started by: karlochacon
2 Replies

6. AIX

Sending an email notification when syslog goes down

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)
Discussion started by: newtoaixos
2 Replies

7. UNIX for Dummies Questions & Answers

Email notification is not working in spacewalk

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)
Discussion started by: Nila
2 Replies

8. Shell Programming and Scripting

Email Notification

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)
Discussion started by: tradingspecial
4 Replies

9. UNIX for Beginners Questions & Answers

Email notification error on Solaris

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
Net::SMTP::TLS::ButMaintained(3pm)			User Contributed Perl Documentation			Net::SMTP::TLS::ButMaintained(3pm)

NAME
Net::SMTP::TLS::ButMaintained - An SMTP client supporting TLS and AUTH VERSION
version 0.17 SYNOPSIS
use Net::SMTP::TLS::ButMaintained; my $mailer = Net::SMTP::TLS::ButMaintained->new( 'your.mail.host', Hello => 'some.host.name', Port => 25, #redundant User => 'emailguy', Password=> 's3cr3t'); $mailer->mail('emailguy@your.mail.host'); $mailer->to('someonecool@somewhere.else'); $mailer->data; $mailer->datasend("Sent thru TLS!"); $mailer->dataend; $mailer->quit; DESCRIPTION
Net::SMTP::TLS::ButMaintained is forked from Net::SMTP::TLS. blame "Evan Carroll" for the idea. :) Net::SMTP::TLS::ButMaintained is a TLS and AUTH capable SMTP client which offers an interface that users will find familiar from Net::SMTP. Net::SMTP::TLS::ButMaintained implements a subset of the methods provided by that module, but certainly not (yet) a complete mirror image of that API. The methods supported by Net::SMTP::TLS::ButMaintained are used in the above example. Though self explanatory for the most part, please see the perldoc for Net::SMTP if you are unclear. The differences in the methods provided are as follows: The mail method does not take the options list taken by Net::SMTP The to method also does not take options, and is the only method available to set the recipient (unlike the many synonyms provided by Net::SMTP). The constructor takes a limited number of Net::SMTP's parameters. The constructor for Net::SMTP::TLS::ButMaintained takes the following (in addition to the hostname of the mail server, which must be the first parameter and is not explicitly named): NoTLS - In the unlikely event that you need to use this class to perform non-TLS SMTP (you ought to be using Net::SMTP itself for that...), this will turn off TLS when supplied with a true value. This will most often cause an error related to authentication when used on a server that requires TLS Hello - hostname used in the EHLO command Port - port to connect to the SMTP service (defaults to 25) Timeout - Timeout for inital socket connection (defaults to 5, passed directly to IO::Socket::INET) User - username for SMTP AUTH Password - password for SMTP AUTH TLS and AUTHentication During construction of an Net::SMTP::TLS::ButMaintained instance, the full login process will occur. This involves first sending EHLO to the server, then initiating a TLS session through STARTTLS. Once this is complete, the module will attempt to login using the credentials supplied by the constructor, if such credentials have been supplied. The AUTH method will depend on the features returned by the server after the EHLO command. Based on that, CRAM-MD5 will be used if available, followed by LOGIN, followed by PLAIN. Please note that LOGIN is the only method of authentication that has been tested. CRAM-MD5 and PLAIN login functionality was taken directly from the script mentioned in the acknowledgements section, however, I have not tested them personally. ERROR HANDLING This module will croak in the event of an SMTP error. Should you wish to handle this gracefully in your application, you may wrap your mail transmission in an eval {} block and check $@ afterward. ACKNOWLEDGEMENTS This code was blatantly plagiarized from Michal Ludvig's smtp-client.pl script. See <http://www.logix.cz/michal/devel/smtp> for his excellent work. Improvements courtesy of Tomek Zielinski AUTHORS
o Alexander Christian Westholm <awestholm at verizon dawt net> o Fayland Lam <fayland@gmail.com> COPYRIGHT AND LICENSE
This software is copyright (c) 2011 by Alexander Christian Westholm, Fayland Lam. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. perl v5.14.2 2013-12-04 Net::SMTP::TLS::ButMaintained(3pm)
All times are GMT -4. The time now is 08:24 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy