X-Git-Url: https://git.openstreetmap.org./dns.git/blobdiff_plain/2aa7289339d387f9a7158c41c1418dd95747467b..a2a89e9a7be9171d8e913f8df5b8c9f0457d1244:/bin/sumlogs diff --git a/bin/sumlogs b/bin/sumlogs index 7a06287..7096bde 100755 --- a/bin/sumlogs +++ b/bin/sumlogs @@ -3,45 +3,31 @@ use strict; use warnings; -use Net::Patricia; +use Geo::IP; use YAML; -my $pt = new Net::Patricia; - -open(COUNTRIES, "< countries.conf") || die "Can't open /etc/powerdns/countries.conf"; - -while (my $line = ) -{ - if ($line =~ /^(\d+\.\d+\.\d+\.\d+\/\d+)\s+:127\.\d+\.\d+\.\d+:([a-z]{2})/) - { - my $address = $1; - my $country = uc($2); - - $pt->add_string($address, $country); - } -} - -close(COUNTRIES); - +my $gi = Geo::IP->open("/usr/share/GeoIP/GeoIP.dat", GEOIP_MEMORY_CACHE); +my $total_bandwidth = 560 * 1024 * 1024; my $total_bytes = 0; my %country_bytes; while (my $record = <>) { - if ($record =~ /^\d+\.\d+\s+\d+\s+(\d+\.\d+\.\d+\.\d+)\s+TCP_[A-Z_]+\/\d+\s+(\d+) (?:GET|HEAD|POST) /) + if ($record =~ /^\d+\.\d+\s+\S+\s+".*"\s+(\d+\.\d+\.\d+\.\d+)\s+".*"\s+(\d+)$/) { my $ip = $1; my $bytes = $2; - my $country = $pt->match_string($ip); + my $country = $gi->country_code_by_addr($ip); - $country_bytes{$country} += $bytes if defined($country); + if (defined($country) && + $country ne "A1" && $country ne "A2" && + $country ne "01" && $country ne "--") + { + $country_bytes{$country} += $bytes; + } $total_bytes += $bytes; } - elsif ($record =~ /^\d+\.\d+\s+\d+\s+(\d+\.\d+\.\d+\.\d+)\s+UDP_[A-Z_]+\/\d+\s+(\d+) ICP_QUERY /) - { - # do nothing - } else { warn $record; @@ -52,7 +38,7 @@ my %country_bandwidth; while (my($country,$bytes) = each %country_bytes) { - $country_bandwidth{$country} = $bytes * 250 * 1024 * 1024 / $total_bytes; + $country_bandwidth{$country} = $bytes * $total_bandwidth / $total_bytes; } print Dump(\%country_bandwidth);