home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 25 / amigaformatcd25.iso / websites / weirdscience / downloads / ibrowse1_02-1_1-68020.lha / IBrowse1.02-1.1-68020 / Update-IBrowse < prev    next >
Text File  |  1997-03-01  |  6KB  |  155 lines
  1. ; $VER: Update-IBrowse 1.1 (28.02.97)
  2.  
  3. (set @app-name "IBrowse")    ; Application name
  4.  
  5. (set #welcome "Welcome to the IBrowse 1.1 update patch.\n\nIBrowse is (c) 1995-1997 Omnipresence Intl.\nDistributed by Hisoft Systems.")
  6. (set #destdir-prompt "Please select where you currently have IBrowse installed. No configuration files or cached pages will be overwritten.")
  7. (set #dir "This option requires you to choose a directory. Choose one that suits your needs.")
  8. (set #wrong-update "You are trying to update another version of IBrowse than this patch allows. This patch is designed to work on the IBrowse1.02 68020(fpu) installation.\nMake sure that you havn't modified the main file in any way. (crunched, edited etc.)")
  9. (set #updating "Updating the main executable.")
  10. (set #update-error "There was a problem updating IBrowse. Please try again with more free memory. If you still have problems please contact technical support.")
  11. (set #exit-msg "\n\nIBrowse was successfully updated. Please reboot your computer before you run the new copy.")
  12. (set #imagedecoder-prompt "Please select which version of the imagedecoder you want to install.")
  13. (set #imagedecoder-help "To take advantage of features available in the later 680x0 processors, some time critical parts of IBrowse has been compiled with different modes. If you own a 68040 without fpu, you should select 68020. If you own a 68030(fpu) you should select the 68020(fpu) version.")
  14. (set #newstring-prompt "IBrowse uses NewString.mcc (c) 1995-1997 Rüdiger Sopp. Where do you have MUI installed?")
  15. (set #newstring-help "NewString.mcc must be installed to make IBrowse work correctly" )
  16. (set #no-ib-installed "There is no IBrowse installed in this directory. Make sure to point to the directory where the IBrowse main executable is (eg. Work:IBrowse)")
  17. (set #mui-37 "IBrowse needs MUI3.7 or later to function properly. It seems as if you have an older version of MUI installed. You can abort this installation now and fetch a newer version of MUI from http://ftp.uni-paderborn.de/aminet/")
  18.  
  19. (procedure setup
  20.   (copyfiles (source "PrePatch") (dest "t:") )
  21.   (copyfiles (source "RePatch") (dest "t:") )
  22.   (copyfiles (source "spatch") (dest "t:") ) )
  23.  
  24. (procedure cleanup
  25.   (delete "t:PrePatch")
  26.   (delete "t:RePatch")
  27.   (delete "t:IbSerialNum")
  28.   (delete "t:ibtemp")
  29.   (delete "t:ibtemp2")
  30.   (delete "t:spatch") )
  31.  
  32. (procedure patch
  33.   (set result (run (cat "t:PrePatch \"" (tackon ibdir "IBrowse") "\" t:ibtemp" ) ) )
  34.   (if (<> result 0)
  35.     (abort #update-error) )
  36.   (set result (run (cat "t:spatch -ot:ibtemp2 -pIBrowse.pch t:ibtemp" ) ) )
  37.   (delete "t:ibtemp")
  38.   (set result (run (cat "t:RePatch t:ibtemp2 \"" (tackon ibdir "IBrowse") "\"" ) ) )
  39.   (if (<> result 0)
  40.     (abort #update-error) )
  41.   (delete "t:ibtemp2") )
  42.  
  43. (procedure install
  44.   (copyfiles (source "ReadMe1.1.html") (dest ibdir) )
  45.   (copyfiles (source "ReadMe1.1.txt") (dest ibdir) )
  46.  
  47.   (copyfiles (source "ftp.library" ) (dest ibdir) )
  48.   (copyfiles (source "gopher.library" ) (dest ibdir) )
  49.   (copyfiles (source "http.library" ) (dest ibdir) )
  50.   (copyfiles (source "mailto.library" ) (dest ibdir) )
  51.   (copyfiles (source "ibamitcp.library" ) (dest ibdir) )
  52.   (copyfiles (source "ibas225.library" ) (dest ibdir) )
  53.   (if (= imagedecoder-install 0)
  54.     ( (copyfiles (source "ibimagedecode.library.020" ) (dest ibdir) (newname "ibimagedecode.library") ) ) )
  55.   (if (= imagedecoder-install 1)
  56.     ( (copyfiles (source "ibimagedecode.library.020fpu" ) (dest ibdir) (newname "ibimagedecode.library") ) ) )
  57.   (if (= imagedecoder-install 2)
  58.     ( (copyfiles (source "ibimagedecode.library.040fpu" ) (dest ibdir) (newname "ibimagedecode.library") ) ) )
  59.   (if (= imagedecoder-install 3)
  60.     ( (copyfiles (source "ibimagedecode.library.060fpu" ) (dest ibdir) (newname "ibimagedecode.library") ) ) )
  61.  
  62.   (set mui-dir (tackon ibdir "mui") )
  63.   (copyfiles (source "mui" ) (dest mui-dir) (all) ) )
  64.  
  65. (procedure check-mui
  66.   (set muiver (/ (getversion "libs:muimaster.library" ) 65536) )
  67.   (if (< muiver 17)
  68.     ( message #mui-37) ) )
  69.  
  70. (message #welcome)
  71.  
  72. (check-mui)
  73.  
  74. (complete 5)
  75.  
  76. (set ibrowse-ok 0)
  77. (until (= ibrowse-ok 1)
  78.   (set ibdir
  79.     (askdir
  80.       (prompt #destdir-prompt)
  81.       (help #destdir-help)
  82.       (default "Work:IBrowse") ) )
  83.   (set ibrowse-file (tackon ibdir "IBrowse") )
  84.   (if (= (exists ibrowse-file) 1)
  85.     ( (set ibrowse-ok 1) )
  86.     ( (message #no-ib-installed) ) ) )
  87.   
  88. (complete 10)
  89.  
  90. (if (<> (getsize (tackon ibdir "IBrowse") ) 290068 )
  91.   ( ( (cleanup)
  92.       (abort #wrong-update) ) ) )
  93.  
  94. (set imagedecoder-install
  95.   (askchoice
  96.     (choices "68020" "68020/FPU" "68040/FPU" "68060/FPU")
  97.       (prompt #imagedecoder-prompt)
  98.         (help #imagedecoder-help)
  99.         (default imagedecoder-install) ) )
  100.  
  101.  
  102. (setup)
  103.  
  104. (set @default-dest ibdir)
  105.  
  106. (complete 20)
  107.  
  108. (install)
  109.  
  110. (complete 60)
  111.  
  112. (working #updating)
  113.  
  114. (patch)
  115.  
  116. (complete 70)
  117.  
  118. (if (= (exists "mui:libs/mui/NewString.mcc" (noreq)) 1)
  119.   ( (set newstring-version (getversion "mui:libs/mui/NewString.mcc") ) )
  120.   ( (set newstring-version 0 ) ) )
  121.  
  122. (if (< newstring-version 1048586)
  123.   ( (set newstring-dir
  124.       (askdir
  125.         (prompt #newstring-prompt)
  126.           (help #newstring-help)
  127.           (default "mui:") ) )
  128.     (set newstring-dir (tackon newstring-dir "libs/mui") )
  129.     (copyfiles (source "NewString.mcc" ) (dest newstring-dir) )
  130.     (copyfiles (source "NewString.mcp" ) (dest newstring-dir) ) ) )
  131.     
  132. (complete 80)
  133.  
  134. (cleanup)
  135.  
  136. (set multiview 0)
  137.  
  138. (if (exists "sys:utilities/multiview")
  139.   (set multiview "sys:utilities/multiview") )
  140.  
  141. (if (exists "sys:tools/multiview")
  142.   (set multiview "sys:tools/multiview") )
  143.  
  144. (if (exists "sys:system/multiview")
  145.   (set multiview "sys:system/multiview") )
  146.  
  147. (if (= multiview 0)
  148.   ( (message "Unable to find MultiView. Please read the file ReadMe1.1.txt when you have finished this installation" ) ) )
  149.  
  150. (run (cat multiview " ReadMe1.1.txt") )
  151.  
  152. (complete 99)
  153.  
  154. (exit #exit-msg (quiet) )
  155.