/usr/lib/news/bin/procbatch is in inn2 2.5.2+20110413-1build1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
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 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 | #! /usr/bin/perl -w
use lib '/usr/share/perl5'; use INN::Config;
# Author: James Brister <brister@vix.com> -- berkeley-unix --
# Start Date: Thu May 16 10:32:02 1996 +0200
# Project: INN -- innfeed
# File: procbatch.pl
# RCSId: $Id: procbatch.in 8290 2009-01-17 08:15:31Z iulius $
#
# Description: Take a file of the form generated by innd in the outgoing
# directory ("Wnm*") and separate it into tape files for INN.
#
# Thanks to Clayton O'Neill <coneill@premier.net> for serious speed
# improvements.
#
#
# Hmm, perhaps we should try to read "backlog-directory"
# from innfeed.conf. Oh well.
#
$tapeDir = $INN::Config::pathspool . "/innfeed";
$destDir = $INN::Config::spooltemp ;
$spoolArts = $INN::Config::patharticles ;
$outGoing = $INN::Config::pathoutgoing;
##
## Everything below here should probably be left alone.
##
$0 =~ s!.*/!! ;
use Getopt::Std;
$usage = "$0 [ -q ][ -v ][ -u ][ -e host ][ -d dir ][ -c [ -s dir ]][ -m [-t dir ]] inn-batchfile\n
-e host to process on entries for only that host
-d dir to put the output file(s) in that directory ($destDir)
-c to check pathnames of articles before storing them
-s dir to specify where the news articles are
($spoolArts)
-m to have $0 move the new files to the backlog directory
-t dir to specify the backlog directory ($tapeDir)
-u to unlink the input files when finished
-v for verbosity
-q quiet mode: only display error messages; good for cron jobs
$0 will take an INN funnel file (normally a file in
$outGoing), or an innfeed ``dropped'' file,
which is presumed to be of the format:
pathname message-id peer1 peer2 peer3 ...
and will break it up into files peer1.tmp peer2.tmp peer3.tmp... Each of
these files will be of the format:
pathname message-id
that is the same as innfeed's backlog file format. Simply rename these files
to peer1 peer2 peer3 in a running innfeed's backlog directory and they will be
picked up automatically and processed by innfeed. Use the '-m' flag and
they'll be moved automatically.
" ;
$opt_u = $opt_h = ""; # shut up, perl -w
$missing = 0;
getopts ("he:t:s:d:cvumq") || die $usage ;
die $usage if ( $opt_h ) ;
die "Cannot specify both -q and -v\n\n" . $usage if ($opt_q && $opt_v);
$spoolArts = $opt_s if $opt_s ;
$destDir = $opt_d if $opt_d ;
$tapeDir = $opt_t if $opt_t ;
$inputFile = shift ;
die $usage if !$inputFile ;
unless (-f $inputFile) {
exit if $opt_q;
die "No such file: $inputFile\n\n" . $usage;
}
die "No such directory: $spoolArts\n\n" . $usage if ( ! -d $spoolArts && $opt_c ) ;
die "No such directory: $destDir\n\n" . $usage if ( ! -d $destDir ) ;
die "No such directory: $tapeDir\n\n" . $usage if ( ! -d $tapeDir && $opt_m ) ;
print "Using $inputFile\n" if $opt_v ;
open (INPUT,"<$inputFile") || die "$0: open ($inputFile): $!\n" ;
while (<INPUT>) {
chop ;
@F = split ;
# Check the format of the line vigorously
next unless (m!^\S+/\d+ <.+@.+> \S+! || m!^@[0-9A-F]+@ <.+@.+> \S+!) ;
if ( $opt_c ) {
if ( ! -f "$spoolArts/$F[0]" ) {
$missing++ ;
print "Dropping file: $spoolArts/$F[0]\n" if $opt_v ;
next ;
}
}
for ($i = 2 ; $i <= $#F ; $i++) {
$host = $F[$i] ;
next if ($opt_e && $opt_e ne $host) ;
# Keep out host names with any funny characters (from
# corrupted files)
if ($host !~ /^[-\._0-9A-Za-z]+$/) {
warn "$0: bad site name ignored: \"$host\"\n";
next;
}
if ($hosts{$host}) {
print {$hosts{$host}} "$F[0] $F[1]\n";
} else {
$outputFile = "$destDir/$host.tmp" ;
print "Starting $host\n" if ($opt_v);
$hosts{$host}=$host;
open ($hosts{$host},">>$outputFile") ||
die "open >>$outputFile: $!\n" ;
print {$hosts{$host}} "$F[0] $F[1]\n";
}
}
}
close (INPUT) ;
foreach $host (keys %hosts) {
close($hosts{$host});
$outputFile = "$destDir/$host.tmp" ;
$tmpTape = "$tapeDir/$host.tmp" ;
$tapeFile = "$tapeDir/$host" ;
if ( $opt_m ) {
if ($outputFile ne $tmpTape) {
$cmd = "mv $outputFile $tmpTape" ;
system ($cmd) ;
die "$0: $cmd: failed\n" unless ($? == 0) ;
}
$cmd = "cat $tmpTape | $INN::Config::sort -u >> $tapeFile && rm -f $tmpTape" ;
system ($cmd) ;
die "$0: $cmd: failed\n" unless ($? == 0) ;
}
}
unlink($inputFile) if ($opt_u);
print "$missing articles dropped\n" if ( $opt_v && $missing > 0 ) ;
|