; Installation script for TrapListPrefs

(set @user-level 2)

(transcript "Installing TrapListPrefs...")

(set rtvernum (getversion "libs:reqtools.library"  ))
(set rtver (/ rtvernum 65536))
(set rtrev (- rtvernum (* rtver 65536) ) )


(set muivernum (getversion "libs:muimaster.library" ))
(set muiver (/ muivernum 65536))
(set muirev (- muivernum (* muiver 65536) ) )


( if (< rtver  38)
    (message ("You have reqtools v%ld.%ld\n" rtver rtrev)
			 "You need to install version 38.x+ of reqtools.library\n"
			 "inorder to use TrapListPrefs")
)

( if (< muiver  8)
    (message ("You have MUI v%ld.%ld" muiver muirev)
			 "You need to install version 8.x+ of MUI\n"
			 "in order to use TrapListPrefs."
			 "This version of MUI can be found in the 2.1 release\n")
)


(set locale
        (askoptions
            (prompt "Install which language?")
            (help  @askoptions-help)
            (choices "English"
;					 "Dansk"
;                    "Español"
                     "Français"   ;1
	 				 "Italiano"   ;2
                     "Deutsch"    ;3
;                    "Nederlands"
;                    "Norsk"
;                    "Português"
					 "Suomi"      ;4
;                    "Svenska"
                     )
            (default 1)
        )
)

(if (IN locale 1)
    (copyfiles
            (source "catalogs/Français/traplistprefs.catalog")
            (dest "Locale:Catalogs/Français")
    )
)

(if (IN locale 2)
    (copyfiles
            (source "catalogs/Italiano/traplistprefs.catalog")
            (dest "Locale:Catalogs/Italiano")
    )
)

(if (IN locale 3)
    (copyfiles
            (source "catalogs/Deutsch/TrapListPrefs.catalog")
            (dest "Locale:Catalogs/Deutsch")
    )
)

(if (IN locale 4)
    (copyfiles
            (source "catalogs/Suomi/TrapListPrefs.catalog")
            (dest "Locale:Catalogs/Suomi")
    )
)

( if (= (exists "Mail:TrapList.cfg" (noreq)) 1)
	(set cfg
		(askbool
		        (prompt "You already have a configuration for TrapList\n"
						"in your Mail: directory.\n"
						"Do you want to TrapListPrefs to automatically load\n"
						"that config when it is run" )
		        (help "It's up to YOU.")
		        (choices "Yes" "No")
		        (default 1)              ; 0 = no
		)
	)
)


(if (= cfg 1)                           ; conditional test
    (tooltype
            (dest "TrapListPrefs")
            (settooltype "CONFIG" "Mail:TrapList.cfg")
    )
)

(set destdir
        (askdir
                (prompt "Install TrapListPrefs where?")
                (help @askdir-help)
                (default "SYS:Tools")
        )
)

(set @default-dest destdir)

(copyfiles
        (source "TrapListPrefs")
        (infos)
        (dest @default-dest)
)

(exit ("Please remember TrapListPrefs is shareware,\nsee docs for information about registering."))