|
#!/bin/bash
mount | grep sdc1 || /root/bin/mailsend.pl 123.136.68.157 < /root/bin/iscsinotmounted.txt
sleep 30 && echo $(date) > /vicepa/date || /root/bin/mailsend.pl 123.136.68.157 < /root/bin/cannotwrite2iscsi.txt
sleep 60 && rm -f /vicepa/date || /root/bin/mailsend.pl 123.136.68.157 < /root/bin/cannotwrite2iscsi.txt
# and it returns :
sub f_email_addr
{
my $addr = $_[0] ;
$addr =~ s/^.+\<//g ;
$addr =~ s/\>.*$//g ;
return ($addr) ;
}
# This function sends a line to the remote smtp server, and reads a reply.
# The first argument is expected to be an established tcp connection. The
# line is supplied as the second argument, and the expected smtp reply
# code (number) is specified as the third argument. If the supplied smtp
# code is received, we return an empty string, otherwise something is
# presumed to have gone wrong and we return the entire reply string.
# Finally, an inactivity timeout is enforced. If triggered, the string
# “inactivity timed out” is returned.
sub f_smtp_dialog
{
my $fd = $_[0] ;
my $msg = $_[1] ;
my $expect = $_[2] ;
my $buf = “” ;
# deliver a message to the remote smtp server, if one is specified.
if (length ($msg) > 0)
{ printf ($fd “$msg”) ; }
eval
{
alarm ($timeout) ;
$buf = <$fd> ;
alarm (0) ;
} ;
if ($buf =~ /^$expect/)
{ return (“”) ; }
chomp ($buf) ;
return ($buf) ;
}
# —————————————————————————–
# check usage first …
if ($#ARGV != 0)
{
printf (“Usage : %s <smtp server> < mail.txt\n”, $0) ;
exit (1) ;
}
# try to read in mail header from stdin.
while ($line = <STDIN>)
{
chomp ($line) ;
if ($line =~ /^To:/)
{
$rcpt_to = $line ;
$rcpt_to =~ s/To: // ;
foreach(@recp){
push(@recp_to, f_email_addr($_));
}
}
if ($line =~ /^Cc:/)
{
my$tline;
$tline=$line ;
$tline=~ s/Cc: // ;
foreach(@recp){
push(@recp_to, f_email_addr($_));
}
}
if ($line =~ /^From:/)
{
$mail_from = $line ;
$mail_from =~ s/From: // ;
$mail_from = f_email_addr ($mail_from) ;
}
if ($line =~ /^$/)
{
last ;
}
$header[$#header+1] = $line ;
}
# check that we know who we’re sending mail from, and to.
if (length ($mail_from) < 1)
{
printf (“FATAL! Do not know who this mail is from. No ‘From: xx’.\n”) ;
exit (1) ;
}
if ($#recp_to < 0)
{
printf (“FATAL! Do not know who this mail is to. No ‘To: xx’.\n”) ;
exit (1) ;
}
# now attempt to connect to smtp server.
$host = inet_aton ($ARGV[0]) ||
die (“FATAL! Host not found $ARGV[0],$!”) ;
socket ($SD, PF_INET, SOCK_STREAM, getprotobyname (“tcp”)) ||
die (“FATAL! socket() failed,$!”) ;
eval
{
local $SIG{ALRM} = sub
{ printf (“FATAL! Connect to $ARGV[0] timed out.\n”) ; exit (1) ; } ;
alarm ($timeout) ;
connect ($SD, sockaddr_in (25, inet_aton ($ARGV[0]))) ||
die (“FATAL! Cannot connect to $ARGV[0] on port 25,$!”) ;
alarm (0) ;
} ;
select ($SD) ;
$| = 1 ;
select (STDOUT) ;
# perform the standard dialog with the smtp server.
$line = f_smtp_dialog ($SD, “”, 220) ;
if (length ($line) > 0)
{ printf (“FATAL! $ARGV[0] said: %s\n”, $line) ; exit (1) ; }
$line = f_smtp_dialog ($SD, “HELO localhost\n”, 250) ;
if (length ($line) > 0)
{ printf (“FATAL! $ARGV[0] said: %s\n”, $line) ; exit (1) ; }
$line = f_smtp_dialog ($SD, “MAIL FROM: $mail_from\n”, 250) ;
if (length ($line) > 0)
{ printf (“FATAL! $ARGV[0] said: %s\n”, $line) ; exit (1) ; }
#$line = f_smtp_dialog ($SD, “RCPT TO: $rcpt_to\n”, 250) ;
#if (length ($line) > 0)
# { printf (“FATAL! $ARGV[0] said: %s\n”, $line) ; exit (1) ; }
foreach(@recp_to){
my$k=$_;
#print “k $k\n”;
$line = f_smtp_dialog ($SD, “RCPT TO: $k\n”, 250) ;
if (length ($line) > 0)
{ printf (“FATAL! $ARGV[0] said: %s\n”, $line) ; exit (1) ; }
}
$line = f_smtp_dialog ($SD, “DATA\n”, 354) ;
if (length ($line) > 0)
{ printf (“FATAL! $ARGV[0] said: %s\n”, $line) ; exit (1) ; }
# now print out the mail header and read the rest of the mail body.
foreach (@header)
{ print ($SD “$_\n”) ; }
print ($SD “\n”) ;
while ($line = <STDIN>)
{ print ($SD “$line”) ; }
$line = f_smtp_dialog ($SD, “.\n”, 250) ;
if (length ($line) > 0)
{ printf (“FATAL! $ARGV[0] said: %s\n”, $line) ; }
$line = f_smtp_dialog ($SD, “QUIT\n”, 221) ;
if (length ($line) > 0)
{ printf (“FATAL! $ARGV[0] said: %s\n”, $line) ; }
exit (0) ;
|
