chiark / gitweb /
Cope with NNTP_STRLEN abolishment (replaced with NNTP_MAXLEN_COMMAND)
[innduct.git] / innduct-forall
1 #!/usr/bin/perl -w
2 use strict qw(vars refs);
3 use IO::Handle;
4 our $self= 'innduct-forall';
5 our $deftable= '/etc/news/ducts.table';
6
7 our $usage=<<END;
8 usage:
9    $self [<ducts-table>] <pattern>
10 where <pattern> is a sh command and may contain
11    !site    site name
12    !fqdn    fqdn or empty string
13    !opts    innduct options
14    !duct    shorthand for !opts !site !fqdn
15    !!       single !
16 default ducts-table is $deftable
17 END
18
19
20 die "$self: bad usage\n$usage" unless
21     @ARGV>=1 && @ARGV<=2 && $ARGV[0] !~ m/^\-/;
22
23 our $table= (@ARGV>1 ? shift @ARGV : $deftable);
24 our $pattern= shift @ARGV;
25
26 our $maxexit= 0;
27
28 open T, '<', $table or die "$self: $table: $!\n";
29 while (<T>) {
30     s/^\s*//; s/\s+$//;
31     next unless m/^[^\#]/;
32     my @v= split /\s+/, $_, 3;
33     my %c;
34     foreach my $f (qw(site fqdn opts)) {
35         my $v= shift @v;
36         $v='' unless defined $v;
37         $c{$f}= $v;
38     }
39     $c{'fqdn'}= $c{'site'} if $c{'fqdn'} eq '=';
40     $c{'duct'}= "$c{opts} $c{site} $c{fqdn}";
41     $c{'!'}= '!';
42     $_= $pattern;
43     s/\!(\w+|\!)/ 
44         my $v= $c{$1};
45         die "$self: unknown substitution $1\n" unless defined $v;
46         $v;
47     /ge;
48     my $r= system $_;
49     die "$self: run command: $!\n" if $r<0;
50     warn "$self: $c{site}: wait status $r: $_\n" if $r>0;
51     $r |= 128 if $r>0 && $r<128;
52     $r>>=8 if $r>=256;
53     $maxexit=$r if $r>$maxexit;
54 }
55 die "$self: $table: read: $!\n" if T->error;
56 close T or die "$self: table: close: $!\n";
57
58 exit $maxexit;