#!/usr/bin/perl

# itr -- by greenfly
# a quick web scrubber that grabs and outputs stats from 
# www.internettrafficreport.com in a compact format

open ITR, "wget -q -O - http://www.internettrafficreport.com/main.htm |";
@itr = <ITR>;
close ITR;

@itr = split /\n/, strip_tags(@itr);

for($i = 0; $i < $#itr; $i++)
{
   $itr[$i] =~ s/^\t//g;
   $itr[$i] =~ s/\t$//g;
   if($itr[$i] eq "Continent\tCurrent Index\tAvg. Response Time \(ms\)\tAvg. Packet Loss \(\%\)")
   {
      $at_stats = 1;
      next;
   }
   if($at_stats && $itr[$i] eq "")
   {
      print "www.internettrafficreport.com\n";
      last;
   }
   if($at_stats)
   {
      ($country, $index, $response, $pktloss) = split /\t/, $itr[$i];
      $country =~ s/Australia/Au/;
      $country =~ s/North America/N.A./;
      $country =~ s/South America/S.A./;
      $pktloss =~ s/ //g;
      print "[$country|$index|$response|$pktloss] ";
   }

}




sub strip_tags
{
   @local = shift;
   my $tmp;

   foreach(@local)
   {
      s/<table.*?>/\n/g;
      s/<\/tr>/\n/g;
      s/<.*?>/\t/g;
      s/\t+/\t/g;
      $tmp .= $_;
   }

   return $tmp;
}