home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 1 / GoldFishApril1994_CD2.img / d4xx / d479 / uucp / uucp113.1.lzh / uucp1 / sc / rget < prev    next >
AmigaDOS Script File  |  1991-02-06  |  910b  |  42 lines
  1. .key host/A,file/A,file1,file2,file3,file4,file5,CD/K
  2. .bra {
  3. .ket }
  4.  
  5. ;   script to retrieve files from arbitrary remote hosts via the BITFTP
  6. ;   server at princeton.
  7.  
  8. echo >t:get.tmp "To: bitftp@pucc.princeton.edu"
  9. echo >>t:get.tmp "Subject:"
  10. echo >>t:get.tmp ""
  11. echo >>t:get.tmp "FTP {host} UUENCODE"
  12. echo >>t:get.tmp "USER anonymous"
  13. echo >>t:get.tmp "BINARY VARIABLE"
  14. if x{CD} NOT EQ x
  15. echo >>t:get.tmp "CD {CD}"
  16. echo >>t:get.tmp "DIR"
  17. endif
  18. echo >>t:get.tmp "GET {file}"
  19. if x{file1} NOT EQ x
  20. echo >>t:get.tmp "GET {file1}"
  21. endif
  22. if x{file2} NOT EQ x
  23. echo >>t:get.tmp "GET {file2}"
  24. endif
  25. if x{file3} NOT EQ x
  26. echo >>t:get.tmp "GET {file3}"
  27. endif
  28. if x{file4} NOT EQ x
  29. echo >>t:get.tmp "GET {file4}"
  30. endif
  31. if x{file5} NOT EQ x
  32. echo >>t:get.tmp "GET {file5}"
  33. endif
  34. echo >>t:get.tmp "CLOSE"
  35. echo >>t:get.tmp "QUIT"
  36. type t:get.tmp
  37. ask "OK?"
  38. if WARN
  39. sendmail <t:get.tmp -f bitftp-ret
  40. endif
  41. delete t:get.tmp QUIET
  42.