| 66 |
$b->set_elements (message => @msgreg); |
$b->set_elements (message => @msgreg); |
| 67 |
$b->set_regex (metainfo => shift (@metareg)) if @metareg > 0; |
$b->set_regex (metainfo => shift (@metareg)) if @metareg > 0; |
| 68 |
$b->set_elements (metainfo => @metareg) if @metareg > 0; |
$b->set_elements (metainfo => @metareg) if @metareg > 0; |
| 69 |
|
eval q{$b->set_element_decoders ($module->element_decoders)} or vprint $@; |
| 70 |
my %face = $module->face; |
my %face = $module->face; |
| 71 |
for (keys %face) { |
for (keys %face) { |
| 72 |
$b->default_parameter ($_ => $face{$_}); |
$b->default_parameter ($_ => $face{$_}); |
| 79 |
dprint 'Latest-Posted-Date: '.$latest_time; |
dprint 'Latest-Posted-Date: '.$latest_time; |
| 80 |
for ($b->make_msgs) { |
for ($b->make_msgs) { |
| 81 |
my $t = $_->header->field ('date'); |
my $t = $_->header->field ('date'); |
| 82 |
next if 0+$latest_time >= 0+$t; |
if (0+$latest_time >= 0+$t) { |
| 83 |
|
vprint 'Already posted: Date: '.$t; |
| 84 |
|
next; |
| 85 |
|
} |
| 86 |
$time = $t if $t > $time || !$time; |
$time = $t if $t > $time || !$time; |
| 87 |
vprint 'Date: '.$t; |
vprint 'Date: '.$t; |
| 88 |
|
|
Parent Directory
| 
Revision Log
| 
Patch