Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!ut-sally!pyramid!nsc!tron
From: tron@nsc.UUCP (Ron Karr)
Newsgroups: net.sources
Subject: rnget - a quick way to unpack shell archives
Message-ID: <3739@nsc.UUCP>
Date: Wed, 13-Aug-86 23:51:20 EDT
Article-I.D.: nsc.3739
Posted: Wed Aug 13 23:51:20 1986
Date-Received: Thu, 14-Aug-86 20:13:21 EDT
Reply-To: tron@nsc.UUCP (Ronald S. Karr)
Organization: Rational Swamiconductor, Sanivale
Lines: 93
Keywords: rn shar

The following is a handy shell script for unpacking a shell archive.
It can be used from `rn' using the command:

	| rnget dir

to cause the shell archive contained in the current article to be
extracted (using a rather simple algorithm) and piped into /bin/sh
for processing.  Unlike the simpler:  w | (cd dir; sh)  command,
this works if there is text before the actual start of the archive.

  Ronald S. Karr			USENET: hplabs!nsc!tron
  National Semiconductor, Sunnyvale	ARPA:   decwrl!nsc!tron@ucbvax.ARPA
-----------------------Cut Here--------------------------------------------
#!/bin/sh
#
#  This is a shell archive.  To extract the contents, delete everything
#  above the #!/bin/sh line and process the rest through /bin/sh.
#  This archive contains the following file:
#
#	rnget
#
#  Created by tron@nsc.UUCP on August 13, 1986

sed -e 's/^X//' > rnget <<\-EOF-
X#!/bin/sh
X#
X# NAME
X#	rnget - get a shar archive from rn output.
X#
X# SYNOPSIS
X#	rnget [ -p pattern ] [ directory ]
X#
X# DESCRIPTION
X#	Rnget changes to the given directory (if given) and then
X#	reads its standard input and searches for the given pattern
X#	(default to "[#:]") at the beginning of a line and passes that
X#	and all subsequent lines to the bourne shell for processing.
X#
X#	The idea is that the input is a shar file contained inside
X#	of a news article, with a scan done before hand for the
X#	beginning of the shar.  For shars that don't begin with '#'
X#	or ':' -p can be used to specify something else.
X#
X#	Note:  If the directory does not exist, it is created.
X
Xprog="$0"
Xusage="usage: $prog [-p pattern] [directory]"
Xpattern="/^[:#]/"
Xwhile [ $# -gt 0 ]; do
X	if [ $1 = -p ]; then
X		shift
X		if [ $# -lt 1 ]; then
X			echo $usage
X			echo 1
X		fi
X		pattern="/^$1/"
X		shift
X	else		# got a directory
X		if [ -f $1 ]; then
X			echo "$prog: $1:  Not a directory!!"
X			exit 2
X		fi
X		if [ ! -d $1 ]; then
X			mkdir $1 > /dev/null 2>&1
X			if [ $? -ne 0 ]; then
X				echo "$prog: $1:  Could not create directory"
X				exit 2
X			fi
X		fi
X		cd $1
X		shift
X	fi
Xdone
Xawk "
XBEGIN	{
X	skip = 1; copy = 2;
X	state = skip;
X}
Xstate == skip && $pattern	{
X	state = copy;
X}
Xstate == copy	{
X	print \$0
X}" | /bin/sh
Xif [ $? -ne 0 ]; then
X	echo "$prog:  error in writing to shell"
Xfi
-EOF-

exit 0
-- 
  Ronald S. Karr			USENET: hplabs!nsc!tron
  National Semiconductor, Sunnyvale	ARPA:   decwrl!nsc!tron@ucbvax.ARPA