Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!uwm.edu!psuvax1!rutgers!att!cbnewsh!mbb
From: mbb@cbnewsh.ATT.COM (martin.b.brilliant)
Newsgroups: comp.binaries.ibm.pc.d
Subject: Re: Trouble With Arced Simtel20 Files
Message-ID: <6392@cbnewsh.ATT.COM>
Date: 6 Dec 89 19:44:45 GMT
References: <324@watserv1.waterloo.edu>
Organization: AT&T Bell Laboratories
Lines: 66

From article <324@watserv1.waterloo.edu>, by pfratar@watserv1.waterloo.edu (Paul Frattaroli - DCS):
> In article <35180011@hpindda.HP.COM> hardin@hpindda.HP.COM (John Hardin) writes:
>>
>>Don't know if this will help anyone, but I have noticed that SIMTEL archives
>>appear to be corrupted when I uudecode them using one of the scripts that
> 
> WHAT??
> 	You shouldn't have to uudecode anything you get off of Simtel.
> Just dearchive, using      arc -x [file]

Mucho confusion here.  We are not talking about files direct from
SIMTEL, but via a server like listserv@vm1.nodak.edu.  For MAIL ... 
UUENCODE shipments, these come in parts, almost like the parts posted
in c.b.i.p., and have to be concatenated together.

If anybody wants to use it, I enclose (after my signature block) the
ksh script I now use for both c.b.i.p. and listserv to concatenate and
uudecode.  It will take a single file argument, or multiple file
arguments.  The file(s) may already contain concatenated segments.  It
shows the Subject lines so you can make sure all the parts are there in
the correct order.  Then after stripping out the junk between sections
it lets you verify that there is now only one Subject line.  It also
creates a text file from the header of part 1, which contains useful
comments in distributions from c.p.i.p., but not from listserv.
Finally, it leaves a file called uuctemp that is uudecodable, though
normally you would not need that as the uudecoding has already been
done.

Notice the two-line sed command near the middle; it does all the
dirty work.  You could use that alone as a two-liner (take out the
last two words) and then run uudecode on the output.

M. B. Brilliant					Marty
AT&T-BL HO 3D-520	(201) 949-1858
Holmdel, NJ 07733	att!hounx!marty1 or marty1@hounx.ATT.COM

Disclaimer: Opinions stated herein are mine unless and until my employer
	    explicitly claims them; then I lose all rights to them.
Notice: Communication will cease 12/30/89 due to retirement.


for File do
    Text=`grep '^begin ' $File` && break
done
echo $Text
grep Subject $*

Temp=uuctemp

read A?"Hit RETURN to continue, INTERRUPT to abort."

sed '/END.*cut here/,/BEGIN.*cut here/d
	/End of part/,/Part .* of/d' $* > $Temp 
echo created $Temp, should show one Subject line:
grep Subject $Temp
read A?"Hit RETURN to continue, INTERRUPT to abort."
uudecode $Temp

set $Text
echo created $3
Text=${3%.*}.hdr

sed '/^begin [0-7][0-7]* [^ ]*$/ {
q
}' $File >> $Text
echo created $Text: `wc <$Text` lines, words, characters