; ************************************************
; *
; * $VER: Install-DAD V1.01 (28.8.94)
; *
; * This is the installation script for DoAllData
; *
; * Copyright © 1994 Sven Dickert  All Rights Reserved
; *
; ************************************************


; ****************************
; * Set up some global variables.
; ****************************
;
(set ProductName	"DoAllData")	; product name
(set VersionNum		"1.01")	  		; product version number

(set OSVersion		(/ (getversion) 65536))
(set AccumFiles		0)
(set PctDone		0)
(set @default-dest "SYS:WBStartup")


(procedure incrementMeter
;
; ****************************
; * Increment the progress meter indicator.
; ****************************
;
;    addToMeter
;
	(
	(set AccumFiles	(+ AccumFiles addToMeter))
	(complete AccumFiles)
	)
)


; **************************
; * DAD Main Installation routine
; **************************
;
( 
	(copyfiles
		(prompt	("Installing %s..." ProductName))
		(help	"")
		(source	("/%s" ProductName))
		(dest	@default-dest)
	)
	(copyfiles
    (source ("/%s.info" ProductName))
		(dest	@default-dest)
	)
  (set addToMeter	10)
	(incrementMeter)

	; ****************************
	; * copy Catalogs/deutsch/doalldata.catalog,
	; * if necessary
	; ****************************
	;
	(if (>= OSVersion 38)
		(
    (if (<> @language "english")
    ( 
      (set dad_cat ("/Catalogs/%s/doalldata.catalog" @language))
      (if (exists dad_cat)
      (
    	(copyfiles
     		(prompt	("Installing Catalog File ..."))
  	  	(help	"")
  		  (source	dad_cat)
  		  (dest	("Locale:Catalogs/%s" @language))
     	)
    )
    )
    )
    )
		)
  )
  (set addToMeter	10)
	(incrementMeter)

	; ****************************
	; * exit the program.
	; ****************************
	;
	(complete 100)
	(exit)
)