kirsch@braggvax.arpa (David Kirschbaum) (10/19/87)
I'd be glad to send shar (source and doc from SIMTEL20, and the .EXE from my own system, uuencoded of course) to Randomizer@cup.portal.com .. IF I could figure how to mail it to him. Can't get to cup.portal.com from here (ARPA). Better address, please? Or an intermediary that can mail in those strange directions? David Kirschbaum Toad Hall kirsch@braggvax.ARPA
johnk@auscso.UUCP (John Knutson) (10/19/87)
the following is a shell shar maker. just do a shar files >shar.file, and
that's it. it isn't in a shar archive. BTW: i already mailed this shar
to him.
--cut-here--
echo "#! /bin/sh"
echo "# This is a shell archive, meaning:"
echo "# 1. Remove everything above the #! /bin/sh line."
echo "# 2. Save the resulting test in a file"
echo "# 3. Execute the file with /bin/sh (not csh) to create the files:"
echo "#"
for file in $*
do
echo "#\t\t$file"
done
echo "#"
echo "# Created by $LOGNAME (`grep $LOGNAME /etc/passwd | cut -f5 -d:`) \c"
echo "on `date`"
echo "#"
for file in $*
do
echo "if test -f '$file'\nthen"
echo "\techo shar: will not over-write existing file \"'$file'\"\nelse"
echo "echo extracting \"'$file'\""
echo "sed 's/^X//' >$file <<'SHAR_EOF'"
awk '{ printf "X%s\n", $0 }' $file
echo "SHAR_EOF"
count=`wc -c $file | cut -c-7 | tr -d " "`
echo "if test $count -ne \"\`wc -c < '$file'\`\"\nthen"
echo "\techo shar: error transmitting \"'$file'\" '(should have been $count characters)'"
echo "fi\nfi"
done
echo "# end of shell archive"
echo "exit 0"
--
John Knutson {ihnp4,allegra,ut-sally}!ut-ngp!auscso!johnk
Living is easy with eyes closed, misunderstanding all you see
Communicating, like in the good ol' days.