3 # Script to retrieve a single article from a news server, either by
4 # message-id or by group name and article number.
6 # Usage: nntpid <messageid>
7 # or: nntpid messageid (angle brackets optional)
8 # or: nntpid news.group.name 1234 (group+number form)
9 # or: nntpid -a news.group.name (download all available articles)
11 # The name of your news server is obtained from the environment variable
12 # NNTPSERVER, or from the file /etc/nntpserver if that's not set.
14 # This script supports AUTHINFO GENERIC authentication using the
15 # environment variable NNTPAUTH. It will only attempt this if it receives
16 # a 480 response from the news server; if your news server isn't paranoid
17 # then the script will never need to look at NNTPAUTH.
19 # Copyright 2000 Simon Tatham. All rights reserved.
20 # FIXME: put in a licence notice.
27 "usage: nntpid [ -v ] [ -d ] <message-id>\n" .
28 " or: nntpid [ -v ] [ -d ] <newsgroup> <article-number>\n" .
29 " or: nntpid [ -v ] -a <newsgroup>\n" .
30 "where: -v verbose (print interaction with news server)\n" .
31 " -d direct output (don't consider using PAGER)\n" .
32 " -a dump all articles in group to stdout as mbox\n" .
33 " also: nntpid --version report version number\n" .
34 " nntpid --help display this help text\n" .
35 " nntpid --licence display (MIT) licence text\n";
38 "nntpid is copyright 2000,2004 Simon Tatham.\n" .
40 "Permission is hereby granted, free of charge, to any person\n" .
41 "obtaining a copy of this software and associated documentation files\n" .
42 "(the \"Software\"), to deal in the Software without restriction,\n" .
43 "including without limitation the rights to use, copy, modify, merge,\n" .
44 "publish, distribute, sublicense, and/or sell copies of the Software,\n" .
45 "and to permit persons to whom the Software is furnished to do so,\n" .
46 "subject to the following conditions:\n" .
48 "The above copyright notice and this permission notice shall be\n" .
49 "included in all copies or substantial portions of the Software.\n" .
51 "THE SOFTWARE IS PROVIDED \"AS IS\", WITHOUT WARRANTY OF ANY KIND,\n" .
52 "EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF\n" .
53 "MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND\n" .
54 "NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS\n" .
55 "BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN\n" .
56 "ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN\n" .
57 "CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE\n" .
64 while ($ARGV[0] =~ /^-(.+)$/) {
66 $verbose = 1, next if $1 eq "v";
67 $pager = 0, next if $1 eq "d";
68 $all = 1, next if $1 eq "a";
72 } elsif ($1 eq "-version") {
73 if ('$Revision$' =~ /Revision:\s+(\d+)/) {
74 print "nntpid revision $1\n";
76 print "nntpid: unknown revision\n";
79 } elsif ($1 eq "-licence" or $1 eq "-license") {
85 die $usage if !defined $ARGV[0];
89 } elsif (defined $ARGV[1]) {
100 $ns=$ENV{'NNTPSERVER'};
101 if (!defined $ns or !length $ns) {
102 $ns = `cat /etc/nntpserver`;
104 $port = (getservbyname("nntp", "tcp"))[2];
105 $ns = inet_aton
($ns);
106 $proto = getprotobyname("tcp");
107 $paddr = sockaddr_in
($port, $ns);
109 socket(S
,PF_INET
,SOCK_STREAM
,$proto) or die "socket: $!";
110 connect(S
,$paddr) or die "connect: $!";
114 $fatal = 1; # most errors need to be fatal
117 $code =~ /^2\d\d/ or die "no initial greeting from server\n";
119 &docmd
("MODE READER");
120 # some servers require a GROUP before an ARTICLE command
121 $numbers = &docmd
("GROUP $group");
123 @numbers = split / /, $numbers;
124 $fatal = 0; # ignore failure to retrieve any given article
125 for ($mid = $numbers[1]; $mid <= $numbers[2]; $mid++) {
126 $art = &getart
($mid);
127 $art =~ s/\n(>*From )/\n>$1/gs;
128 print "From nntpid ".(localtime)."\n".$art."\n";
131 $art = &getart
($mid);
135 if ($pager and -t STDOUT
) {
136 $pagername = $ENV{"PAGER"};
137 $pagername = "more" unless defined $pagername;
138 open PAGER
, "| $pagername";
148 $ret = &docmd
("ARTICLE $mid");
149 return undef if !defined $ret;
163 print STDERR
">>> $line\n" if $verbose;
170 $code = substr($_,0,3);
171 print STDERR
"<<< $_\n" if $verbose;
180 if ($code eq "480") { &auth
; } else { last; }
182 if ($code !~ /^2\d\d/) {
183 die "failed on `$cmd':\n$_\n" if $fatal;
191 if ($ENV{"NNTPAUTH"}) {
192 $auth = $ENV{"NNTPAUTH"};
193 &putline
("AUTHINFO GENERIC $auth");
194 pipe AUTHSTDIN
, TOAUTH
or die "unable to create pipes";
195 pipe FROMAUTH
, AUTHSTDOUT
or die "unable to create pipes";
198 die "unable to fork for authentication helper";
199 } elsif ($pid == 0) {
201 $ENV{"NNTP_AUTH_FDS"} = "0.1";
202 open STDIN
, "<&AUTHSTDIN";
203 open STDOUT
, ">&AUTHSTDOUT";
211 &getline
; print TOAUTH
"$_\n";
218 die "failed authentication\n" unless $?
== 0;