home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 12 / MA_Cover_12.iso / internet / cmanager / rexx / sendamftp.rexx next >
Encoding:
OS/2 REXX Batch file  |  1998-09-25  |  357 b   |  28 lines
  1. /*
  2.  *
  3.  *  $VER: SendAmFTP.rexx 1.1 (3.8.98) by Simone Tellini
  4.  *
  5.  */
  6.  
  7. Options Results
  8. Parse Arg '"'site'" "'ftpprg'"'
  9.  
  10. IF ~SHOW(P,'AMFTP.1') THEN DO
  11.  
  12.     Address Command 'Run <>NIL:' ftpprg
  13.  
  14.     Address Command 'SYS:RexxC/WaitForPort' AMFTP.1
  15.  
  16. END
  17.  
  18. 'GETENTRY' ftp
  19.  
  20. Address AMFTP.1
  21.  
  22. if ftp.type ~= 'FTP' then
  23.     ftp.advanced  = 0
  24.  
  25. 'CONNECTSTEM' ftp
  26.  
  27. Exit 0
  28.