32 lines
993 B
Perl
32 lines
993 B
Perl
#!/usr/bin/perl -w
|
|
|
|
use esmith::ConfigDB;
|
|
use MIME::Lite;
|
|
use Net::SMTP;
|
|
|
|
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 $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;
|
|
|