Adjust load to longma and vhagar

[dns.git] / bin / sumlogs

diff --git a/bin/sumlogs b/bin/sumlogs
index 400a3631ca724753cf5e65469c21fe38b99406b1..7096bded346239d7d7bc9486490408783637ded6 100755 (executable)
--- a/bin/sumlogs
+++ b/bin/sumlogs
@@ -3,45 +3,31 @@
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 

-use Net::Patricia;
+use Geo::IP;

 use YAML;
 
 use YAML;
 

-my $pt = new Net::Patricia;
-
-open(COUNTRIES, "< countries.conf") || die "Can't open /etc/powerdns/countries.conf";
-
-while (my $line = <COUNTRIES>)
-{
-    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 = <>)
 {
 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 $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;
     }
 
         $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;
     else
     {
         warn $record;


@@ -52,7 +38,7 @@ my %country_bandwidth;
 
 while (my($country,$bytes) = each %country_bytes)
 {
 
 while (my($country,$bytes) = each %country_bytes)
 {

-    $country_bandwidth{$country} = $bytes * 300 * 1024 * 1024 / $total_bytes;
+    $country_bandwidth{$country} = $bytes * $total_bandwidth / $total_bytes;

 }
 
 print Dump(\%country_bandwidth);
 }
 
 print Dump(\%country_bandwidth);