use strict;

my $startTime;
my $lastTime;
my $clientName;

my $state = 'starting';
while ( my $line = <STDIN> ) {
    chomp $line;

    if ( 'starting' eq $state ) {
        if ( $line =~ /------------/ ) {
            $state     = 'scanning';
            $startTime = _getTime($line);

            # read the next line for the client name;
            $line = <STDIN>;
            chomp $line;

            my @chunks = split( / /, $line );
            $clientName = $chunks[7];
            next;
        }
    }

    if ( 'scanning' eq $state ) {
        my $mightBeLastTime = _getTime($line);
        $lastTime = $mightBeLastTime if $mightBeLastTime > 0;

        #        $lastTime = _getTime($line);
        if ( $line =~ /------------/ ) {
            _printClientTime( $startTime, $lastTime, $clientName );
            $startTime = $lastTime;

            # read the next line for the client name;
            $line = <STDIN>;
            chomp $line;

            my @chunks = split( / /, $line );
            $clientName = $chunks[7];
            next;
        }
    }

    #Mon Sep 15 14:34:28 2008 ------------
    #Mon Sep 15 14:34:28 2008 client 73 C_ALPHAPUP

}

_printClientTime( $startTime, $lastTime, $clientName );

sub _getTime {
    my ($line) = @_;

    my @chunks = split( / /, $line );
    return $chunks[3];
}

sub _printClientTime {
    my ( $startTime, $lastTime, $clientName ) = @_;

    my $delta = _calcDelta( $startTime, $lastTime );
    print "$clientName\t$delta\n";
}

sub _calcDelta {
    my ( $start, $end ) = @_;

    my $startSeconds = _toSeconds($start);
    my $endSeconds   = _toSeconds($end);
    my $deltaSeconds = $endSeconds - $startSeconds;

    my $hours = int( ( $deltaSeconds / ( 60 * 60 ) ) );
    $hours = 0 unless $hours > 1;
    my $hourSeconds = $hours * 60 * 60;

    my $minutes = int( ( $deltaSeconds - $hourSeconds ) / 60 );
    $minutes = 0 unless $minutes > 0;
    my $minuteSeconds = $minutes * 60;

    my $seconds = $deltaSeconds - $hourSeconds - $minuteSeconds;
    $seconds = 0 unless $seconds > 0;

    return sprintf( "%02d:%02d:%02d", $hours, $minutes, $seconds );
}

sub _toSeconds {
    my ($time) = @_;

    my ( $hours, $minutes, $seconds ) = split( ':', $time );

    return $seconds + ( $minutes * 60 ) + ( $hours * 60 * 60 );
}