; $VER: ClassAction V2.6 Installer
; Script to install Release 2.6 ClassAction
(complete 0)

(set #Abort
(cat "NON"
))

(set #Overwrite
(cat "OUI"
))

(set #conf
(cat "\n\nVoulez vous installer les fichiers de \nconfig standards"
     " sur votre systeme ?\nSi ceci est votre premiere installation\n"
     "je vous recommande de les installer."
))

(set #conf-help
(cat "\n\nl'installeur a besoin de savoir si vous voulez\n"
     "installer les fichiers standards de config.\n\n"
     "Si vous avez deja votre propre configuration instale\n"
     "cliquez sur NON\n"
     "pour conserver votre ancienne configuration."
))


;********************************************************************

(set #warn-kickstart-text
(cat    "\n   Mauvaise Version KickStart\n\n"
        "ClassAction a t ecrit pour le OS 3.0 (V39) ou superieur."
        "\n\nil ne fonctionnera pas sur un systeme anterieur.\n"
        "\n\nVous avez un KickStart V%ld.\n\n"
        "Dois je continuer l'installation ?"
))

;*********************************************************************

(set #DOC-query-text
(cat "Ou dois je installer\nla documentation ?"
))

(set #DOC-query-help
(cat "\n\nVous devez choisir un repertoire ou installer\n"
        "la documentation ( fichier amigaguide )\n\n"
        "Choisissez le repertoire voulu puis cliquez sur continuer"
))

;****************************************

(set #CA-query-text
(cat "Ou dois je installer\nle programme principal\nClassAction ?"
))

(set #CA-query-help
(cat "\n\nVous devez choisir un repertoire ou installer\n"
        "ClassAction ( le programme principal )\n\n"
        "Choisissez le repertoire voulu puis cliquez sur continuer"
))

;****************************************

(set #CAP-query-text
(cat "Ou dois je installer \nClassActionPrefs ?"
))

(set #CAP-query-help
(cat "\n\nVous devez choisir un repertoire ou installer\n"
        "ClassActionPrefs ( le programme de configuration )\n\n"
        "Choisissez le repertoire voulu puis cliquez sur continuer\n"
        "vous pouvez choisir SYS:Prefs si vous ne savez pas\n"
        "ou l'installer. "
))


(set #ver-help
(cat "\n\nSi vous faite une mise a jour\n"
        "de ClassAction, son icone\n\n"
        "ne sera pas copi, pour eviter\n"
        "d'alterer votre config tooltypes\n"
))

;********************************************************************

(set #goodbye
(cat "\nClassAction est maintenant install."
))

;********************************************************************

(set ver (/ (getversion) 65536) )
(if (< ver 39) (
        (set warning (#warn-kickstart-text ver) ) (message warning)
))


                ((message "\nClassAction est maintenant MailWare !! \n\nVous pouvez vous enregister\n\nGRATUITEMENT en utilisant CA_register"))

                (set thedir (askdir (prompt #CA-query-text) (help #CA-query-help) (default "SYS:WbStartup")))
                (makeassign "CAHOME" thedir)

                (copyfiles (source "CA_Register") (dest thedir) (infos))

                (if(exists("CAHOME:ClassAction"))
                (
                (message "\nVous etes en train de faire une mise a jour de ClassAction\n\nN'oubliez pas de lire le guide \na propos des nouveaux tooltypes definis\net des nouvelles commandes REQV[] et REQT[].")
                (copyfiles (source "ClassAction") (dest thedir))
                (run "utt CAHOME:ClassAction ClassAction CAHOME:ClassAction")
                )
                (copyfiles (source "ClassAction") (dest thedir) (infos))
                )

(complete 25)


                (set thedir (askdir (prompt #CAP-query-text) (help #CAP-query-help) (default "SYS:Prefs")))
                (copyfiles (source "ClassActionPrefs") (dest thedir) (infos) )
(complete 50)

                (set thedir (askdir (prompt #DOC-query-text) (help #DOC-query-help) (default "HELP:")))
                (copyfiles (source "Francais/ClassAction.guide") (dest thedir) (infos) )
(complete 75)

(if(askbool (prompt #conf) (help #conf-help) ) (
                (copyfiles (source "Francais/ClassAction.prefs") (dest "ENVARC:"))
                (copyfiles (source "Francais/ClassAction_Gen.prefs") (dest "ENVARC:"))
                ))

(copyfiles (source "Francais/ClassAction.catalog") (dest "locale:catalogs/franais"))

(copyfiles (source "Francais/ClassActionPrefs.catalog") (dest "locale:catalogs/franais"))

(complete 100)

(message #goodbye)
(exit (quiet))

