home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dream 52
/
Amiga_Dream_52.iso
/
Amiga
/
Workbench
/
DOpus
/
OpusMPEGA.lha
/
opusmpega
/
help
/
OpusFTP.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1998-03-21
|
791b
|
45 lines
/* Script for OpusMPEGA.guide!
** ***************************
*/
portname="DOPUS.1"
If ~SHOW("P",portname) THEN DO
address command 'requestchoice "Opus MPEGA" "Fⁿr FTP zuerst Directory Opus*nund einen TCP/IP Stack starten!" "OK"'
exit
end
PARSE ARG ARG1 ARG2 ARG3
options results
address value portname
dopus front
if ARG1="CONNECT" then do
lister close all
command wait FTPConnect Arg2' DIR pub/aminet'
address command 'WAIT 2'
exit
end
lister query source
ftphandle=result
if rc>0 then exit
lister set ftphandle source lock
lister query dest
ramhandle=result
if rc>0 then do
lister new "RAM:"
ramhandle=result
lister wait ramhandle
lister set ramhandle dest lock
end
command FTPCD ARG2
address command 'WAIT 2'
lister wait ftphandle
command FTPCopy ARG3