;                                                                       __
; ---------------------------------------------------------------      ///
; Mail Manager Installation Script by Marco Musso & Pino Aliberti __  ///
; --------------------------------------------------------------- \\\///
;     Give credit where the credit is due                          \///


; *** English strings
(if (= @language "english") (

    (set prompt-mmdir "Where should I install Mail Manager (a drawer called MM will be created) ?")
    (set help-mmdir "You must choose where to create your MM: dir...")

    (set prompt-startup "Some instructions need to be added to the \"S:user-startup\" so that your system will be properly configured to use Mail Manager")
    (set help-startup "These are the assignments for a correct use of Mail Manager")

    (set prompt-copy-locale "Shall I copy the locale files ?")
    (set help-copy-locale "Answer 'Yes' if you want a localized MailManager.\nIn any case I'll keep a copy of the catalogs in MM:Locale.")

    (set prompt-copy-font "Shall I copy the MMBrowse Font ?")
    (set help-copy-font "This is a special font designed to allow more characters to be displayed on the screen.\nThe MMBrowse/8 font is particularly useful if you normally use topaz 8 as your default font")

    (set message-MMprefs "Now I will run MM_Prefs.\nBy asking you for a little information MM_Prefs will create a default point configuration with which you should be immediatelly able to run Mail Manager as a 'normal' point")

    (set yes-inst "Yes")

    (set no-inst "No")

    )
)


; *** Italian strings
(if (= @language "italiano") (

    (set prompt-mmdir "Dove devo installare Mail Manager (verrà creata la directory MM) ?")
    (set help-mmdir "Devi scegliere dove installare il programma e i files relativi.")

    (set prompt-startup "Alcune istruzioni devono essere aggiunte alla \"S:User-Startup\" in modo che il tuo sistema sia correttamente configurato per l'uso di Mail Manager.")
    (set help-startup "In questa operazione viene aggiunto l'assign MM: alla tua User-Startup.")

    (set prompt-copy-locale "Vuoi copiare i cataloghi della Locale ?")
    (set help-copy-locale "Rispondi 'Si' se vuoi un Mail Manager localizzato.\nIn ogni caso manterrò una copia dei catalog in MM:Locale.")

    (set prompt-copy-font "Vuoi copiare il font MMBrowse ?")
    (set help-copy-font "Questo e' un font speciale disegnato per consentire a Mail Manager di mostrare un maggior numero di caratteri.\nIl font MMBrowse/8 è particolarmente utile a tutti coloro che normalmente usano il font Topaz/8")

    (set message-MMprefs "Ora lancierò MM_Prefs.\nChiedendoti un pò di dati, MM_Prefs crerà una configurazione di default per un point con la quale sarai in grado di usare Mail Manager immediatamente come un point 'standard'.")

    (set yes-inst "Si")

    (set no-inst "No")

    )
)

; *** Deutsch strings
(if (= @language "deutsch") (

    (set prompt-mmdir "Wo soll Mail Manager installiert werden? Ein Verzeichnis mit dem Namen MM wird automatisch angelegt.")
    (set help-mmdir "Du musst angeben, wo Dein MM: Verzeichnis angelegt werden soll!")

    (set prompt-startup "Es muessen einige Anweisungen in \"S:user-startup\" eingefuegt werden, damit Dein System fuer den Gebrauch von Mail Manager korrekt konfiguriert ist.")
    (set help-startup "Dies sind die Anpassungen fuer eine korrekte Verwendung von Mail Manager.")

    (set prompt-copy-locale "Sollen die Locale-Dateien kopiert werden?")
    (set help-copy-locale "Antworte mit 'Ja', wenn Du Mail Manager's Locale-Unterstuetzung nutzen moechtest.\nEine Kopie der Kataloge wird in jedem Fall im Verzeichnis MM:Locale abgelegt.")

    (set prompt-copy-font "Soll der MMBrowse Font kopiert werden?")
    (set help-copy-font "Dies ist spezieller Zeichensatz, der erstellt wurde, um mehr Zeichen auf dem Bildschirm darstellen zu koennen.\nDer MMBrowse/8 Font ist besonders nuetzlich, wenn Du normalerweise Topaz 8 als Standardzeichensatz benutzt.")

    (set message-MMprefs "MM_Prefs wird jetzt gestartet.\nBeantworte bitte die dort gestellten Fragen. MM_Prefs erstellt eine Standard-Pointkonfiguration, mit der Du Mail Manager sofort als 'normaler' Point benutzen kannst.")

    (set yes-inst "Ja")

    (set no-inst "Nein")

    )
)

