Anonymous

#!/usr/bin/perl

my $mon, $day, $year;
while(<STDIN>) {
        s/^(\d\d\d\d)-(\d\d)-(\d\d)/\1\2\3/;
        
        if (/^--- Log opened ... (...) (\d\d) \d\d:\d\d:\d\d (\d\d\d\d)/) {
                if ($1 eq 'Apr') { $mon = '04';}
                if ($1 eq 'May') {$mon = '05';}
                $day = $2;
                $year = $3;
        }
        if (/^--- Day changed ... (...) (\d\d) (\d\d\d\d)/) {
                if ($1 eq 'Apr') {$mon = '04';}
                if ($1 eq 'May') {$mon = '05';}
                $day = $2;
                $year = $3;
        }

        if (/^\d\d:\d\d /) {
                s/^(\d\d:\d\d) /$year$mon$day \1:00/
                #stary format logu
        }

        print;
}