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

(set #Abort
(cat "NO"
))

(set #Overwrite
(cat "SÌ"
))

(set #conf
(cat "\n\nVuoi installare le configurazioni predefinite\n"
     "sul tuo sistema? Se questa è la tua prima installazione\n"
     "ti consiglio di farlo."
))

(set #conf-help
(cat "\n\nIl programma di installazione vuole sapere se è necessario\n"
     "installare i file di configurazione predefiniti.\n\n"
     "Se hai già installato un file di configurazione\n"
     "premi semplicemente il pulsante NO\n"
     "per conservare la tua configurazione."
))


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

(set #warn-kickstart-text
(cat    "\n   Versione del KickStart errata\n\n"
        "ClassAction è stato scritto per il KickStart 3.0 (V39) o superiore."
        "\n\nNON funzionerà su versioni precedenti\n"
        "\n\nAl momento tu hai il KickStart V%ld.\n\n"
        "Continuo l'installazione?"
))

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

(set #DOC-query-text
(cat "Dove vuoi installare\nla documentazione?"
))

(set #DOC-query-help
(cat "\n\nDevi scegliere una directory nella quale\n"
        "installare il file della guida.\n\n"
        "Basta fare click su di essa con il mouse e"
        " selezionare Procedi."
))

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

(set #CA-query-text
(cat "Dove vuoi installare\nil programma principale\nClassAction?"
))

(set #CA-query-help
(cat "\n\nDevi scegliere una directory nella quale\n"
        "installare il file del programma principale.\n\n"
        "Basta fare click su di essa con il mouse e"
        " selezionare Procedi."
))

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

(set #CAP-query-text
(cat "Dove vuoi installare\nClassActionPrefs?"
))

(set #CAP-query-help
(cat "\n\nDevi scegliere una directory nella quale\n"
        "installare il file del programma di preferenze.\n\n"
        "Basta fare click su di essa con il mouse e"
        " selezionare Procedi.\n"
        "Puoi scegliere SYS:Prefs se non sai dove"
        " installarlo..."
))


(set #ver-help
(cat "\n\nSe stai aggiornando una versione precedente\n"
        "l'icona di ClassAction non sarà\n\n"
        "copiata, per evitare di cancellare\n"
        "la tua configurazione dei parametri\n"
))

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

(set #goodbye
(cat "\nClassAction è stato installato."
))

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

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

                ((message "\nClassAction ora è MailWare!! \n\nPuoi registrarti GRATUITAMENTE sulla rete."))

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

(if(exists("CAHOME:ClassAction"))
                (
                (message "\nStai aggiornando una vecchia versione di ClassAction.\n\nNon dimenticare di leggere la guida\nriguardo ai nuovi parametri aggiunti\ne ai comandi REQV[] e 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 "Italiano/ClassAction.guide") (dest thedir) (infos) )
(complete 75)

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

(copyfiles (source "Italiano/ClassAction.catalog") (dest "locale:catalogs/italiano"))

(copyfiles (source "Italiano/ClassActionPrefs.catalog") (dest "locale:catalogs/italiano"))

(complete 100)

(message #goodbye)
(exit (quiet))