; *** French strings
(if (= @language "français") (

    (set prompt-mmdir "Où puis je installer Mail Manager (un répertoire appelé MM sera créer) ?")
    (set help-mmdir "Vous devez choisir où créer votre répertoire MM: ...")

    (set prompt-startup "Il est nécéssaire d'ajouter quelques instructions à la \"S:user-startup\" ainsi le système sera correctement configuré pour utiliser Mail Manager")
    (set help-startup "Ce sont les assignations nécessaires à un usage correct de Mail Manager")

    (set prompt-copy-locale "Pourrai je copier les fichier locaux ?")
    (set help-copy-locale "Répondez 'Oui' si vous voulez localiser Mail Manager.\nDans tous les cas je placerai une copie des catalogues dans MM:Locale.")

    (set prompt-copy-font "Pourrai je copier la Font MMBrowse ?")
    (set help-copy-font "C'est une font spéciale étudiée pour permettre un affichage de plus de caractères à l'écran.\nLa font MMBrowse/8 est particulièrement pratique si vous utilisez normalement topaz 8 comme font par défaut")

    (set message-MMprefs "Maintenant je vais lancer MM_Prefs.\nEn vous demandant quelques informations MM_Prefs va créer une configuration de point par défaut avec laquelle vous serez immédiatement à même de faire tourner Mail Manager comme un point 'normal'")

    (set yes-inst "Oui")

    (set no-inst "Non")

    )
)

; *** Danish strings
(if (= @language "dansk") (

    (set prompt-mmdir "Hvor skal jeg installere Mail Manager (en skuffe kaldet MM vil blive lavet) ?")
    (set help-mmdir "Du skal vælge hvor du vil have din MM: skuffe...")

    (set prompt-startup "Nogle instruktioner skal tilføjes til \"S:user-startup\" så dit system vil være korrekt konfigureret til at bruge Mail Manager")
    (set help-startup "Dette er assigns'ne for korrekt brug af Mail Manager")

    (set prompt-copy-locale "Skal jeg kopiere locale filerne?")
    (set help-copy-locale "Svar 'Ja' hvis du ønsker en localiseret Mail Manager.\nI begge tilfælde beholder jeg en kopi af katalogerne i MM:Locale.")

    (set prompt-copy-font "Skal jeg kopiere MMBrowse skrifttypen?")
    (set help-copy-font "Dette er en speciel skrifttype designet to at tillade flere karakterer at blive brugt på skærmen.\nMMBrowse/8 skrifttypen er specielt brugbar hvis du normalt bruger Topaz/8 som din standard skrifttype")

    (set message-MMprefs "Nu vil jeg starte MM_Prefs.\nVed at spørge dig om nogle få informationer vil MM_Prefs skabe en standard point konfiguration så du straks burde kunne køre Mail Manager som 'normal' point")

    (set yes-inst "Ja")

    (set no-inst "Nej")

    )
)

; *** Nederlands strings
(if (= @language "nederlands") (

    (set prompt-mmdir "Waar zal ik Mail Manager installeren (een directory genaamd MM zal worden aangemaakt) ?")
    (set help-mmdir "U zult aan moeten geven waar de MM: directory aangemaakt moet worden...")

    (set prompt-startup "Er zullen enige instructies aan de \S:user-startup\ toegevoegd moeten worden zodat uw systeem juist geconfigureerd is voor het gebruik van Mail Manager.")
    (set help-startup "Dit zijn de assigns voor een correct gebruik van Mail Manager.")

    (set prompt-copy-locale "Zal ik de 'locale' bestanden kopieren ?")
    (set help-copy-locale "Antwoord 'Ja' als u een gelocaliseerde versie van Mail Manager wilt.\nIn ieder geval zal er een kopie bewaard worden in de MM:Locale directory.")

    (set prompt-copy-font "Zal ik het MMBrowse lettertype kopieren ?")
    (set help-copy-font "Dit is een speciaal lettertype ontworpen om meer karakters op het scherm weer te geven.\nHet MMBrowse/8 lettertype is bijzonder geschikt indien u normaliter het Topaz/8 lettertype als standaard lettertype gebruikt.")

    (set message-MMprefs "Ik ga nu MM_Prefs opstarten.\nVia het vragen van een paar simpele vragen zal MM_Prefs een standaard point configuratie opzetten.\nDit zal u in staat stellen om Mail Manager snel als pointsoftware te kunnen gebruiken.")

    (set yes-inst "Ja")

    (set no-inst "Nee")

    )
)


; ********************
; *** Main Program ***
; ********************

(set inst-dir (pathonly @icon))
(set main-dir (tackon inst-dir "///MM"))

(complete 0)

; *** ask the user for the MM: assign and create the directory
(set mmdir (askdir (prompt prompt-mmdir)
                   (help help-mmdir)
                   (disk)
                   (default "MAIL:")
           )
)

(set @default-dest (tackon mmdir "MM"))
(makedir @default-dest)

(set mm-info (tackon inst-dir "///MM.info"))
(copyfiles (source mm-info) (dest mmdir))

(if (not @pretend) (makeassign "MM" @default-dest))


; *** now we proceed with the real installation

; *** copy History and ReadMe files
(set history-files ("History#?"))
(copyfiles (source main-dir) (dest "MM:") (pattern history-files) (infos))

(set readme-files ("ReadMe#?"))
(copyfiles (source main-dir) (dest "MM:") (pattern readme-files) (infos))


; *** copy bin files
(makedir "MM:Bin")
(set mmbin-info (tackon inst-dir "//Bin.info"))
(copyfiles (source mmbin-info) (dest "MM:"))

(set bin-dir (tackon inst-dir "//bin"))
(copyfiles (source bin-dir)
           (dest "MM:Bin")
           (all)
           (infos)
)


(complete 10)


; *** copy docs files
(makedir "MM:Docs")
(set mmdocs-info (tackon inst-dir "//Docs.info"))
(copyfiles (source mmdocs-info) (dest "MM:"))

(set doc-dir (tackon inst-dir "//docs"))
(copyfiles (source doc-dir)
           (dest "MM:Docs")
           (all)
           (infos)
)


(complete 20)


; *** copy registration
(makedir "MM:Registration")
(set mmreg-info (tackon inst-dir "//Registration.info"))
(copyfiles (source mmreg-info) (dest "MM:"))

(set registration-dir (tackon inst-dir "//registration"))
(copyfiles (source registration-dir)
           (dest "MM:Registration")
           (all)
           (infos)
)


(complete 30)


; *** copy standard rexx files
(makedir "MM:Rexx")

(set stdrexx-dir (tackon inst-dir "//rexx"))
(copyfiles (source stdrexx-dir)
           (dest "MM:Rexx")
           (all)
           (optional nofail)
)


(complete 40)


; *** copy previews
(makedir "MM:Previews")
(set mmprev-info (tackon inst-dir "//Previews.info"))
(copyfiles (source mmprev-info) (dest "MM:"))

(set previews-dir (tackon inst-dir "//previews"))
(copyfiles (source previews-dir)
           (dest "MM:Previews")
           (all)
           (infos)
           (optional nofail)
)


(complete 50)


; *** copy contrib
(makedir "MM:Contrib")

(set contrib-dir (tackon inst-dir "//contrib"))
(copyfiles (source contrib-dir)
           (dest "MM:Contrib")
           (all)
           (optional nofail)
)


(complete 60)


; *** copy the default userlist
(set ex-userlist (tackon inst-dir "//other/MM.UserList"))
(copyfiles (source ex-userlist) (dest "MM:") )


(complete 65)


; *** copy example CFGs
(makedir "MM:Config")

(set config-dir (tackon inst-dir "//config"))
(copyfiles (source config-dir)
           (dest "MM:Config")
           (all)
           (optional nofail)
)


(complete 75)


; *** DELETE THIS IN 2.0 VERSION !!!
; *** THIS ONE ONLY FOR 2.1+ !!!
; *** copy the locale files in LOCALE:Catalogs
(set locale-dir (tackon inst-dir "//locale/catalogs"))
(if (askbool (prompt prompt-copy-locale)
             (help help-copy-locale)
             (default 1)
             (choices yes-inst no-inst))
        (copyfiles  (prompt prompt-copy-locale)
                    (help help-copy-locale)
                    (source locale-dir)
                    (dest "LOCALE:Catalogs")
                    (all)
                    (confirm)
                    (optional nofail)
        )
)

; *** make a backup of locale files in MM:Locale
(copyfiles (source locale-dir)
           (dest "MM:Locale")
           (all)
           (optional nofail)
)


(complete 85)


; *** copy font files
(set fonts-dir (tackon inst-dir "//fonts"))
(if (askbool (prompt prompt-copy-font)
             (help help-copy-font)
             (default 1)
             (choices yes-inst no-inst))
        (copyfiles  (prompt prompt-copy-font)
                    (help help-copy-font)
                    (source fonts-dir)
                    (dest "FONTS:")
                    (all)
                    (optional nofail)
        )
)


(complete 90)


; *** warn the user that we must write to the user-startup
(startup "Mail Manager" (prompt prompt-startup)
                        (help help-startup)
                        (command
                                "if exists \"" @default-dest "\"\n"
				"   assign MM: \"" @default-dest "\"\n"
				"endif\n"
                        )
)


(complete 95)

; *** Run MM_Prefs
( message message-MMprefs )

(run "MM:Bin/MM_Prefs")


(complete 100)

; **********************************************
; **** End Mail Manager Installation Script ****
; **********************************************