home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Archived / Updates / Ftp129 / !FTPc / !run < prev    next >
Text File  |  2000-05-24  |  2KB  |  39 lines
  1. run <obey$dir>.!boot
  2.  
  3. run <FTPc$dir>.resources.resfind FTPc
  4.  
  5. RMEnsure UtilityModule 3.10 Error This application is only suitable for use with RISC OS 3.10 or later versions
  6.  
  7. RMEnsure FilterManager 0.00 RMLoad System:modules.FilterMgr
  8. RMEnsure FilterManager 0.08 Error You Need filter manager 0.08 or later
  9.  
  10. RMEnsure BorderUtils 0.05 RMEnsure WindowManager 3.17  RMLoad System:modules.BorderUtil
  11.  
  12. RMEnsure Toolbox    0.00  RMLoad System:modules.toolbox.toolbox
  13. RMEnsure Toolbox    1.36  Error You need toolbox 1.36 or later to run !FTPc
  14. RMEnsure Window     0.00  RMLoad System:modules.toolbox.window
  15. RMEnsure Window     1.31  Error You need window 1.31 or later to run !FTPc
  16. RMEnsure Menu       0.00  RMLoad System:modules.toolbox.menu
  17. RMEnsure Menu       0.24  Error You need menu 0.24 or later to run !FTPc
  18. RMEnsure Iconbar    0.00  RMLoad System:modules.toolbox.iconbar
  19. RMEnsure Iconbar    1.13  Error You need iconbar 1.13 or later to run !FTPc
  20. RMEnsure ProgInfo   0.00  RMLoad System:modules.toolbox.proginfo
  21. RMEnsure ProgInfo   0.05  Error You need proginfo 0.05 or later to run !FTPc
  22.  
  23.  
  24. set FTPc$temp 0
  25. If "<InetDBase$Path>" <> "" then if "<Inet$MimeMappings>" = "" then set FTPc$temp 1
  26. If "<FTPc$temp>" = "1"       then <FTPc$dir>.IfThere InetDBase:Mimemap then set FTPc$temp 2
  27. if "<FTPc$temp>" = "2"       then Set Inet$MimeMappings InetDBase:Mimemap
  28.  
  29. set FTPc$temp 0
  30. RMEnsure MimeMap 0.05 set FTPc$temp 1
  31. if "<FTPc$temp>" = "1" then if "<Inet$MimeMappings>" <> "" then set FTPc$temp 2
  32. if "<FTPc$temp>" = "2" then <FTPc$dir>.IfThere System:Modules.Network.MimeMap Then set FTPc$temp 3
  33. if "<FTPc$temp>" = "3" then RMLoad System:Modules.Network.MimeMap
  34.  
  35. unset FTPc$temp
  36.  
  37. wimpslot -min 256k -max 256k
  38. |run <FTPc$dir>.!runimage %*0 2> <FTPc$dir>.^.log
  39. run <FTPc$dir>.!runimage %*0