Path: utzoo!attcan!uunet!lll-winken!lll-lcc!ames!mailrus!cornell!uw-beaver!ubc-cs!van-bc!root
From: lphillips@lpami.van-bc.UUCP (Larry Phillips)
Newsgroups: comp.sys.amiga
Subject: Re: comp.sys.amiga
Message-ID: <2029@van-bc.UUCP>
Date: 13 Dec 88 14:41:04 GMT
Sender: root@van-bc.UUCP
Lines: 45

In <1067@uwovax.uwo.ca>, 4224_5257@uwovax.uwo.ca (Steve van der Burg) writes:
> Can anyone tell me where I can get a copy of the "sh" program required to 
> decode the files in comp.amiga.source and comp.amiga.binaries?  I am a 
> newcomer to this network, and while I am familiar with the usual 1-step 
> de-ARCing or de-ZOOing process, I am puzzled about what steps are required to
> take something off these newsgroups and make it useful!
> Any help would be greatly appreciated.

	I can't help you in locating the unshar program, but I thought I'd pass
along a little ARexx-CEDPro script that I wrote to unshar postings from Bob Page.
It likely wont work with any other postings, but hey, it's all I needed.

/* unshar.ced - unshar Bob Page postings */
options results
status 20
dirname = result
result = 0
beg of file
do forever
	search for 'cat*<<*\shar_eof*>'
	if pos('not found', result) >0 then do
		clear 1
		exit(0)
		end
	else do
		status 55
		filename = word(result,words(result))
		down
		mark block
		search for 'SHAR_EOF'
		cut block
		save block  dirname'/'filename
		end
end


-larry

--
"Intelligent CPU?  I thought you said Intel CPU!" 
        -Anonymous IBM designer-
+----------------------------------------------------------------------+ 
|   //   Larry Phillips                                                |
| \X/    lphillips@lpami.wimsey.bc.ca or uunet!van-bc!lpami!lphillips  |
|        COMPUSERVE: 76703,4322                                        |
+----------------------------------------------------------------------+