diff options
| author | Tom Kistner <tom@duncanthrax.net> | 2008-12-04 11:24:17 +0100 |
|---|---|---|
| committer | Andreas Unterkircher <unki@netshadow.at> | 2008-12-12 23:18:56 +0100 |
| commit | f8a8bc98f9a77d24e0fce2abd73c9512bcf26f2d (patch) | |
| tree | 84af841fdb450b60d54e590ec02b9ddb0e671cba /lib/exilog_parse.pm | |
| parent | a35e1469841bfbc7e58b66dcefb108993bc4b494 (diff) | |
| download | exilog-f8a8bc98f9a77d24e0fce2abd73c9512bcf26f2d.zip exilog-f8a8bc98f9a77d24e0fce2abd73c9512bcf26f2d.tar.gz exilog-f8a8bc98f9a77d24e0fce2abd73c9512bcf26f2d.tar.bz2 | |
Forward unreleased changes
- IPv6 address parsing
- Some queue management
- Better SQL quoting
- More misc stuff
Signed-off-by: Tom Kistner <tom@duncanthrax.net>
Diffstat (limited to 'lib/exilog_parse.pm')
| -rw-r--r-- | lib/exilog_parse.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/exilog_parse.pm b/lib/exilog_parse.pm index 2074b13..f1d49df 100644 --- a/lib/exilog_parse.pm +++ b/lib/exilog_parse.pm @@ -40,7 +40,7 @@ sub _parse_error { $subj = _parse_delivery($subj,$h); m/()()/; - if ($subj =~ / host ([^ ]+?) \[([0-9.]+?)\]\:/) { + if ($subj =~ / host ([^ ]+?) \[([0-9A-Fa-f:.]+?)\]\:/) { $h->{host_addr} = $2; $h->{host_dns} = $1; }; @@ -58,7 +58,7 @@ sub _parse_deferral { $subj = _parse_delivery($subj,$h); - if ($subj =~ / host ([^ ]+?) \[([0-9.]+?)\]\:/) { + if ($subj =~ / host ([^ ]+?) \[([0-9A-Fa-f:.]+?)\]\:/) { $h->{host_addr} = $2; $h->{host_dns} = $1; }; @@ -138,7 +138,7 @@ sub _parse_arrival { if ($1) { my $hstr = $1; m/()/; - $hstr =~ s/\[([0-9.]+)\]$//; + $hstr =~ s/\[([0-9A-Fa-f:.]+)\]$//; $h->{host_addr} = $1 if ($1); $hstr =~ s/^ +//; |