+
http://www.hoso.net/~yu-ji/newsbot/
newsbot.pl
# cache checkrss.pl
if (not existsCache($channel, $subject, $url)) {
# my($message);
# $message = $subject . ' ' . $url;
# push message up
push(@{$heap->{'buffer_send'}},
'NOTICE '
. encode($options->{'server_encoding'}, $channel) . ' :'
. encode($options->{'server_encoding'}, $url));
push(@{$heap->{'buffer_send'}},
'NOTICE '
. encode($options->{'server_encoding'}, $channel) . ' :'
. encode($options->{'server_encoding'}, $subject));
} else {
debugMsg("[$state] cache hit");
}
}
# load previous chDate
my($dir, $chDatePrev, $latestPrev, $period, $freq, $base);
($dir = $0) =~ s/\/rss\.pl\/dat$//;