#!/usr/bin/perl -w

use strict;
use warnings;
use Getopt::Long;
use FindBin;
use lib ("$FindBin::Bin/../lib", "$FindBin::Bin/../extlib");
use MT::Util::PerformanceData;

GetOptions(
    'path=s' => \my ($logs_path),
    'file=s' => \my ($log_file),
    'sort=s' => \my ($sort_key),
);

if ( !$logs_path ) {
    usage();
    exit;
}

opendir my $DIRH, $logs_path or die "couldn't open $logs_path: $!";
my @dir = readdir $DIRH;
closedir $DIRH;

foreach my $file (@dir) {
    next if $file eq '.' or $file eq '..';
    next if $log_file && $file ne $log_file;
    my $data = MT::Util::PerformanceData->new(
        path => $logs_path,
        file => $file,
    );
    $data->report( sort => $sort_key, );
}

sub usage {
    print STDERR << "EOT";
usage: $0 -path='log_files_path' [-file='log_file'] [-sort='sort_key']
EOT
}
