;
; $VER: Install_S3Host 1.0 (02.03.94)
; (C) 1994 Oliver Wagner
;

(set #install-hd-msg
(cat	"Where do you want the S3Host directory to be installed?"
))

(set #install-hd-help
(cat	"The S3Host installation will create a directory named"
        "S3Host and will copy all relevant files to this "
		"directory. You must designate the place where to create "
		"this directory."
))

;
; Main
;

(set default-dest
	(askdir
		(prompt #install-hd-msg)
		(help #install-hd-help)
		(default @default-dest)
	)
)
(set @default-dest
	(tackon default-dest "S3Host")
)
(complete 10)
(makedir @default-dest
	(infos)
)
(complete 20)
(copyfiles
	(source "")
	(choices "S3Host" "S3Host.guide" "S3Host.doc" )
	(confirm)
	(infos)
	(prompt "Copying S3Host files...")
	(help @copyfiles-help)
	(dest @default-dest)
)
(complete 60)
(makedir
	(tackon @default-dest "ARexx")
)
(complete 70)
(copyfiles
	(source "ARexx/")
	(dest (tackon @default-dest "ARexx/"))
	(pattern "#?.s3hrx")
	(optional nofail)
	(prompt "Copying S3Host example ARexx scripts..." )
	(help @copyfiles-help)
	(confirm)
)
(complete 100)
