home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 3 / AUCD3.iso / airport / demos / webmaster / !WebM_Demo / !Run < prev    next >
Text File  |  1997-09-05  |  4KB  |  90 lines
  1. | Run file for WebMaster
  2. | © IMS Ltd 20/1/97
  3.  
  4. | Make sure directory is set up
  5. Set WebMaster$Dir <Obey$Dir>
  6. Set WebMaster$Scrap <Wimp$ScrapDir>.WebMaster
  7.  
  8. | Make sure run types are set for *this* copy of WebMaster
  9. Set File$Type_b0d WebSite
  10. Set Alias$@RunType_b0d    <WebMaster$Dir>.!Run %%*0
  11.  
  12.  
  13. | Check os version & set variable
  14. RMEnsure UtilityModule 3.10 Error This application is only suitable for use with RISC OS 3.10 or later versions
  15. Set WebMaster$OSVer 350
  16. RMEnsure UtilityModule 3.50 Set WebMaster$OSVer 310
  17.  
  18. | Make sure program has been registered
  19. |<WebMaster$Dir>.CheckReg
  20.  
  21. | Make sure sprites are loaded
  22. Iconsprites <WebMaster$Dir>.!Sprites
  23. RMEnsure UtilityModule 3.50 IconSprites <WebMaster$Dir>.Resources.310Support
  24.  
  25. | ------------------------------------------------------------------------
  26. | Make sure all the toolbox modules are loaded
  27. RMEnsure ColourPicker    0.31 RMLoad System:Modules.toolbox.picker
  28. RMEnsure ColourPicker    0.31 Error you need colour picker 0.16 or later
  29. RMEnsure FilterManager     0.09 RMLoad System:modules.FilterMgr
  30. RMEnsure FilterManager     0.09 Error You Need filter manager 0.09 or later
  31. RMEnsure BorderUtils     0.02 RMEnsure WindowManager 3.17  RMLoad System:modules.BorderUtil
  32. RMEnsure IRQUtils     0.12 RMLoad System:Modules.IRQUtils
  33. RMEnsure Toolbox        1.36  RMLOAD System:modules.toolbox.toolbox
  34. RMEnsure Toolbox        1.36  ERROR You need toolbox 1.36 or later
  35. RMEnsure Window         1.31  RMLOAD System:modules.toolbox.window
  36. RMEnsure Window         1.31  ERROR You need window 1.31 or later
  37. RMEnsure Menu           0.24  RMLOAD System:modules.toolbox.menu
  38. RMEnsure Menu           0.24  ERROR You need menu 0.24 or later
  39. RMEnsure Iconbar        1.12  RMLOAD System:modules.toolbox.iconbar
  40. RMEnsure Iconbar        1.12  ERROR You need iconbar 1.12 or later
  41. RMEnsure ProgInfo       0.09  RMLOAD System:modules.toolbox.proginfo
  42. RMEnsure ProgInfo       0.09  ERROR You need proginfo 0.09 or later
  43. RMEnsure SaveAs         0.12  RMLOAD System:modules.toolbox.saveas
  44. RMEnsure SaveAs         0.12  ERROR You need saveas 0.12 or later
  45. RMEnsure PrintDbox      0.09  RMLOAD System:modules.toolbox.printdbox
  46. RMEnsure PrintDbox      0.09  ERROR You need printdbox 0.09 or later
  47. RMEnsure ColourDbox    0.15  RMLoad System:modules.toolbox.colourdbox
  48. RMEnsure ColourDbox    0.15  Error You need colourdbox 0.15 or later
  49. RMEnsure ColourMenu    0.17  RMLoad System:modules.toolbox.colourmenu
  50. RMEnsure ColourMenu    0.17  Error You need colourmenu 0.17 or later
  51. RMEnsure DrawFile    1.43  RMLoad System:modules.Drawfile
  52. RMEnsure DrawFile    1.43  Error You need drawfile 1.43 or later
  53. RMEnsure DCS        1.06  RMLoad System:modules.toolbox.DCS_Quit
  54. RMEnsure DCS        1.06  Error You need DCS 1.06 or later
  55.  
  56. Set IMS$Paul$DitherTable <WebMaster$Dir>.Resources.dithtab
  57.  
  58. | ------------------------------------------------------------------------
  59. | The following variable defines how many centi-seconds the splash box is
  60. | on screen for.
  61. Set WebMaster$SplashTime 300
  62.  
  63. | ------------------------------------------------------------------------
  64. | The following section determines where WebMaster's choices file is kept.
  65. | If you're running the program from a read-only server,  you may wish
  66. | to set the 
  67. Set Temp$ "1"
  68. If "<Choices$Write>" = "" Then Set Temp$ "0"
  69. If "<Temp$>"="1" Then Set WebMaster$ChoicesWrite <Choices$Write>.WebMaster
  70. If "<Temp$>"="1" Then Set WebMaster$ChoicesRead Choices:WebMaster
  71. If "<Temp$>"="0" Then Set WebMaster$ChoicesWrite <WebMaster$Dir>.Choices
  72. If "<Temp$>"="0" Then Set WebMaster$ChoicesRead <WebMaster$Dir>.Choices
  73.  
  74. | ------------------------------------------------------------------------
  75. | Because we can export sites over an intranet,  we need to know whether
  76. | Freeway is running or not.  We use freeway to share sites.
  77. Set WebMaster$Freeway "Yes"
  78. RMEnsure Freeway 0.00 Set WebMaster$Freeway "No"
  79.  
  80. | ------------------------------------------------------------------------
  81. | If Voyager is being used,  make sure that the Internet module is loaded
  82. If "<VTiInternet$Dir>" <> "" Then RMEnsure Internet 4.07 RMLoad <VTiInternet$Dir>.Stack.Internet
  83. If "<VTiInternet$Dir>" <> "" Then RMEnsure Internet 4.07 Error You need a later version of Voyager
  84. If "<VTiInternet$Dir>" <> "" Then RMEnsure MBufManager 0.00 RMLoad <VTiInternet$Dir>.Stack.MManager
  85. If "<VTiInternet$Dir>" <> "" Then RMEnsure MBufManager 0.00 Error You need a later version of Voyager
  86.  
  87. | ------------------------------------------------------------------------
  88. | Set up wimpslot and run.
  89. Wimpslot -min 384K -max 384K
  90. /<WebMaster$Dir>.!RunImage %*0