# Author: Michael Collins (colli2mj@jmu.edu, mcollins@va.rr.com)
# Description: The script will dump DNS stats and display the number
#  of successes over the specified interval. The 1st value will always
#  dropped.

@DUMPARGS = ("/usr/local/RRBind/sbin/rndc", "stats");
$STATSLOG = "/var/named/log/named.stats";
@RESETARGS = ("rm", "$STATSLOG");

$last = 0;

print("Enter interval between checks (secs): ");
chop($interval = <STDIN>);

print("Enter time to continue (secs): ");
chop($time = <STDIN>);

close(STDIN);


for($ii = 0; $ii*$interval<$time; $ii++)
{ 
  system(@RESETARGS);
  system(@DUMPARGS);

  open(LOG, $STATSLOG); 
  @raw = <LOG>;
  close(LOG);
  
  @success = split / /, $raw[1];
  $success = $success[1];
  chop($success);
  if($ii>0)  
    { print($success - $last, "\n"); }
  $last = $success;
  if($ii*($interval+1)<$time)
    { sleep($interval); }
}