home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / Amiga / Workbench / DOpus / OpusMPEGA.lha / opusmpega / help / OpusFTP.rexx < prev    next >
OS/2 REXX Batch file  |  1998-03-21  |  791b  |  45 lines
  1. /* Script for OpusMPEGA.guide!
  2. ** ***************************
  3. */
  4.  
  5. portname="DOPUS.1"
  6.  
  7. If ~SHOW("P",portname) THEN DO
  8.         address command 'requestchoice "Opus MPEGA" "Fⁿr FTP zuerst Directory Opus*nund einen TCP/IP Stack starten!" "OK"'
  9.     exit
  10. end
  11.  
  12. PARSE ARG ARG1 ARG2 ARG3
  13.  
  14. options results
  15. address value portname
  16. dopus front
  17.  
  18. if ARG1="CONNECT" then do
  19.     lister close all
  20.     command wait FTPConnect Arg2' DIR pub/aminet'
  21.     address command 'WAIT 2'
  22.     exit
  23.     end
  24.  
  25. lister query source
  26. ftphandle=result
  27. if rc>0 then exit
  28. lister set ftphandle source lock
  29.  
  30. lister query dest
  31. ramhandle=result
  32.  
  33. if rc>0 then do
  34.     lister new "RAM:"
  35.     ramhandle=result
  36.     lister wait ramhandle
  37.     lister set ramhandle dest lock
  38.     end
  39.  
  40. command FTPCD ARG2
  41. address command 'WAIT 2'
  42. lister wait ftphandle
  43.  
  44. command FTPCopy ARG3
  45.