;***********************************************
; script to install MultiFax professional Update
;
; © 1994 TKR GmbH & Co. KG
;***********************************************

(set mfax_dest
	(askdir
		(prompt "Bitte wählen Sie Ihr MultiFax-Verzeichnis.")
		(help @help)
;		(default @default-dest)
		(default "MultiFax:")
	)
)

	; now lock on to volume 'mfax'

(if (not (exists mfax_dest))
	(exit)
)

	; at this point we have a valid destination, so we tell installer where
	; the application will end up so the exit page will be correct -- also,
	; the installation log file (if any) will be copied to the destination
(set @default-dest mfax_dest)

(copyfiles
	(source "Update")
	(dest mfax_dest)
	(pattern "#?")
	(infos)
)


(complete 100)

	; cleanup

(message "Der Installationsvorgang ist nun beendet."
)

	; this is not strictly necessary, but doesn't hurt -- there is always
	; a default (exit) at the end of any script

(exit)