--- parse_bind9stat.pl 2002/07/01 19:19:47 1.1 +++ parse_bind9stat.pl 2002/07/01 19:45:19 1.2 @@ -2,10 +2,10 @@ use strict; -my $bind9_dump = "/var/log/named/stats.dump"; -my $rndc = "/usr/local/sbin/rndc stats"; +my $bind9_dump = shift @_ || "/var/log/named/stats.dump"; +my $rndc = shift @_ || "/usr/local/sbin/rndc"; -system $rndc; +system "$rndc stats"; my @counters = qw(success referral nxrrset nxdomain recursion failure);