home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / patches / ibrowse1.12-1.2-68020 / update-ibrowse < prev   
Encoding:
Text File  |  1998-02-25  |  5.1 KB  |  136 lines
  1. ; $VER: Update-IBrowse 1.2 (24.02.98)
  2.  
  3. (set @app-name "IBrowse")    ; Application name
  4.  
  5. (set #welcome "Welcome to the IBrowse 1.2 update patch.\n\nIBrowse is (c) 1995-1998 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.12(a) 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 #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)")
  15. (set #mui-38 "IBrowse needs MUI3.8 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/.If you get this message even though you know you have installed MUI3.8 or later, you are probably just running the old installer program and you can safely ignore this message.")
  16.  
  17. (procedure setup
  18.   (copyfiles (source "PrePatch") (dest "t:") )
  19.   (copyfiles (source "RePatch") (dest "t:") )
  20.   (copyfiles (source "spatch") (dest "t:") ) )
  21.  
  22. (procedure cleanup
  23.   (delete "t:PrePatch")
  24.   (delete "t:RePatch")
  25.   (delete "t:IbSerialNum")
  26.   (delete "t:ibtemp")
  27.   (delete "t:ibtemp2")
  28.   (delete "t:spatch") )
  29.  
  30. (procedure patch
  31.   (set result (run (cat "t:PrePatch \"" (tackon ibdir "IBrowse") "\" t:ibtemp" ) ) )
  32.   (if (<> result 0)
  33.     (abort #update-error) )
  34.   (set result (run (cat "t:spatch -ot:ibtemp2 -pIBrowse.pch t:ibtemp" ) ) )
  35.   (delete "t:ibtemp")
  36.   (set result (run (cat "t:RePatch t:ibtemp2 \"" (tackon ibdir "IBrowse") "\"" ) ) )
  37.   (if (<> result 0)
  38.     (abort #update-error) )
  39.   (delete "t:ibtemp2") )
  40.  
  41. (procedure install
  42.   (copyfiles (source "ReadMe1.2.html") (dest ibdir) )
  43.   (copyfiles (source "ReadMe1.2.txt") (dest ibdir) )
  44.  
  45.   (copyfiles (source "ftp.library" ) (dest ibdir) )
  46.   (copyfiles (source "gopher.library" ) (dest ibdir) )
  47.   (copyfiles (source "http.library" ) (dest ibdir) )
  48.   (copyfiles (source "https.library" ) (dest ibdir) )
  49.   (copyfiles (source "mailto.library" ) (dest ibdir) )
  50.   (if (= imagedecoder-install 0)
  51.     ( (copyfiles (source "ibimagedecode.library.020" ) (dest ibdir) (newname "ibimagedecode.library") ) ) )
  52.   (if (= imagedecoder-install 1)
  53.     ( (copyfiles (source "ibimagedecode.library.020fpu" ) (dest ibdir) (newname "ibimagedecode.library") ) ) )
  54.   (if (= imagedecoder-install 2)
  55.     ( (copyfiles (source "ibimagedecode.library.040fpu" ) (dest ibdir) (newname "ibimagedecode.library") ) ) )
  56.   (if (= imagedecoder-install 3)
  57.     ( (copyfiles (source "ibimagedecode.library.060fpu" ) (dest ibdir) (newname "ibimagedecode.library") ) ) )
  58.  
  59.   (set mui-dir (tackon ibdir "mui") )
  60.   (copyfiles (source "mui" ) (dest mui-dir) (all) ) )
  61.  
  62. (procedure check-mui
  63.   (set muiver (/ (getversion "libs:muimaster.library" ) 65536) )
  64.   (if (< muiver 19)
  65.     ( message #mui-38) ) )
  66.  
  67. (message #welcome)
  68.  
  69. (check-mui)
  70.  
  71. (complete 5)
  72.  
  73. (set ibrowse-ok 0)
  74. (until (= ibrowse-ok 1)
  75.   (set ibdir
  76.     (askdir
  77.       (prompt #destdir-prompt)
  78.       (help #destdir-help)
  79.       (default "Work:IBrowse") ) )
  80.   (set ibrowse-file (tackon ibdir "IBrowse") )
  81.   (if (= (exists ibrowse-file) 1)
  82.     ( (set ibrowse-ok 1) )
  83.     ( (message #no-ib-installed) ) ) )
  84.   
  85. (complete 10)
  86.  
  87. (if (<> (getsize (tackon ibdir "IBrowse") ) 384232 )
  88.   ( ( (cleanup)
  89.       (abort #wrong-update) ) ) )
  90.  
  91. (set imagedecoder-install
  92.   (askchoice
  93.     (choices "68020" "68020/FPU" "68040/FPU" "68060/FPU")
  94.       (prompt #imagedecoder-prompt)
  95.         (help #imagedecoder-help)
  96.         (default imagedecoder-install) ) )
  97.  
  98.  
  99. (setup)
  100.  
  101. (set @default-dest ibdir)
  102.  
  103. (complete 20)
  104.  
  105. (install)
  106.  
  107. (complete 60)
  108.  
  109. (working #updating)
  110.  
  111. (patch)
  112.  
  113. (complete 80)
  114.  
  115. (cleanup)
  116.  
  117. (set multiview 0)
  118.  
  119. (if (exists "sys:utilities/multiview")
  120.   (set multiview "sys:utilities/multiview") )
  121.  
  122. (if (exists "sys:tools/multiview")
  123.   (set multiview "sys:tools/multiview") )
  124.  
  125. (if (exists "sys:system/multiview")
  126.   (set multiview "sys:system/multiview") )
  127.  
  128. (if (= multiview 0)
  129.   ( (message "Unable to find MultiView. Please read the file ReadMe1.2.txt when you have finished this installation" ) ) )
  130.  
  131. (run (cat multiview " ReadMe1.2.txt") )
  132.  
  133. (complete 99)
  134.  
  135. (exit #exit-msg (quiet) )
  136.