1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
#!/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 =();
}
|
