Path: utzoo!utgpu!water!watmath!clyde!att!osu-cis!tut.cis.ohio-state.edu!bloom-beacon!silvlis.COM!mdb
From: mdb@silvlis.COM (Mark D. Baushke)
Newsgroups: comp.windows.x
Subject: Re: Xstuff
Message-ID: <8807081518.AA12539@amadeus.silvlis.com>
Date: 8 Jul 88 15:18:00 GMT
References: <2965@geac.UUCP>
Sender: daemon@bloom-beacon.MIT.EDU
Organization: The Internet
Lines: 172

>  Date: 7 Jul 88 12:20:16 GMT
>  From: sun!uunet.uu.net!mnetor!utzoo!yunexus!geac!david  (David Haynes)
>  
>  In article <8807060010.AA00170@scrod.ardent.com> jkh@ardent.UUCP writes:
>  >This sounds like what comp.sources.x is supposed to achieve (a number of
>  >people around the planet have volunteered to be archive sites for it
>  >as well). How's this coming, by the way?
>  >
>  >					Jordan
>  
>  The Canadian X Source Depot is just about organized enough to get running.
>  One problem I have though is how to get the stuff now in contrib on
>  expo.mit.edu. I have the last ``official'' release of the contributor's tape
>  and everything that has been posted (twm, awm, etc) but I haven't got
>  things like Siemanns Tiled Window Manager. "We will not make tapes, ftp
>  it only" (sigh)
>  
>  I am exploring telebit access to uunet (we have telebits) and X.25
>  access as well (we have a micom pad).
>  
>  Does anyone have any suggestions? 
>
>  I was recently sent a package called CLUE as a btoa image of a compressed
>  tar image of the source. 

Maybe someone with FTP access could send you a series of "split" btoa
images of the compressed tar images of the source? (Sorry, I don't
have FTP access either.)

Sending "split" bota images of compressed tar images of the source is
actually quite efficient (and probably necessary given the amount of
compressed tar files already being put out for Anonymous FTP).

I use the following shell scripts quite often to send and receive
"binary" (typically compressed) files through the mail. They are quite
useful.

The only drawback is that sometimes my /tmp gets too full for "really
large" mailings. (Then I usually make a quick copy of the shell script
with a different directory which does have enough space.)

Since I am not certain how widespread the "split" form of the
tarmail/untarmail scripts are (the btoamail/unbtoamail are being
published here for the first time) I am including them in this
message. With luck, someone with FTP access will be able to use these
scripts to help you out.

Enjoy!

#-------------------------cut here -------------------------
#!/bin/sh
# This is a shell archive.  Remove anything before this line,
# then unpack it by saving it in a file and typing "sh file".
#
# Wrapped by  on Fri Jul  8 08:07:40 PDT 1988
# Contents:  tarmail untarmail btoamail unbtoamail
 
echo x - tarmail
sed 's/^@//' > "tarmail" <<'@//E*O*F tarmail//'
#!/bin/sh
# "tarmail" takes a file or list of files and creates a "tar file" it
# then compresses this data (using compress) and converts it to an ascii
# form (using btoa). If it is "too large" to fit into typical mail
# transport systems (some uucp sites break at 64K bytes), it will split
# the image into multiple parts and send them using the standard "mail"
# command.
if test $# -lt 3; then
  echo "Usage: tarmail mailpath \"subject-string\" directory-or-file(s)"
  exit
else
  mailpath=$1
  echo "mailpath = $mailpath"
  shift
  subject="$1"
  echo "subject-string = $subject"
  shift
  echo files = $*
  tar cvf - $* | compress | btoa | split -700 - /tmp/tm$$
  n=1
  set /tmp/tm$$*
  for f do
    {
	echo '---start beef'
	cat $f
	echo '---end beef'
    } | Mail -s "$subject - part $n of $#" $mailpath
    echo "part $n of $# sent (" `wc -c < $f` "bytes)"
    n=`expr $n + 1`
  done
  rm /tmp/tm$$*
fi
@//E*O*F tarmail//
chmod u=rwx,g=rx,o=rx tarmail
 
echo x - untarmail
sed 's/^@//' > "untarmail" <<'@//E*O*F untarmail//'
#!/bin/sh
# "untarmail" takes a an ordered list of mail messages (if they were in
# multiple parts, the must be fed to untarmail in order) and recreates
# the data stored by the original "tarmail" reversing each step along
# the way.
if test $# -ge 1; then
   sed '/^---end beef/,/^---start beef/d' $* | atob | uncompress | tar xvpf -
   echo remember to remove the tarmail files: $*
else
   sed '/^---end beef/,/^---start beef/d' | atob | uncompress | tar xvpf -
fi
@//E*O*F untarmail//
chmod u=rwx,g=rx,o=rx untarmail
 
echo x - btoamail
sed 's/^@//' > "btoamail" <<'@//E*O*F btoamail//'
#!/bin/sh
# "btoamail" converts a "binary" file to an ascii form (using btoa).
# If it is "too large" to fit into typical mail transport systems
# (some uucp sites break at 64K bytes), it will split the image into
# multiple parts and send them using the standard "mail" command.
if test $# -lt 2; then
  echo "Usage: $0 mailpath \"subject-string\" [binaryfile]"
  exit
else
  mailpath=$1
  echo "mailpath = $mailpath"
  shift
  subject="$1"
  echo "subject-string = $subject"
  shift
  if test $# -eq 0; then
    btoa | split -700 - /tmp/tm$$
  else
    echo binaryfile = $1
    btoa < $1 | split -700 - /tmp/tm$$
  fi
  n=1
  set /tmp/tm$$*
  for f do
    {
	echo '---start beef'
	cat $f
	echo '---end beef'
    } | Mail -s "$subject - part $n of $#" $mailpath
    echo "part $n of $# sent (" `wc -c < $f` "bytes)"
    n=`expr $n + 1`
  done
  rm /tmp/tm$$*
fi
@//E*O*F btoamail//
chmod u=rwx,g=rx,o=rx btoamail
 
echo x - unbtoamail
sed 's/^@//' > "unbtoamail" <<'@//E*O*F unbtoamail//'
#!/bin/sh
# "unbtoamail" takes a an ordered list of mail messages (if they were
# in multiple parts, the must be fed to unbtoamail in order...this is
# easy enough as you will see) and recreates the data which was fed to
# the original "btoamail" reversing each step.
if test $# -ge 1; then
   sed '/^---end beef/,/^---start beef/d' $* | atob
else
   sed '/^---end beef/,/^---start beef/d' | atob
fi
@//E*O*F unbtoamail//
chmod u=rwx,g=rx,o=rx unbtoamail
 
exit 0


------------------------------------------------------------------------------
Mark D. Baushke                 Internet:    mdb%silvlis.com@sun.com
Silvar-Lisco, Inc.              Nameservers: mdb@silvlis.com
1080 Marsh Road                 Usenet:      {pyramid,sun}!silvlis!mdb
Menlo Park, CA 94025-1053       Telephone:   +1 415 853-6411 / +1 415 969-8328