;
; Installation script for PGPgoesMUI

(if (= @language "deutsch")

(

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

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

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

))

(if (= @language "italiano")

(

	(set #msj1 "Sto installando PGPgoesMUI...")

	(set #msj2 "Dove volete che 'PGPgoesMUI' sia installato ?")

	(set #msj3 "Quale lingua volete sia installata ?")

))


(if (= @language "español")

(

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

      (set #msj2 "¿Dónde desea que instale 'PGPgoesMUI'?")

      (set #msj3 "¿Qué idiomas desee que instale?")

))

(if (= @language "english")

(

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

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

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


))

(if (= @language "français")

(

      (set #msj1 "Je suis en train de installer 'PGPgoesMUI'...")

      (set #msj2 "¿Oú voulez-vous copier PGPgoesMUI ?")

      (set #msj3 "Quelles sont les langues à installer?")

))



; 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" "italiano")
	(default 0) ;def-lang)
))

(set n 0)

(while (set language (select n "deutsch" "español" "italiano" "" ) )
(
	(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)