This is with log_level=4 and log_detail=protocols
[2010/08/26-21:36:49 - 29431] [CORE] INFO: 2010/08/26-21:36:49 CONNECT
TCP Peer: "127.0.0.1:37561" Local: "127.0.0.1:10031"
[2010/08/26-21:36:49 - 29431] [PROTOCOLS/Postfix] DEBUG: Possible
Postfix protocol
[2010/08/26-21:36:49 - 29431] [PROTOCOLS/Postfix] INFO: Identified
Postfix protocol
[2010/08/26-21:36:49 - 29431] [PROTOCOLS/Postfix] ERROR: Error,
parameter 'client_address' cannot be
'2001:470:8a93:2:20c:29ff:fee9:9689'
[2010/08/26-21:36:49 - 29431] [CBPOLICYD] ERROR: Protocol data
validation error, required parameter 'client_address' was not found or
invalid format
[2010/08/26-21:36:49 - 28424] [CORE] INFO: Starting "1" children
[2010/08/26-21:36:49 - 31911] [CORE] DEBUG: Child Preforked (31911)
[2010/08/26-21:36:49 - 31911]
[CBPOLICYD] DEBUG: Starting up caching engine
Please try the attached patch.
Robert
Index: awitpt/netip.pm
===================================================================
--- awitpt/netip.pm (revision 14)
+++ awitpt/netip.pm (working copy)
@@ -285,7 +285,7 @@
}
# Does the IP address have more than one '::' pattern ?
- my $count;
+ my $count = 0;
while ($ip =~ /::/g) {
$count++;
}
@@ -443,7 +443,7 @@
}
# Does the IP address have more than one '::' pattern ?
- my $count;
+ my $count = 0;
while ($self->{'raw_ip'} =~ /::/g) {
$count++;
}
@@ -453,7 +453,7 @@
}
# Expand address
- my $tempIP;
+ my $tempIP = $self->{'raw_ip'};
if ($numOctets < 8) {
# If there is no :: return 0
@@ -473,8 +473,6 @@
}
my $octets = join(':', @missingOctets);
- $tempIP = $self->{'raw_ip'};
-
# Replace ::
$tempIP =~ s/::/:$octets:/g;
_______________________________________________
Users mailing list
[email protected]
http://lists.policyd.org/mailman/listinfo/users
