webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-15 13:32:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

BUG10502: Fix wrong interfaces in firewall.log

Browse Source 
Fix from BeBiMa
This commit is contained in:
Bernhard Bitsch
2015-03-10 18:48:34 +01:00
committed by Michael Tremer
parent b8a97bd943
commit ea40188f66
1 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
html/cgi-bin/logs.cgi/firewalllog.dat
View File

@@ -334,13 +334,14 @@ foreach $_ (@log)
my $comment = $3;
my $packet = $4;
$packet =~ /IN=(\w+)/; my $iface=$1; if ( $1 =~ /2./ ){ $iface="";}
$packet =~ /SRC=([\d\.]+)/; my $srcaddr=$1;
$packet =~ /DST=([\d\.]+)/; my $dstaddr=$1;
$packet =~ /MAC=([\w+\:]+)/; my $macaddr=$1;
$packet =~ /PROTO=(\w+)/; my $proto=$1;
$packet =~ /SPT=(\d+)/; my $srcport=$1;
$packet =~ /DPT=(\d+)/; my $dstport=$1;
my ($iface, $srcaddr, $dstaddr, $macaddr, $proto, $srcport, $dstport);
$iface=$1 if $packet =~ /IN=(\w+)/;
$srcaddr=$1 if $packet =~ /SRC=([\d\.]+)/;
$dstaddr=$1 if $packet =~ /DST=([\d\.]+)/;
$macaddr=$1 if $packet =~ /MAC=([\w+\:]+)/;
$proto=$1 if $packet =~ /PROTO=(\w+)/;
$srcport=$1 if $packet =~ /SPT=(\d+)/;
$dstport=$1 if $packet =~ /DPT=(\d+)/;
my $gi = Geo::IP::PurePerl->new();
my $ccode = $gi->country_code_by_name($srcaddr);