8-Aug-85 13:49:10-MDT,1938;000000000001
Return-Path: <
[email protected]>
Received: from BRL-TGR.ARPA by SIMTEL20.ARPA with TCP; Thu 8 Aug 85 13:48:45-MDT
Received: from usenet by TGR.BRL.ARPA id aa00827; 8 Aug 85 7:48 EDT
From: "Col. G. L. Sicherman" <
[email protected]>
Newsgroups: net.sources
Subject: moving a .newsrc
Message-ID: <
[email protected]>
Date: 7 Aug 85 20:11:42 GMT
To:
[email protected]
: newnewsrc - make a new .newsrc conform to an old one.
: Col. G. L. Sicherman. 7 Aug 1985.
:
: Have you ever moved from one system to another and found that
: you must customize a whole new .newsrc, because the old system
: numbered its news articles differently?
: This script imposes as much of an old .newsrc as possible on
: a new .newsrc. Specifically, it disables groups that were
: disabled on the old system, and arranges groups into the old
: order.
:
: usage: newnewsrc [-e] [-b] [-o] OLD NEW
:
: -e Enable disabled groups on NEW that were enabled on OLD.
: -b Place groups not found on OLD at beginning of NEW
: rather than at end.
: -o Do not import "option" lines from OLD.
:
: New file is written to standard output.
:
bflag='10000'
eflag='~'
oflag='=='
while (true) do
case $1 in
-b*) bflag='70000'; shift;;
-e*) eflag='!~'; shift;;
-o*) oflag='!='; shift;;
*) break;
esac
done
if (test 2 != $#) then
echo 'usage: newnewsrc [-e] [-b] [-o] old new' >&2
exit 1
fi
awk '{print "O",NR+'$bflag',$0}' < $1 > /usr/tmp/$$
awk '{print "N",NR+40000,$0}' < $2 | sort +2 -3 +0 - /usr/tmp/$$ |\
awk '$3 !~ /[:!]$/ {if ($1'$oflag'"O") print; next}\
substr($3,0,length($3)-1)==substr(LSTNM,0,length(LSTNM)-1) \
{if ($3'$eflag'/!$/) LSTNM=$3; print $1, $2, LSTNM, LSTRG; F=0; next}\
0 < F {print LAST; F=0}\
{if ("O"==$1) LSTRG=""; else LSTRG=$4; LSTNM=$3; \
LAST=$1 " " $2 " " LSTNM " " LSTRG; F=1}\
END {if (0<F) print LAST}' | sort -n +1 | sed -e 's/^..[0-9]* *//'
rm /usr/tmp/$$
exit 0
