Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!watmath!clyde!caip!pyrnj!mirror!rs
From: rs@mirror.UUCP (Rich Salz)
Newsgroups: net.bugs.uucp,net.news.adm
Subject: Useful UUCP maintenance
Message-ID: <156@mirror.UUCP>
Date: Tue, 22-Jul-86 12:16:06 EDT
Article-I.D.: mirror.156
Posted: Tue Jul 22 12:16:06 1986
Date-Received: Wed, 23-Jul-86 07:11:32 EDT
Organization: Mirror Systems, Cambridge MA
Lines: 31
Xref: watmath net.bugs.uucp:770 net.news.adm:854

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!"