You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
101 lines
3.4 KiB
101 lines
3.4 KiB
15 years ago
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
# This file is not released under any specific License. All Licenses, which
|
||
|
|
# might be requirered by knewsticker are explicitly accepted by the author
|
||
|
|
# whenver this file comes with knewsticker.
|
||
|
|
# Commonly this file simply underlies the regulations of international
|
||
|
|
# copyright. This file is copyrighted by anonymous coder .< bio@gmx.net>, A lot
|
||
|
|
# of help has been offered to me by malte, so thank him as well
|
||
|
|
|
||
|
|
|
||
|
|
use News::NNTPClient;
|
||
|
|
use POSIX qw(strftime);
|
||
|
|
use MIME::Words qw(:all);
|
||
|
|
|
||
|
|
# Enter your newsserver here, or set it in your /etc/nntpserver
|
||
|
|
$host = "news.chello.at";
|
||
|
|
|
||
|
|
#set EVERY group you wish to check here. Make sure you seperate them by one
|
||
|
|
#whitespace only. At present Knewsticker only handles ONE group per file, so
|
||
|
|
#please DO NOT SET MORE THAN 1 GROUP. It will break this scripts functionality
|
||
|
|
@groups = qw(at.linux);
|
||
|
|
|
||
|
|
#Specify here how many articles should be checked for EACH group you entered.
|
||
|
|
#The default value is 10. which means the newest 10 subjects are displayed
|
||
|
|
$get=10;
|
||
|
|
|
||
|
|
# STOP do NOT continue unless you KNOW what you are doing
|
||
|
|
# STOP STOP STOP STOP STOP STOP STOP STOP STOP
|
||
|
|
for my $group (@groups) {
|
||
|
|
$head ="<?xml version=\"1.0\"?>\n<\!DOCTYPE rss PUBLIC \"-//Netscape
|
||
|
|
Communications//DTD RSS 0.91//EN\"
|
||
|
|
\"http://my.netscape.com/publish/formats/rss-0.91.dtd\">\n<rss
|
||
|
|
version=\"0.91\">\n";
|
||
|
|
$static="<title> " . $group . " RSS file
|
||
|
|
</title>\n<link>http://www.kde.org</link>\n<description>This
|
||
|
|
is an automatically generated file using the NNTP to RSS generator for
|
||
|
|
Knewsticker.</description>\n<language>en-us</language>\n";
|
||
|
|
|
||
|
|
print $head;
|
||
|
|
print "<channel>\n";
|
||
|
|
print $static;
|
||
|
|
$now_string = strftime "%a, %d %b %Y %H:%M:%S %z", localtime;
|
||
|
|
print "<pubDate>" . $now_string . "</pubDate>\n";
|
||
|
|
|
||
|
|
sub read_etc_nntpserver {
|
||
|
|
my $rc;
|
||
|
|
open(FH, '</etc/nntpserver') || return undef;
|
||
|
|
$rc = scalar(<FH>);
|
||
|
|
close(FH);
|
||
|
|
$rc =~ s/\s*$//;
|
||
|
|
return $rc || undef;
|
||
|
|
}
|
||
|
|
$t = read_etc_nntpserver();
|
||
|
|
if(!defined $t) {
|
||
|
|
$t = $host;
|
||
|
|
}
|
||
|
|
|
||
|
|
$c = new News::NNTPClient($t);
|
||
|
|
|
||
|
|
(undef, $last) = ($c->group($group));
|
||
|
|
$thislast = ($last-$get);
|
||
|
|
|
||
|
|
@b = map { $_ = decode_mimewords $_ } $c->xhdr("Subject", $thislast, $last);
|
||
|
|
@c= map { s/&/&/g; s/\(/(/g; s/\)/)/g; s/@/@/g; s/</</g;
|
||
|
|
s/>/>/g; $_ } @b;
|
||
|
|
foreach (@c) { /(\d+)\s*(.*)\s*/ and $postings{$1} = {'subject' => $2}; }
|
||
|
|
|
||
|
|
@b = map { $_ = decode_mimewords $_ } $c->xhdr("From", $thislast, $last);
|
||
|
|
@c= map { s/&/&/g; s/\(/(/g; s/\)/)/g; s/@/@/g; s/</</g;
|
||
|
|
s/>/>/g; $_ } @b;
|
||
|
|
foreach (@c) { /(\d+)\s*(.*)\s*/ and $postings{$1}->{'from'} = $2; }
|
||
|
|
|
||
|
|
@b = $c->xhdr("Message-ID", $thislast, $last);
|
||
|
|
@c= map { s/&/&/g; s/\(/(/g; s/\)/)/g; s/</</g; s/>/>/g; $_ }
|
||
|
|
@b;
|
||
|
|
foreach (@c) { /(\d+)\s*(.*)\s*/ and $postings{$1}->{'message-id'} = $2; }
|
||
|
|
|
||
|
|
for ($i = $thislast; $i != $last+1; $i++) {
|
||
|
|
@b = $c->body($i);
|
||
|
|
@c= map { s/&/&/g; s/\(/(/g; s/\)/)/g; s/</</g; s/>/>/g; $_ }
|
||
|
|
@b;
|
||
|
|
@d= (grep !/^$/, @c)[0..3];
|
||
|
|
foreach (@d) { $postings{$i}->{'body'} .= $_ ; }
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
foreach my $id (sort keys %postings)
|
||
|
|
{
|
||
|
|
print "<item>\n";
|
||
|
|
print "<title>" . $postings{$id}->{'subject'} .
|
||
|
|
"</title>\n";
|
||
|
|
print "<link>nntp://" . $t ."/" . $group ."/" .
|
||
|
|
$postings{$id}->{'message-id'} ."</link>\n";
|
||
|
|
print "<description> This article has been posted by " .
|
||
|
|
$postings{$id}->{'from'} . " containing:\n " . $postings{$id}->{'body'}
|
||
|
|
. "</description>\n</item>\n";
|
||
|
|
}
|
||
|
|
print "</channel>\n</rss>\n";
|
||
|
|
%postings =();
|
||
|
|
}
|