#!/usr/bin/perl
#
# Small Script to cummulate Output of parse_flowfiles
# Version 2 some more format

while (<>) 
{

# 195.88.111.233 10327 14327 JSMArts
# 195.88.111.222 64134 89127 692 608 1028154627 1028229704  JSMArts

   my $ip, $cust;
   chomp;
   ($ip,$inbytes,$outbytes,$inpkt,$outpkt,$first,$last,$cust,$rest)=split / +/;

#   printf ("IP: %s\n",$ip);
#   printf ("IN: %d\n",$inbytes);
#   printf ("Customer:%s\n",$cust.$rest);

   $db{$ip}->[0] += $inbytes  ;
   $db{$ip}->[1] += $outbytes ;
   $db{$ip}->[2] =  $cust.$rest ;
   
   $db2{$cust}->[0] += $inbytes  ;
   $db2{$cust}->[1] += $outbytes ;
   $db2{$cust}->[2] =  $cust.$rest ;
}


printf "\n";

foreach $key2 (keys %db2 ) {
   $valuesa = $db2{ $key2 };

   printf "Host: %s \nMB in:%12.2f     MB out:%12.2f \n",
#  printf "%s;%s;%s\n",
    $key2 ,
    $valuesa->[0]/1048576 ,
    $valuesa->[1]/1048576 ;

   foreach $ip (keys %db ) {
      $valuesb = $db{ $ip };
         
      if ($valuesb->[2] eq $key2)  {
    
         printf "IP: %16s \nMB in:%12.2f     MB out:%12.2f\n",
#        printf "%s;%s;%s;%s\n",
            $ip ,
            $valuesb->[0]/1048576, 
            $valuesb->[1]/1048576,
      }
   }
   print "-----------------------------------------------------------------\n";
}