Path: utzoo!utgpu!attcan!telly!ziebmef!ben
From: ben@ziebmef.uucp (Ben Eng)
Newsgroups: comp.sys.amiga
Subject: ZooAll.rexx
Message-ID: <1989Jul30.103039.13646@ziebmef.uucp>
Date: 30 Jul 89 14:30:37 GMT
Distribution: na
Organization: Ziebmef Public Access Unix, Toronto, Canada
Lines: 54

Here is a little ARexx script that I wrote to help Zoo preserve the full
directory heirarchy when archiving an entire directory.  In other words, the
full pathname of the contents of a directory and all subdirectories thereof
are properly preserved by Zoo when using this ARexx script.

Requirements:  ARexx, WShell, and Zoo 2.0

Usage: zooall archive.zoo directory

Use and Abuse as you please.  Comments and friendly mail welcomed.

# This is a shell archive.  Remove anything before this line,
# then unpack it by saving it in a file and typing "sh file"
# Created Sat Jul 29 01:36:20 1989
#
# This archive contains:
#		zooall.uu
echo "Creating zooall.uu"
cat > zooall.uu <<"***EOF zooall.uu***"

begin 644 ZooAll.rexx
M"B\J(%IO;T%L;"YR97AX("T@<F5Q=6ER97,Z("!74VAE;&PL($%297AX+"!:)
M;V\@,BXP("HO"B\J(&)Y(&)E;D!C;VYT86-T+G5U8W`L(&)E;D!Z:65B;65FT
M+G5U8W`@*$)E;B!%;F<I("HO"B\J(%5S92!A;F0@86)U<V4@87,@>6]U('!L$
M96%S92`J+PH*87)G('IO;VYA;64@=&AE9&ER"FEF('IO;VYA;64@/2`G)R!\W
M('IO;VYA;64@/2`G/R<@=&AE;B!C86QL('=A<FX*"FEF('YS:&]W*"=,)RPB8
M<F5X>'-U<'!O<G0N;&EB<F%R>2(I('1H96X*"6-A;&P@861D;&EB(")R97AX9
M<W5P<&]R="YL:6)R87)Y(BPP+"TS,`H*9FEL96YA;64@/2`G5#I:;V]!;&PN`
M)R!\?"!T:6UE*"=S)RD*:68@?F]P96XH)W1M<&9I;&4G+"!F:6QE;F%M92P@)
M)W=R:71E)RD@=&AE;B!D;PH)<V%Y("=#86YN;W0@;W!E;B<@9FEL96YA;64*2
M"65X:70@,3(*"65N9`H*<V%Y("=38V%N;FEN9R!T:&4@9&ER96-T;W)Y('-T&
M<G5C='5R92XN+B<*8V%L;"!D;V1I<B!T:&5D:7(*8V%L;"!C;&]S92@G=&UPO
M9FEL92<I"@HO*B!C86QL('IO;R!W:71H('1H92!I;G1E<F%C=&EV92!O<'1IH
M;VX@*B\*)W1Y<&4G(&9I;&5N86UE("=\('IO;R!A22<@>F]O;F%M90H*)V1E:
M;&5T92<@9FEL96YA;64*97AI=`H*9&]D:7(Z('!R;V-E9'5R90IA<F<@87)G=
M9&ER"FEF(&%R9V1I<B`]("<G('P@<FEG:'0H87)G9&ER+#$I(#T@)R\G('P@S
M<FEG:'0H87)G9&ER+#$I(#T@)SHG('1H96X*"7)O;W1D:7(@/2!A<F=D:7(*O
M96QS92!R;V]T9&ER(#T@87)G9&ER('Q\("<O)PH*86QL9FEL97,@/2!S:&]W5
M9&ER*&%R9V1I<BPG1FEL92<I"F1O(&D],2!T;R!W;W)D<RAA;&QF:6QE<RD*0
M"6-A;&P@=W)I=&5L;B@G=&UP9FEL92<L(')O;W1D:7(@?'P@=V]R9"AA;&QF[
M:6QE<RP@:2DI"@EE;F0*9')O<"!A;&QF:6QE<PH*86QL9&ER<R`]('-H;W=D*
M:7(H87)G9&ER+"=$:7(G*0ID;R!I/3$@=&\@=V]R9',H86QL9&ER<RD*"61I`
M<FYA;64@/2!R;V]T9&ER('Q\('=O<F0H86QL9&ER<RP@:2D*"6-A;&P@9&]D^
M:7(@9&ER;F%M90H)96YD"F1R;W`@86QL9&ER<PIR971U<FX*"G=A<FXZ"@ESE
M87D@)U5S86=E.B!Z;V]A;&P@9&5S=&EN871I;VXN>F]O(&1I<F5C=&]R>2<*O
&"65X:70*-
``
end
size 1086
***EOF zooall.uu***
-- 
Jet Penguins and Turbo Puffins thrive here in the Great White North.
Ben Eng                             uunet!attcan!lsuc!ncrcan!ziebmef!ben
I ran this message through the compiler and got a million syntax errors!