Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!utgpu!water!watmath!clyde!cbosgd!cwruecmp!hal!ncoast!allbery
From: allbery@ncoast.UUCP
Newsgroups: comp.sources.misc
Subject: unshar script
Message-ID: <8705191531.AA01227@codas.ATT.COM>
Date: Tue, 19-May-87 15:31:41 EDT
Article-I.D.: codas.8705191531.AA01227
Posted: Tue May 19 15:31:41 1987
Date-Received: Tue, 26-May-87 00:40:50 EDT
Sender: allbery@ncoast.UUCP
Lines: 25
Approved: allbery@ncoast.UUCP
Resubmitted-From: comp.sources.unix
Status: R

Here's a very simple unshar script I thought I would share with
the rest for the world. In it's present form, it is a Korn shell
function, but can be modified *very* easily into a regular shell
script by deleting the first two and last one line.

#-cut-
function unshar
{
	if [ -z "$1" ]
	then
		sed -e '1,/^[:#]/d' | sh
	else
		for file in $*
		do
			echo "X - $file"
			sed -e '1,/^[:#]/d' $file | sh
		done
	fi
}
#-cut-
-- 
 					Mikel Manitius @ AT&T-IS
 					mikel@codas.att.com.uucp

./