; The purpose of this script is to test the behaviour of MakeTree.rexx,
; MakeIndex.rexx and CleanupIncoming.rexx.
;
; We will create an Aminet directory hierarchy in your RAM: disk and copy
; the files in the INCOMING: directory into this tree, according to the area
; information given in the aminet INDEX file.
;
; After all the work is done the tree will be deleted.  The files in your
; INCOMING: directory will remain unchanged.

;echo "CD *"`CD`*"" > t:tmp.<$$>
assign rexx.<$$>: ""

CD RAM:

MakeDir "Aminet Mirror"

RX rexx.$$:MakeTree.rexx              FROM downloads:aminet/tree  TO "aminet mirror"
RX rexx.$$:MakeIndex.rexx             FROM "aminet mirror"        TO LOCAL

RX rexx.$$:CleanupIncoming.rexx COPY  FROM incoming:              TO "aminet mirror"  WITH "downloads:aminet/INDEX"
RX rexx.$$:MakeIndex.rexx             FROM "aminet mirror"        TO LOCAL

Delete FILE "Aminet Mirror" ALL QUIET

cd rexx.$$:
assign rexx.<$$>:
;`type t:tmp.<$$>`

echo "done."