home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 6 / AACD06.ISO / AACD / WebSites / IBrowse / Install-IBrowse < prev    next >
Text File  |  1999-09-01  |  12KB  |  319 lines
  1. ; $VER: Install-IBrowse 2.1 (8.19.99)
  2.  
  3. (set @app-name "IBrowse")    ; Application name
  4. (set cpu (database "cpu") )
  5. (set fpu (database "fpu") )
  6. (set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  7. (set diskno 1)
  8. (if (and (<> cpu "68000") (<> cpu "68010") )
  9.   (set cpu-install 1) )
  10. (if (and (<> "NOFPU" fpu) (= cpu-install 1) )
  11.   (set cpu-install 2) )
  12. (if (and (<> "NOFPU" fpu) (= "68040" cpu) )
  13.   (set cpu-install 3) )
  14. (if (exists "libs:68060.library")
  15.   (set cpu-install 4) )
  16.  
  17. (set #welcome "Welcome to the IBrowse installation utility. IBrowse is a fast, multithreaded web browser.\n\nIBrowse is (c) 1995-1999 Omnipresence Intl.\nDistributed by Hisoft Systems.")
  18. (set #languages-prompt "Please select which languages of IBrowse you want to install")
  19. (set #destdir-prompt "Please select where you want to install IBrowse. A drawer named 'IBrowse' will be created in this directory")
  20. (set #cpu-prompt "Select which version of IBrowse you would like to install")
  21. (set #cpu-help "You should choose the configuration that suits your computer. The installation has guessed what you need, but you may change it as long as you have a computer that can handle it. If you own an 68040 without fpu, select 68020+. If you own a 68030 (with/without fpu), select 020+ (with/without fpu).")
  22. (set #string "This option requires you to enter a value (or leave it blank) You can find additional information in the manual about the verious elements in the preferences")
  23. (set #dir "This option requires you to choose a directory. Choose one that suits your needs.")
  24. (set #ask-configure "You can configure some important parts of")
  25. (set #old-prefs "If you have an old version of IBrowse installed here, your old preferences are left. They will be renamed so that you don't loose any old settings. If you select skip, no files will be changed or copied")
  26. (set #old-hotlist "If you have an old version of IBrowse installed here, your old hotlist is left. It will be renamed so that you don't loose any links. If you select skip, no files will be changed or copied")
  27. (set #anim-help "You may choose which anim you want to install. They use different amounts of memory and you should choose the one that you find suitable for your system")
  28. (set #name "Enter your name here. IBrowse is registered in your name and you may not copy it to other people.")
  29. (set #company "Enter any additional info here, eg. Company or City")
  30. (set #serial "Your serial number is the number that came with the install disks. It may look like this: '226-12991-132'")
  31. (set #languages-help "Choose which languages you want IBrowse to be able to use. Languages in (parenthesises) are not currently included in this archive")
  32. (set #destdir-help "Choose where you want IBrowse to be stored. A drawer will be copied to this location. You will find all files in this drawer. Nothing is copied to other locations on your harddrive")
  33. (set #welcome "\n\nThis is the installation for IBrowse.\nIBrowse is a fast web-browser the the Amiga that supports many HTML4.0 features as well as many Netscape specific things.\n\n IBrowse is © 1995-1999 Omnipresence Intl.\n IBrowse is distributed by Hisoft")
  34. (set #need39 "\n\nSorry, but you need KS3.0 or later to run IBrowse")
  35. (set #ask-mui38 "\n\nIBrowse uses some new features in MUI3.8\nYou need to install this version for IBrowse to operate properly.")
  36. (set #newstring-prompt "IBrowse uses NewString.mcc (c) 1995-1997 Rüdiger Sopp. Where do you have MUI installed?")
  37. (set #newstring-help "NewString.mcc must be installed to make IBrowse work correctly" )
  38.  
  39.  
  40. (procedure install
  41.   (set info-dir (tackon ibdir "info") )
  42.   (if (not (exists info-dir) )
  43.     (makedir info-dir) )
  44.   (copyfiles (source "info") (dest info-dir) (all) )
  45.  
  46.   (set image-dir (tackon ibdir "images") )
  47.   (if (not (exists image-dir) )
  48.     (makedir image-dir) )
  49.   (copyfiles (source "images") (dest image-dir) (all) )
  50.  
  51.   (copyfiles (source "icons/IBrowse.info") (dest ibdir) )
  52.  
  53.   (set protocols-dir (tackon ibdir "protocols") )
  54.   (if (not (exists protocols-dir) )
  55.     (makedir protocols-dir) )
  56.   (copyfiles (source "protocols") (dest protocols-dir) (all) )
  57.  
  58.   (set ibcc-dir (tackon ibdir "ibcc") )
  59.   (if (not (exists ibcc-dir) )
  60.     (makedir ibcc-dir) )
  61.   (copyfiles (source "ibcc" ) (dest ibcc-dir) (all) )
  62.  
  63.   (set cache-dir (tackon ibdir "Cache") )
  64.   (if (not (exists cache-dir) )
  65.     (makedir cache-dir) )
  66.  
  67.   (if (= cpu-install 0)
  68.     (set codecssrc-dir "codecs68000") )
  69.   (if (= cpu-install 1)
  70.     (set codecssrc-dir "codecs68020") )
  71.   (if (= cpu-install 2)
  72.     (set codecssrc-dir "codecs68020fpu") )
  73.   (if (= cpu-install 3)
  74.     (set codecssrc-dir "codecs68040fpu") )
  75.   (if (= cpu-install 4)
  76.     (set codecssrc-dir "codecs68060fpu") )
  77.  
  78.   (set codecs-dir (tackon ibdir "codecs") )
  79.   (if (not (exists codecs-dir) )
  80.     (makedir codecs-dir) )
  81.   (copyfiles (source codecssrc-dir ) (dest codecs-dir) (all) ) )
  82.  
  83. (procedure install-anims
  84.   (working "Dearchiving transferanimations")
  85.   (run "t:lhex -fFaw=ram:t x IBrowseInstall2:Anims.lha" )
  86.   (set result (askchoice
  87.     (choices "24bit TrueColor" "8bit 256 colors" "6bit 64 colors" "5bit 32 colors" "5bit 32 colors (non moving)")
  88.       (prompt "Which transfer animation do you want to install?")
  89.         (help #anim-help)
  90.         (default 1) ) )
  91.   (if (= result 0)
  92.     (copyfiles (source "Anims/TransferAnimation.24") (dest image-dir) (newname "TransferAnimation") ) )
  93.   (if (= result 1)
  94.     (copyfiles (source "Anims/TransferAnimation") (dest image-dir) (newname "TransferAnimation") ) )
  95.   (if (= result 2)
  96.     (copyfiles (source "Anims/TransferAnimation.6") (dest image-dir) (newname "TransferAnimation") ) )
  97.   (if (= result 3)
  98.     (copyfiles (source "Anims/TransferAnimation.5") (dest image-dir) (newname "TransferAnimation") ) )
  99.   (if (= result 4)
  100.     (copyfiles (source "Anims/TransferAnimationNM") (dest image-dir) (newname "TransferAnimation") ) )
  101.  
  102.   (if (< result 4)
  103.     (copyfiles (source "Anims/TransferAnimation.info") (dest image-dir) )
  104.     (copyfiles (source "Anims/TransferAnimationNM.info") (dest image-dir) (newname "TransferAnimation.info") ) )
  105. )
  106.   
  107. (procedure copy-catalog
  108.   (set dest-lang (tackon (tackon ibdir "catalogs") language) )
  109.   (if (not (exists dest-lang))
  110.     (makedir dest-lang) )
  111.   (copyfiles
  112.     (source (cat (tackon "Catalogs" language) "/IBrowse.catalog") )
  113.     (dest dest-lang) ) )
  114.  
  115. (procedure install-catalogs
  116.   (set languages
  117.     (askoptions
  118.       (choices "(Català)" "(Czech)" "(Dansk)" "(Deutsch)" "English (built in)" "(Español)" "(Français)" "(Greek)" "(Italiano)" "(Nederlands)" "(Norsk)" "(Polski)" "(Português)" "Svenska")
  119.         (prompt #languages-prompt)
  120.         (help #languages-help)
  121.         (default 16) ) )
  122.  
  123.   (if (bitand languages 65519)
  124.     ( (set catdir (tackon ibdir "catalogs"))
  125.       (if (not (exists catdir))
  126.         (makedir catdir) )
  127.  
  128. ;      (if (bitand languages 1)
  129. ;        ( (set language "Català")
  130. ;          (copy-catalog) ) )
  131. ;      (if (bitand languages 2)
  132. ;        ( (set language "Czech")
  133. ;          (copy-catalog) ) )
  134. ;      (if (bitand languages 4)
  135. ;        ( (set language "Dansk")
  136. ;          (copy-catalog) ) )
  137. ;      (if (bitand languages 8)
  138. ;        ( (set language "Deutsch")
  139. ;          (copy-catalog) ) )
  140. ;      (if (bitand languages 32)
  141. ;        ( (set language "Español")
  142. ;          (copy-catalog) ) )
  143. ;      (if (bitand languages 64)
  144. ;        ( (set language "Français")
  145. ;          (copy-catalog) ) )
  146. ;      (if (bitand languages 128)
  147. ;        ( (set language "Greek")
  148. ;          (copy-catalog) ) )
  149. ;      (if (bitand languages 256)
  150. ;        ( (set language "Italiano")
  151. ;          (copy-catalog) ) )
  152. ;      (if (bitand languages 512)
  153. ;        ( (set language "Nederlands")
  154. ;          (copy-catalog) ) )
  155. ;      (if (bitand languages 1024)
  156. ;        ( (set language "Norsk")
  157. ;          (copy-catalog) ) )
  158. ;      (if (bitand languages 2048)
  159. ;        ( (set language "Polski")
  160. ;          (copy-catalog) ) )
  161. ;      (if (bitand languages 4096)
  162. ;        ( (set language "Português")
  163. ;          (copy-catalog) ) )
  164.       (if (bitand languages 8192)
  165.         ( (set language "Svenska")
  166.           (copy-catalog) ) ) ) ) )
  167.  
  168. (if (not v39)
  169.    (abort #need39)
  170. )
  171.  
  172. (message #welcome)
  173.  
  174. (set ibdir
  175.   (askdir
  176.     (prompt #destdir-prompt)
  177.     (help #destdir-help)
  178.     (default "Work:") ) )
  179.  
  180. (complete 5)
  181.  
  182. (set ibrowse-dir (tackon ibdir "IBrowse") )
  183. (if (not (exists ibrowse-dir) )
  184.   ( (makedir ibrowse-dir) )
  185.   ( (set ibrowse-version (/ (getversion (tackon ibdir "IBrowse/IBrowse") ) 65536 ) )
  186.     (if (< ibrowse-version 20)
  187.       ( (message ibrowse-version)
  188.         (run (cat "c:rename \"" (tackon ibdir "IBrowse") "\" \"" (tackon ibdir "IBrowseV1") "\"") )
  189.         (makedir ibrowse-dir) ) ) ) )
  190.  
  191. (if (not (exists (tackon ibrowse-dir "IBrowse.info") ) )
  192.   (copyfiles (source "icons/IBrowseDrw.info") (dest ibdir) (newname "IBrowse.info") ) )
  193.  
  194. (complete 10)
  195.  
  196. (set ibdir (tackon ibdir "IBrowse"))
  197.  
  198. (set @default-dest ibdir)
  199.  
  200. (install-catalogs)
  201.  
  202. (complete 20)
  203.  
  204. (set cpu-install
  205.   (askchoice
  206.     (choices "68000" "68020+" "68020+/FPU" "68040/FPU" "68060/FPU")
  207.       (prompt #cpu-prompt)
  208.         (help #cpu-help)
  209.         (default cpu-install) ) )
  210.  
  211. (complete 30)
  212.  
  213. (install)
  214.  
  215. (complete 40)
  216.  
  217. (set decrypt-ok 0)
  218.  
  219. (complete 50)
  220.  
  221. (copyfiles (source "IBrowse") (dest ibdir) )
  222.  
  223. (complete 60)
  224.  
  225. (copyfiles (source "javascript.library") (dest ibdir) )
  226.  
  227. (complete 62)
  228.  
  229. (copyfiles (source "IBCacheBrowser.mcc") (dest ibdir) )
  230.  
  231. (complete 65)
  232.  
  233. (copyfiles (source "History.txt") (dest ibdir) )
  234. (copyfiles (source "History.html") (dest ibdir) )
  235.  
  236. (complete 70)
  237.  
  238. (install-anims)
  239.  
  240. (complete 80)
  241.  
  242. ( (if (= (exists "mui:libs/mui/Newstring.mcc" (noreq)) 1)
  243.       ( (set newstring-version (getversion "mui:libs/mui/Newstring.mcc") ) )
  244.       ( (set newstring-version 0 ) ) )
  245.  
  246.     (if (< newstring-version 1048586)
  247.       ( (set newstring-dir
  248.           (askdir
  249.             (prompt #newstring-prompt)
  250.               (help #newstring-help)
  251.               (default "mui:") ) )
  252.         (set newstring-dir (tackon newstring-dir "libs/mui") )
  253.         (copyfiles (source "mui/Newstring.mcc" ) (dest newstring-dir) )
  254.         (copyfiles (source "mui/Newstring.mcp" ) (dest newstring-dir) ) ) ) )
  255.  
  256. (complete 90)
  257.  
  258. (message "IBrowse 2.0 uses NList.mcc. They will now be installed if you don't have them")
  259.         
  260. (copylib (prompt #prompt_copy "\n\nNList.mcc" )
  261.          (help @copylib-help)
  262.          (confirm "average")
  263.          (source "mui/NList.mcc")
  264.          (dest "MUI:Libs/MUI")
  265.          (optional "oknodelete" "force")
  266. )
  267.  
  268. (copylib (prompt #prompt_copy "\n\nNListview.mcc" )
  269.          (help @copylib-help)
  270.          (confirm "average")
  271.          (source "mui/NListview.mcc")
  272.          (dest "MUI:Libs/MUI")
  273.          (optional "oknodelete" "force")
  274. )
  275.  
  276. (copylib (prompt #prompt_copy "\n\nNFloattext.mcc" )
  277.          (help @copylib-help)
  278.          (confirm "average")
  279.          (source "mui/NFloattext.mcc")
  280.          (dest "MUI:Libs/MUI")
  281.          (optional "oknodelete" "force")
  282. )
  283.  
  284. (copylib (prompt #prompt_copy "\n\nNListviews.mcp" )
  285.          (help @copylib-help)
  286.          (confirm "average")
  287.          (source "mui/NListviews.mcp")
  288.          (dest "MUI:Libs/MUI")
  289.          (optional "oknodelete" "force")
  290. )
  291.  
  292. (copylib (prompt #prompt_copy "\n\nNListtree.mcc" )
  293.          (help @copylib-help)
  294.          (confirm "average")
  295.          (source "mui/NListtree.mcc")
  296.          (dest "MUI:Libs/MUI")
  297.          (optional "oknodelete" "force")
  298. )
  299.  
  300. (if (exists "sys:utilities/multiview")
  301.   (set multiview "sys:utilities/multiview")
  302. )
  303.  
  304. (if (exists "sys:tools/multiview")
  305.   (set multiview "sys:tools/multiview")
  306. )
  307.  
  308. (if (exists "sys:system/multiview")
  309.   (set multiview "sys:system/multiview")
  310. )
  311.  
  312. (if (= multiview 0)
  313.   (message "Unable to find MultiView. Please read the file ReadMe.txt when you have finished this installation" )
  314. )
  315.  
  316. (run (cat multiview " ReadMe.txt") )
  317.  
  318. (complete 99)
  319.