#!/usr/bin/perl
#
# Small Script to cummulate Output of parse_flowfiles

while (<>) 
{

# 195.88.111.233 10327 14327 JSMArts
# 213.23.220.167 1297181 1456158 24580 42354 1054493064 1054494120 4984 7575 DEFAULT


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

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


foreach $key (keys %db ) {
  $values = $db{ $key };

#  if( $values->[0]+ $values->[1]  > 1024*1024*10) {
  
     printf "%20s %12.2f %12.2f %s \n",
#     printf "%s;%.2f;%.2f;%s\n",
#     printf "%s;%s;%s;%s\n",
      $key ,
      $values->[0]/1048576, 
      $values->[1]/1048576,
      $values->[2] ;
#  }
}

printf "\n";

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

#  if( $values->[0]+ $values->[1]  > 1024*1024*10) {

   printf "%12.2f %12.2f %s\n",
#   printf "%.2f;%.2f;%s\n",
#   printf "%s;%s;%s\n",
     $values->[0]/1048576 ,
     $values->[1]/1048576 ,
     $key2 ;

#   }
}