[I modified one of the mailing list addresses in the dedigestifier
below. The TML submission address is "[email removed]",
NOT the obsolete "[email removed]". -- James]
#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
# README
# elmdigest
# dedigest
# This archive created: Tue Nov 27 02:00:42 1990
export PATH; PATH=/bin:$PATH
if test -f 'README'
then
echo shar: will not over-write existing file "'README'"
else
sed 's/^X//' << \SHAR_EOF > 'README'
XPerl is REQUIRED for this to work. ELM is suggested, but if it isn't
Xavailable, you can probably subsitute your own mail reader. Don't ask
Xme questions, I haven't got time.
X
XThis software is provided without waranty or guarantee of any sort.
X
XThe original was Copyright (C) 1990 David J. Camp, under the terms
Xof the GNU Software License. The original is NOT available from this
Xsite, but is no doubt available from a number of other sites. The
Xfull notification was removed from the scripts as it was longer than
Xthe scripts themselves. (One of the annoying aspects of GNU.)
X
XYou may be able to reach D.J. Camp at the following addresses:
X
[email removed] ^ Mr. David J. Camp
[email removed] < * > [phone removed]
[email removed] v
X
XEnjoy!
X---
XPrefered.: [email removed] Edwin Wiles
XAlternate: ...!grebyn!netex!elw NetExpress Inc., Suite 300,
XWho? Me?!? Responsible!?! Surely You Jest! Vienna, VA, USA 22182
SHAR_EOF
fi # end of overwriting check
if test -f 'elmdigest'
then
echo shar: will not over-write existing file "'elmdigest'"
else
sed 's/^X//' << \SHAR_EOF > 'elmdigest'
X:
X# This is 'elmdigest', a program to view a folder made from a digest.
X# Copyright (C) 1990 David J. Camp, Modified 1990, E.L. Wiles.
X#
Xset -v
Xperl /usr2/elw/bin/dedigest > /tmp/di$$
Xelm -f /tmp/di$$ < /dev/tty
X/bin/rm /tmp/di$$
SHAR_EOF
chmod +x 'elmdigest'
fi # end of overwriting check
if test -f 'dedigest'
then
echo shar: will not over-write existing file "'dedigest'"
else
sed 's/^X//' << \SHAR_EOF > 'dedigest'
X######
X# This is 'dedigest' a program to convert a digest to a folder.
X# Currently hardcoded to support only the traveller digest.
X# Copyright (C) 1990 David J. Camp. Modified 1990, E. L. Wiles.
X####################################
X# This is a PERL script and must be invoked via "perl dedigest".
X
Xwhile (<>)
X{
X if (substr ($_, 0, 3) eq "---")
X {
X $not_post_subject=1;
X print "From dummy Wed Feb 29 12:12:12 1990\n";
X do
X {
X $_ = <>;
X }
X until (eof() || 0 != tr/\041-\177/\041-\177/);
X }
X $not_post_subject=0 if m/^Subject: /o;
X s/^>From: /From: /o if $not_post_subject;
X print $_;
X print "Cc: [email removed] (Traveller Mailing List)\n"
X if ( m/^From: /o );
X}
SHAR_EOF
fi # end of overwriting check
# End of shell archive
exit 0