;
; Installation script for PGPgoesMUI

(set lng @language)


(if (= lng "deutsch")

(

	(set #msj1 "Instaliiere PGPgoesMUI...")

	(set #msj2 "Wo soll 'PGPgoesMUI' installiert werden ?")

	(set #msj3 "Welche Sprachkataloge soll ich installieren ?")

)

(
      (

	(set #msj1 "Installing PGPgoesMUI...")

	(set #msj2 "Where shall I install PGPgoesMUI ?")

	(set #msj3 "Which languages do You wish to install ?")

     	)

))

; -------------------------------------------------------------
; Start 


(transcript #msj1)


(set name
        (askdir
        (prompt #msj2)
        (help @askdir-help)
        (default "SYS:")
        )
)

(copyfiles
    (source "PGPgoesMUI")
    (infos)
    (dest name)
)

(set lang
(askoptions
	(prompt #msj3)
	(help @askoptions-help)
	(choices "deutsch" "espaņol" )
	(default def-lang)
))

(set n 0)

(while (set language (select n "deutsch" "espaņol" "" ) )
(
	(if (IN lang n)
		(copyfiles
			(source (cat "locale/" language ".catalog" ))
			(dest (cat "LOCALE:catalogs/" language ))
			(newname "pgpgoesmui.catalog")
		)
	)
	(set n (+ n 1))
))


(set @default-dest name)

(exit)