home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 25 / amigaformatcd25.iso / websites / weirdscience / downloads / ibrowse1_1-1_11-68000.lha / IBrowse1.1-1.11-68000 / Update-IBrowse < prev    next >
Text File  |  1997-04-25  |  5KB  |  138 lines
  1. ; $VER: Update-IBrowse 1.11 (25.04.97)
  2.  
  3. (set @app-name "IBrowse")    ; Application name
  4.  
  5. (set #welcome "Welcome to the IBrowse 1.11 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.1 68000 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 #newstring-prompt "IBrowse uses NewString.mcc (c) 1995-1997 Rüdiger Sopp. Where do you have MUI installed?")
  13. (set #newstring-help "NewString.mcc must be installed to make IBrowse work correctly" )
  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.11.html") (dest ibdir) )
  43.   (copyfiles (source "ReadMe1.11.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 "mailto.library" ) (dest ibdir) )
  49.   (copyfiles (source "ibamitcp.library" ) (dest ibdir) )
  50.   (copyfiles (source "ibas225.library" ) (dest ibdir) )
  51.   (copyfiles (source "ibimagedecode.library" ) (dest ibdir) )
  52.  
  53.   (set mui-dir (tackon ibdir "mui") )
  54.   (copyfiles (source "mui" ) (dest mui-dir) (all) ) )
  55.  
  56. (procedure check-mui
  57.   (set muiver (/ (getversion "libs:muimaster.library" ) 65536) )
  58.   (if (< muiver 19)
  59.     ( message #mui-38) ) )
  60.  
  61. (message #welcome)
  62.  
  63. (check-mui)
  64.  
  65. (complete 5)
  66.  
  67. (set ibrowse-ok 0)
  68. (until (= ibrowse-ok 1)
  69.   (set ibdir
  70.     (askdir
  71.       (prompt #destdir-prompt)
  72.       (help #destdir-help)
  73.       (default "Work:IBrowse") ) )
  74.   (set ibrowse-file (tackon ibdir "IBrowse") )
  75.   (if (= (exists ibrowse-file) 1)
  76.     ( (set ibrowse-ok 1) )
  77.     ( (message #no-ib-installed) ) ) )
  78.   
  79. (complete 10)
  80.  
  81. (if (<> (getsize (tackon ibdir "IBrowse") ) 360760 )
  82.   ( ( (cleanup)
  83.       (abort #wrong-update) ) ) )
  84.  
  85. (setup)
  86.  
  87. (set @default-dest ibdir)
  88.  
  89. (complete 20)
  90.  
  91. (install)
  92.  
  93. (complete 60)
  94.  
  95. (working #updating)
  96.  
  97. (patch)
  98.  
  99. (complete 70)
  100.  
  101. (if (= (exists "mui:libs/mui/Newstring.mcc" (noreq)) 1)
  102.   ( (set newstring-version (getversion "mui:libs/mui/Newstring.mcc") ) )
  103.   ( (set newstring-version 0 ) ) )
  104.  
  105. (if (< newstring-version 1048586)
  106.   ( (set newstring-dir
  107.       (askdir
  108.         (prompt #newstring-prompt)
  109.           (help #newstring-help)
  110.           (default "mui:") ) )
  111.     (set newstring-dir (tackon newstring-dir "libs/mui") )
  112.     (copyfiles (source "Newstring.mcc" ) (dest newstring-dir) )
  113.     (copyfiles (source "Newstring.mcp" ) (dest newstring-dir) ) ) )
  114.     
  115. (complete 80)
  116.  
  117. (cleanup)
  118.  
  119. (set multiview 0)
  120.  
  121. (if (exists "sys:utilities/multiview")
  122.   (set multiview "sys:utilities/multiview") )
  123.  
  124. (if (exists "sys:tools/multiview")
  125.   (set multiview "sys:tools/multiview") )
  126.  
  127. (if (exists "sys:system/multiview")
  128.   (set multiview "sys:system/multiview") )
  129.  
  130. (if (= multiview 0)
  131.   ( (message "Unable to find MultiView. Please read the file ReadMe1.11.txt when you have finished this installation" ) ) )
  132.  
  133. (run (cat multiview " ReadMe1.11.txt") )
  134.  
  135. (complete 99)
  136.  
  137. (exit #exit-msg (quiet) )
  138.