Useful UUCP maintenance

[Rich Salz]

Last week, three sites I feed stopped calling for a couple of days. A
queue listing showed between 300 jobs queued up for one notes site, 150
for another, and 2300 for a news site. We run the standard 4.2BSD
UUCP, with has separate C., X. directories, but not separate
directories for each site. Well, I really wanted to get those clogged
sites out of my UUCP spool directory, so I wrote the following little
script; others may find it useful, but will want to change the hardwired
"mirror" below.

#!/bin/sh
ls C. | egrep C.${1?WHAT_SITE} > list.$1
mkdir ${1?WHAT_SITE} $1/C. $1/D.mirror $1/D.mirrorX
cat list.$1 | while read FILE ; do
awk ' \
NR % 2 == 0 { print "D.mirrorX/" $2 }
NR % 2 == 1 { print "D.mirror/" $2 } ' <C./$FILE >>list$$
mv C./$FILE $1/C.
done

cat list$$ | while read FILE ; do
mv $FILE $1
done

exec rm list$$
--

----
Rich $alz {mit-eddie, ihnp4, wjh12, cca, cbosgd, seismo}!mirror!rs
Mirror Systems 2067 Massachusetts Avenue Cambridge, MA 02140
Telephone: 617-661-0777
"Hi, mom!"