home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Enhancements / FTPBatch / ARexx / FTPBatchAdd.dopus5 next >
Encoding:
Text File  |  1998-10-18  |  1.2 KB  |  40 lines
  1. /*
  2. $VER: FTPBatchAdd.opus5 1.0 (28.9.98) by Neil Bothwick <neil@wirenet.co.uk>
  3. */
  4.  
  5. Usage = 'Usage: rx FTPBatchAdd.opus5 BATCHROOT/A FILE/A'
  6. Usage = Usage'*N*NBATCHROOT:'
  7. Usage = Usage'*N  The name of the batchfile, without the suffix as used in invoking FTPBatchLister.dopus5'
  8. Usage = Usage'*NFILE:'
  9. Usage = Usage'*N  The full path to the file to be downloaded.'
  10.  
  11. options results
  12. parse arg batchfile ' ' filepath
  13. if right(batchfile,1) = '?' | filepath = '' then call ExitMsg(Usage)
  14. batchfile = batchfile'.batch'
  15.  
  16. /* Extract file name and full path */
  17. if upper(left(filepath,6)) = 'FTP://' then filepath = substr(filepath,7)
  18. filename = substr(filepath, lastpos('/',filepath) + 1)
  19. parse var filepath server '/' path
  20. filepath = server'///'path
  21.  
  22. /* Write to batch file */
  23. if exists(batchfile) then openmode = 'A'
  24. else openmode = 'W'
  25. if ~open(batch,batchfile,openmode) then call ExitMsg('Failed to open file:' batchfile)
  26. if openmode = 'W' then call writeln(batch,'FTPBatchLister1.0')
  27.  
  28. call writeln(batch,filename)
  29. call writeln(batch,filepath)
  30. call close(batchfile)
  31.  
  32. exit
  33.  
  34. /* Exit with a message */
  35. ExitMsg:
  36.     parse arg msg
  37.     address command 'RequestChoice >NIL: "FTPBatchAdd" "'msg'" "OK"'
  38.     exit
  39.  
  40.