Rewrite util_send_status_mail to go through the SMTP server
So emails get signed by qpsmtpd
This commit is contained in:
parent
437332781d
commit
972ef40482
|
@ -1,23 +1,31 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
use Mail::Send;
|
||||
use esmith::ConfigDB;
|
||||
use MIME::Lite;
|
||||
use Net::SMTP;
|
||||
|
||||
my $c = esmith::ConfigDB->open_ro();
|
||||
my $c = esmith::ConfigDB->open_ro();
|
||||
my $domain = $c->get('DomainName')->value();
|
||||
my $host = $c->get('SystemName')->value();
|
||||
my $z = $c->get('zabbix-agent');
|
||||
my $dest = $z->prop('StatusRecipient') || 'admin@' . $domain;
|
||||
my $host = $c->get('SystemName')->value();
|
||||
my $z = $c->get('zabbix-agent');
|
||||
my $dest = $z->prop('StatusRecipient') || 'admin@' . $domain;
|
||||
|
||||
my $mail = new Mail::Send;
|
||||
$mail->to("$dest");
|
||||
$mail->set("From","zabbix-agent");
|
||||
$mail->subject("[STATUS] $host.$domain");
|
||||
my $body = $mail->open;
|
||||
print $body localtime(time)."\n",
|
||||
"\n#>tail /var/log/messages :\n",
|
||||
`/usr/bin/tail \$(readlink /var/log/messages)`,
|
||||
"\n#>netstat --numeric-hosts -tpu :\n",
|
||||
`/bin/netstat --numeric-hosts -tpu`;
|
||||
$body->close;
|
||||
my $smtp = Net::SMTP->new('localhost');
|
||||
my $mail = MIME::Lite->new(
|
||||
From => 'smeserver-status@' . $domain,
|
||||
To => $dest,
|
||||
Subject => "[STATUS] $host.$domain",
|
||||
Data => localtime(time)."\n" .
|
||||
"\n#>tail /var/log/messages :\n" .
|
||||
`/usr/bin/tail \$(readlink /var/log/messages)` .
|
||||
"\n#>netstat --numeric-hosts -tpu :\n" .
|
||||
`/bin/netstat --numeric-hosts -tpu`
|
||||
);
|
||||
|
||||
$smtp->mail('smeserver-status@' . $domain);
|
||||
$smtp->recipient($dest);
|
||||
$smtp->data();
|
||||
$smtp->datasend($mail->as_string);
|
||||
$smtp->dataend();
|
||||
$smtp->quit;
|
||||
|
||||
|
|
Loading…
Reference in New Issue