670 |
sub rss_fetch { |
sub rss_fetch { |
671 |
my ($args) = @_; |
my ($args) = @_; |
672 |
|
|
|
|
|
673 |
# how many messages to send out when feed is seen for the first time? |
# how many messages to send out when feed is seen for the first time? |
674 |
my $send_rss_msgs = 1; |
my $send_rss_msgs = 1; |
675 |
|
|
687 |
for my $entry ($feed->entries) { |
for my $entry ($feed->entries) { |
688 |
$total++; |
$total++; |
689 |
|
|
690 |
|
my $seen_times = $_stat->{rss}->{seen}->{$args->{channel}}->{$feed->link}->{$entry->id}++; |
691 |
# seen allready? |
# seen allready? |
692 |
next if $_stat->{rss}->{seen}->{$args->{channel}}->{$feed->link}->{$entry->id}++ > 0; |
warn "## $seen_times ",$feed->link if $debug; |
693 |
|
next if $seen_times > 0; |
694 |
|
|
695 |
sub prefix { |
sub prefix { |
696 |
my ($txt,$var) = @_; |
my ($txt,$var) = @_; |
723 |
$msg .= prefix( ' ' , $tags ); |
$msg .= prefix( ' ' , $tags ); |
724 |
} |
} |
725 |
|
|
726 |
if ( $args->{kernel} && $send_rss_msgs ) { |
if ( $seen_times == 0 && $send_rss_msgs ) { |
727 |
$send_rss_msgs--; |
$send_rss_msgs--; |
728 |
if ( ! $args->{private} ) { |
if ( ! $args->{private} ) { |
729 |
# FIXME bug! should be save_message |
# FIXME bug! should be save_message |