chiark / gitweb /
git-cache-proxy: introduce servinfo
[chiark-utils.git] / scripts / nntpid
1 #!/usr/bin/perl
2
3 # Originally by Simon Tatham
4 # Modified by Richard Kettlewell, Colin Watson, Ian Jackson
5
6 use ChiarkNNTP;
7
8 our $verbose;
9 ($verbose='STDERR', shift @ARGV) if $ARGV[0] eq "-v";
10
11 my $c = cnntp_connect($verbose);
12 $c->banner_reader();
13
14 our $code;
15
16 # some servers require a GROUP before an ARTICLE command
17 $c->docmd("GROUP misc.misc");
18
19 if(@ARGV == 0) {
20   while(<>) {
21     s/(^\s+|\s+$)//gs;
22     lookup($_);
23   }
24 } else {
25   while (@ARGV) {
26     my $item = shift @ARGV;
27     if($item !~ /[\@:]/ and not defined $group) {
28       # maybe a bare group followed by an article number
29       die unless @ARGV;
30       my $number = shift @ARGV;
31       $item = "$item $number";
32     }
33     lookup($item);
34   }
35 }
36
37 $c->docmd("QUIT");
38 close S;
39
40 sub lookup {
41   my $mid = shift;
42
43   if($mid !~ /\@/ and $mid =~ /^(.*)[: ](\d+)$/) {
44       my ($g, $n) = ($1, $2);
45       $c->docmd("GROUP $g");
46       $c->docmd("ARTICLE $n");
47   } else {
48       $mid =~ s/.*\<//;
49       $mid =~ s/\>.*//;
50       $c->docmd("ARTICLE <$mid>");
51   }
52
53   my $fh= 'STDOUT';
54   if (-t $fh) {
55     my $lesscmd= $ENV{'NNTPID_PAGER'};
56     $lesscmd= 'less' unless defined $lesscmd;
57     open LESS, "|-", 'sh','-c',$lesscmd or die $!;
58     $fh= 'LESS';
59   }
60   
61   while (1) {
62     ($code,$_) = $c->getline();
63     s/[\r\n]//g;
64     last if /^\.$/;
65     s/^\.//;
66     print $fh "$_\n";
67   }
68
69   if ($fh ne 'STDOUT') {
70     close $fh or die "$? $!";
71   }
72 }