--- /usr/sbin/bindgraph.pl 2006-05-11 01:31:02.000000000 +0200 +++ bindgraph.pl 2015-07-27 22:46:00.344293427 +0200 @@ -20,7 +20,7 @@ # I'm embedding Parse::Syslog not to help lazy admins but because BIND # logs cannot be parsed by the standard version. -package Parse::Syslog; +package Parse::BgSyslog; use Carp; use Symbol; @@ -222,7 +222,7 @@ # this code parses the querylog of BIND 9.3 package Parse::Log::Bind93; -use base qw(Parse::Syslog); +use base qw(Parse::BgSyslog); use Carp; sub next($) @@ -260,7 +260,7 @@ $self->{_last_mon} = $mon; # convert to unix time - my $time = Parse::Syslog::str2time($ss, $mm, $hh, $d, $mon, + my $time = Parse::BgSyslog::str2time($ss, $mm, $hh, $d, $mon, $self->{year}-1900, $self->{GMT}); return [ @@ -350,7 +350,7 @@ } $parser = new Parse::Log::Bind93(@parser_args); } elsif ($opt{format} and $opt{format} eq 'bind92') { - $parser = new Parse::Syslog(@parser_args); + $parser = new Parse::BgSyslog(@parser_args); } else { print STDERR "Unknown log format '$opt{format}'.\n"; exit 1;