/[mws]/trunk/mbox2index.pl
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/mbox2index.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 52 by dpavlin, Tue May 25 18:55:46 2004 UTC revision 53 by dpavlin, Fri Jun 18 14:56:40 2004 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  BEGIN {  BEGIN {
4          my $basedir = readlink($0) || $0; $basedir =~ s#/[^/]+$#lib#;          my $basedir = readlink($0) || $0; $basedir =~ s#/[^/]+$#/lib#;
5          unshift(@INC, $basedir);          unshift(@INC, $basedir);
6  }  }
7    
# Line 95  foreach my $mbox ($mws->{config}->Parame Line 95  foreach my $mbox ($mws->{config}->Parame
95    
96                  $document->{'body'} = $mws->plain_text_body($message);                  $document->{'body'} = $mws->plain_text_body($message);
97    
98                  my $utime = str2time($message->date);                  my $utime = $message->timestamp;
99    
100                  $document->{'date_utime'} = $utime;                  $document->{'date_utime'} = $utime;
101                  $document->{'date'} = strftime("%Y-%m-%d %H:%M:%S", localtime($utime)) if ($utime);                  $document->{'date'} = strftime("%Y-%m-%d %H:%M:%S", localtime($utime)) if ($utime);
Legend:
Removed from v.52  
changed lines
  Added in v.53
  ViewVC Help
Powered by ViewVC 1.1.26