Parent Directory | Revision Log | Patch
revision 910 by dpavlin, Fri Dec 26 01:32:09 2008 UTC | revision 911 by dpavlin, Sat Jan 3 13:38:43 2009 UTC | |
---|---|---|
# | Line 58 sub as_sponge { | Line 58 sub as_sponge { |
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); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |