#!/usr/bin/perl

$hostname = "HOST\.YOUR\.DOMAIN";

$uptime = `uptime`;
$uptime =~ /up (.*?),/;
$uptime = $1;

$start =`/usr/sbin/rndc stats`;
$log   ="/var/named/named.stats";

@stat = `tail -n 15 $log`;

$last_success = $stat[0];
$last_success =~ tr/^[0-9]\ file://cd;
$last_failure = $stat[5];
$last_failure =~ tr/^[0-9]\ file://cd;

$latest_success = $stat[8];
$latest_success =~ tr/^[0-9]\ file://cd;
$latest_failure = $stat[13];
$latest_failure =~ tr/^[0-9]\ file://cd;

$success = $latest_success - $last_success;
unless ($success eq "0"){ $success ++; }

$failure = $latest_failure - $last_failure;
unless ($failure eq "0"){ $failure ++; }

print "$success\n$failure\n$uptime\n$hostname\n";

exit;