Fix copying of the wrong .readme during installation.

Abort with a message if the archive doesn't match the OS version.
This commit is contained in:
Chris Young 2016-02-28 11:26:19 +00:00
parent 55b9a12785
commit 2108697533

23
amiga/dist/Install vendored
View File

@ -39,9 +39,28 @@
;;; Script execution starts here ;;; ;;; Script execution starts here ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(set osver (getversion))
(set osver (/ osver 65536))
(if (= @app-name "NetSurfAutoInstall") (set #AutoInstall 1)) (if (= @app-name "NetSurfAutoInstall") (set #AutoInstall 1))
(set @app-name "NetSurf") (set @app-name "NetSurf")
(set #netsurf-readme "NetSurf.readme")
(if (= (exists #netsurf-readme) 0)
(
(set #netsurf-readme "NetSurf_os3.readme")
(if (OR (>= osver 50) (< osver 44))
(abort "This archive is for AmigaOS 3.5 or 3.9 ONLY.")
)
)
;else
(
(if (< osver 50)
(abort "This archive is for AmigaOS 4.0 and higher ONLY.")
)
)
)
(if (<> #AutoInstall 1) (welcome)) (if (<> #AutoInstall 1) (welcome))
; (hopefully temporary) workaround for a bug in Installer: ; (hopefully temporary) workaround for a bug in Installer:
@ -80,8 +99,6 @@
(working "Checking existing installation...") (working "Checking existing installation...")
(set #icon-exists (exists (tackon @default-dest "NetSurf.info"))) (set #icon-exists (exists (tackon @default-dest "NetSurf.info")))
(set osver (getversion))
(set osver (/ osver 65536))
(complete 10) (complete 10)
@ -203,7 +220,7 @@
(copyfiles (copyfiles
(prompt "Copying files") (prompt "Copying files")
(source "") (source "")
(choices "Resources" "Rexx" "NetSurf.guide" "NetSurf.readme") (choices "Resources" "Rexx" "NetSurf.guide" #netsurf-readme)
(help @copyfiles-help) (help @copyfiles-help)
(dest @default-dest) (dest @default-dest)
(infos) (infos)