#!/usr/bin/perl -w

use strict;
use LogAnalyze;
use Data::Dumper;

print 'Trying to get logfile ... ';
my $log = LogAnalyze->new('c:/temp/anaboe/logfiles') or die 'No object';
$log->getLogFile( { 'ftp'     => 'ftp.anaboe.net',
                    'user'    => 'anaboe_net',
                    'pass'    => 'napoleon',
                    'ftp_dir' => 'logs',
                    'logfile' => 'anaboe.net.access_log'
                  }) or die $LogAnalyze::ErrorMsg;
print 'done.', "\n";
print 'Parsing logfile ... ';
$log->parseLogFile or die $LogAnalyze::ErrorMsg;
print 'done.', "\n";
my $arrayref = $log->statTop( { level => 20, field => 'uas' } );
foreach (@$arrayref) {
  print $_->{ref}, ": ", $_->{count}, "\n";
}
#print Dumper $arrayref;