home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / utilities / boot / magicsel_v1.6.lha / MagicSelector / Mosaic / StartMosaic < prev   
Encoding:
Text File  |  1994-12-20  |  2.7 KB  |  135 lines
  1. .bra {
  2.  
  3. .ket }
  4.  
  5. FailAt 25
  6.  
  7. ;
  8. ; $VER: StartMosaic 1.1 (23.6.94)
  9. ;
  10. ; Starter for AMosaic
  11. ;
  12. ; (C) 1994 by Bernhard Möllemann
  13. ;
  14. ; You may use it for any purpose,
  15. ; but this Copyright notice must be included and left intact
  16. ;
  17. ;
  18. ; Modified by Øyvind Falch for use in MagicSelector Mosaic
  19. ;
  20. ; This what not easy to get right ! :-| !
  21.  
  22. ; make sure we have the config
  23.  
  24. assign MS: ""
  25.  
  26. If NOT EXISTS ENV:Mosaic
  27.   MakeDir ENV:Mosaic
  28.   SetEnv Mosaic/HomeDocument file://localhost/ms:mosaic/main.html ; mosaic seems to ignore Set
  29. Else
  30.   SetEnv Mosaic/HomeDocument file://localhost/ms:mosaic/main.html ; mosaic seems to ignore Set
  31. EndIf
  32.  
  33. ; adjust image cache on small Amiga
  34.  
  35. Avail TOTAL >ENV:__freespace
  36. If NOT VAL ${__freespace} GT 1000000
  37.   SetEnv Mosaic/ImageCacheSize 200
  38. EndIf
  39. Delete >NIL: ENV:__freespace
  40.  
  41. ; on 68000/10 delay the image loads
  42.  
  43. CPU >NIL: CHECK 68020
  44. If WARN
  45.   SetEnv Mosaic/DelayImageLoads true
  46. EndIf
  47.  
  48. ; set initial window position
  49.  
  50. If NOT EXISTS ENV:MUI/AMOSAIC.1.wini
  51.   If NOT EXISTS ENV:MUI
  52.     MakeDir ENV:MUI
  53.   EndIf
  54.   Copy ENVARC/MUI/AMOSAIC.1.wini ENV:MUI CLONE QUIET
  55. EndIf
  56.  
  57. ; add some settings
  58.  
  59. ; IconX does not copy Workbenchs path, so we have to handcraft a minimal path
  60. ; "${Mosaic/SetPath}" is a hook for you!
  61. If NOT "${Mosaic/SetPath}" EQ "*${Mosaic/SetPath}"
  62.   Execute "${Mosaic/SetPath}"
  63. Else
  64.   Path C: Rexx: S:
  65.   If EXISTS SYS:Rexxc
  66.     Path SYS:Rexxc
  67.   EndIf
  68.   If EXISTS SYS:System
  69.     Path SYS:System
  70.   EndIf
  71.   If EXISTS SYS:Utilities
  72.     Path SYS:Utilities
  73.   EndIf
  74.   If EXISTS SYS:Tools
  75.     Path SYS:Tools
  76.   EndIf
  77.   If EXISTS SYS:WBStartup
  78.     Path SYS:WBStartup
  79.   EndIf
  80.   If EXISTS SYS:Tools/Commodities
  81.     Path SYS:Tools/Commodities
  82.   EndIf
  83. EndIf
  84.  
  85. Stack 8192
  86.  
  87. ;
  88. ; Try to find the right Mosaic version for yor System
  89. ;
  90.  
  91. ; ${Moasic/Binary} is a hook in case of the script guesses the wrong Version
  92. ; or an update arrives before Meeting-Pearls Volume 2 is released 8-)
  93.  
  94. If NOT "${Mosaic/Binary}" EQ "*${Mosaic/Binary}"
  95.   "${Mosaic/Binary}"
  96.   Skip MosaicDone
  97. EndIf
  98.  
  99. ; check for AmiTCP
  100. ; Note, that Mosaic 1.2 wants AmiTCP 3.0beta
  101. ; I try to ensure this with the check or the usergroup.library
  102.  
  103. Status >NIL: COMMAND=AmiTCP:bin/inetd
  104. If NOT WARN
  105.   Version >NIL: AmiTCP:libs/usergroup.library 4
  106.   If NOT WARN
  107. ;    :Installed_Progs/comm/Mosaic1.2/Mosaic-AmiTCP
  108.     Mosaic:mosaic
  109.     Skip MosaicDone
  110.   EndIf
  111. EndIf
  112.  
  113. ; check for AS225
  114.  
  115. Status >NIL: COMMAND=INet:bin/inetd
  116. If NOT Warn
  117. ;  :Installed_Progs/comm/Mosaic1.2/Mosaic-AS225
  118.     Mosaic:mosaic
  119.   Skip MosaicDone
  120. EndIf
  121.  
  122. ; else use plain version
  123.  
  124. ;:Installed_Progs/comm/Mosaic1.2/Mosaic-NoNet
  125.  
  126. Mosaic:mosaic
  127.  
  128. LAB Mosaic/Done
  129.  
  130. ; clean up
  131.  
  132. rx  "if GetClip('__Mosaic_started_DT2')='TRUE' then do ; Address DELITRACKER QUIT; Call SetClip('__Mosaic_started_DT2',''); end;"
  133.  
  134. EndCLI
  135.