; $VER: ClassAction V3.1 Installer
; Script to install Release 3.1 of 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   ClassAction 3.4 est maintenant MailWare\n\n"
        "     Vous pouvez vous enregister GRATUITEMENT avec CA_register"
        "\n\n ClassAction 3.4 necessite MUI 3.0 ou superieur\n\n"
        "Ceci est la version finale de ClassAction\n"
        "Il n'y aura pas d'autre version ."


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

(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) )
        (set warning (#warn-kickstart-text ver) ) (message warning)

(set cpu (askchoice (prompt "Quelle version de processeur voulez vous installer ?") (choices "68000" "68020 ou superieur") (help "Choisissez votre processeur")))


(if (= 0 cpu)
(
(rename "ClassAction.00" "ClassAction")
(rename "ClassActionPrefs.00" "ClassActionPrefs")
))

(if (= 1 cpu)
(
(rename "ClassAction.20" "ClassAction")
(rename "ClassActionPrefs.20" "ClassActionPrefs")
))

                (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 capacites de la version 3.4.")
                (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)


(makedir ("ENVARC:ClassAction"))

(if(exists("ENVARC:ClassAction.prefs")) (
        (copyfiles (source "ENVARC:ClassAction.prefs") (dest "ENVARC:ClassAction"))
        (delete ("ENVARC:ClassAction.prefs"))
        ))

(if(exists("ENVARC:ClassAction_Gen.prefs")) (
        (copyfiles (source "ENVARC:ClassAction_Gen.prefs") (dest "ENVARC:ClassAction"))
        (delete ("ENVARC:ClassAction_Gen.prefs"))
        ))

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

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

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

(complete 100)

(message #goodbye)
(exit (quiet))

