1 |
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
2 |
|
|
3 |
|
# Parse output from bind9 rndc stats command |
4 |
|
# Dobrica Pavlinusic, <dpavlin@rot13.org> |
5 |
|
# http://www.rot13.org/~dpavlin/sysadm.html |
6 |
|
# |
7 |
|
# Usage: parse_bind9stat.pl [/var/log/stats.dump [/usr/sbin/rndc]] |
8 |
|
|
9 |
use strict; |
use strict; |
10 |
|
|
11 |
my $log = shift @ARGV || "/var/log/stats.dump"; |
my $log = shift @ARGV || "/var/log/stats.dump"; |
50 |
} |
} |
51 |
|
|
52 |
} |
} |
|
close(DUMP); |
|
53 |
|
|
54 |
open(D,"> $delta") || die "can't open delta file '$delta' for log '$log': $!"; |
open(D,"> $delta") || die "can't open delta file '$delta' for log '$log': $!"; |
55 |
print D tell(DUMP); |
print D tell(DUMP); |
56 |
close(D); |
close(D); |
57 |
|
|
58 |
|
close(DUMP); |
59 |
|
|
60 |
foreach (@counters) { |
foreach (@counters) { |
61 |
print $total{$_},"\n",$forward{$_},"\n",$reverse{$_},"\n"; |
print $total{$_},"\n",$forward{$_},"\n",$reverse{$_},"\n"; |
62 |
} |
} |