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 |
|
|
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); |