serverity 760660 grave
forcemerge 760660 784302
tags 760660 patch
thanks
Okay, it seems that the local copy of the Parse::Syslog module now
conflicts with the stock perl one. The attached patch puts this under a
BindGraph namespace to avoid the conflict -- allowing BindGraph to start
up normally.
Hope this helps,
--Joe
--- /usr/sbin/bindgraph.pl.orig 2006-05-10 23:31:02.000000000 +0000
+++ /usr/sbin/bindgraph.pl 2018-01-15 14:11:40.604487007 +0000
@@ -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 BindGraph::Parse::Syslog;
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(BindGraph::Parse::Syslog);
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 = BindGraph::Parse::Syslog::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 BindGraph::Parse::Syslog(@parser_args);
} else {
print STDERR "Unknown log format '$opt{format}'.\n";
exit 1;
