/[Frey]/trunk/lib/Frey/Shell/Log.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Shell/Log.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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);
Legend:
Removed from v.910  
changed lines
  Added in v.911
  ViewVC Help
Powered by ViewVC 1.1.26