58 |
while(<$fh>) { |
while(<$fh>) { |
59 |
chomp; |
chomp; |
60 |
|
|
61 |
if ( m{^(\w\w\w) (\d\d) (\d\d:\d\d:\d\d) (.+)} ) { |
if ( m{^(\w\w\w)\s+(\d+)\s+(\d\d:\d\d:\d\d)\s+(.+)} ) { |
62 |
my $message = $4; |
my $message = $4; |
63 |
my $mm = $month2nr->{lc($1)} || die "month $1 unknown"; |
my $mm = $month2nr->{lc($1)} || die "month $1 unknown"; |
64 |
my $dt = sprintf("%04d-%02d-%02d %s", $yyyy, $mm, $2, $3, $4); |
my $dt = sprintf("%04d-%02d-%02d %s", $yyyy, $mm, $2, $3, $4); |
84 |
NAME => [ 'date', 'message' ], |
NAME => [ 'date', 'message' ], |
85 |
rows => [ sort { $a->[0] cmp $b->[0] } @rows ], |
rows => [ sort { $a->[0] cmp $b->[0] } @rows ], |
86 |
stats => $stats, |
stats => $stats, |
87 |
|
log_command => $cmd, |
88 |
} |
} |
89 |
} |
} |
90 |
|
|