#!/usr/bin/perl -w

use Mail::Send;
use esmith::ConfigDB;

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 $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;