1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!/usr/bin/perl
`/usr/sbin/rndc stats`;
@data = `tail -n 15 /var/named/named.stats`;
$old_ok = $data[0];
$old_fail = $data[5];
$old_ok =~ tr/^[0-9]\ //cd;
$old_fail =~ tr/^[0-9]\ //cd;
$ok = $data[8];
$fail = $data[13];
$ok =~ tr/^[0-9]\ //cd;
$fail =~ tr/^[0-9]\ //cd;
$ok = $ok - $old_ok;
$fail = $fail - $old_fail;
unless ($ok eq "0"){ $ok ++; }
unless ($fail eq "0"){ $fail ++; }
print "$fail\n$ok\n";
exit;
|
Informations rapides
