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

; **** English strings declaration part ****
; ******************************************

; *** 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 fidonet-questions-intro "Now let's proceed with some questions for\na basic configuration of Mail Manager")
    (set fidonet-questions-help "You must supply your name and other Fidonet parameters.")

    (set prompt-sysopname "Please insert your name...")
    (set help-sysopname "Here you must insert the name you want to use in the Message Areas.")

    (set prompt-sysopaddr "Please enter your address in 5D (complete with the domain) ...\nExample: 2:335/602.2@fidonet")
    (set help-sysopaddr "The Address must be in 5D format (<zone>:<net>/<node>.<point>@<domain> ). The domain string should not include the extension ( for example use 'fidonet' and not 'fidonet.org' ) and should not be longer than 8 chrs.")

    (set prompt-bossaddr "Please enter the address of your boss...\nExample: 2:335/602.0@fidonet")
    (set help-bossaddr "This is the address of the node which sends you the mail")

    (set prompt-archiver "Which archiver do you want to use ?")
    (set help-archiver "This is the archiver which will be used for crunching the Mail Packets")

    (set prompt-archiver-add "Please, insert the Arc command")
    (set help-archiver-add "This is the command to be executed to archive mail. Mail Manager will automatically append the name of the bundle and the name of the packet to compress, in this order.")

    (set prompt-archiver-extr "Please, insert the UnArc command")
    (set help-archiver-extr "This is the command to be executed to unarchive mail. Mail Manager will automatically append the name of the bundle to UnPack The bundle will be unarchived in the configured WorkDir.")

    (set prompt-inbound-dir "Please, insert the path of your Inbound dir")
    (set help-inbound-dir "This is the name of the directory where Mail Manager will look for incoming Bundles, Packets and Files. It should be the same directory as configured in your mailer as Inbound.")

    (set prompt-outbound-dir "Please, insert the path of your Outbound dir")
    (set help-outbound-dir "This is the name of the directory where Mail Manager will place outgoing Packets and Flow Files. It should be the same directory as configured in your mailer as Outbound.")

    (set prompt-maildev-dir "Select the path where Mail Manager will create the Message Base")
    (set help-maildev-dir "This is the directory or device where Mail Manager will create the Message Base. Mail Manager will also monitor it in order to show you the available diskspace.\nExample: Mail:")

    (set prompt-bad-dir "Please, insert the path of your Bad dir")
    (set help-bad-dir "This is the name of the directory where Mail Manager will move wrong or corrupted incoming Packets and Tick files.")

    (set prompt-nodelist-dir "Please, insert the path where I should look for the Nodelist")
    (set help-nodelist-dir "This is the name of the directory where Mail Manager will look for the compiled Nodelist.")

    (set prompt-userlist-dir "Please, insert the path where I should look for the UserList")
    (set help-userlist-dir "This is the name of the directory where Mail Manager will look for the Userlist.\nMail Manager uses the following userlist format:\n\"<Full Name>\"   <5D Address>  <nickname>")

    (set prompt-genmmcfg "Generating default configuration file....")

    (set prompt-copy-bin "Now copying binaries...")
    (set help-copy-bin "These are the Mail Manager executables")

    (set prompt-copy-doc "Now copying docs...")
    (set help-copy-doc "Mail Manager offers you an AmigaGuide documentation and a Plain Text Manual translated in different languages.\nYou MUST at least copy the AmigaGuide documentation in order to get the OnLine Help function of Mail Manager.")

    (set prompt-copy-stdrexx "Now copying the ARexx examples...")
    (set help-copy-stdrexx "These are some small examples showing the use of some of the Mail Manager ARexx commads.")

    (set prompt-askinst-contrib "Should I also copy the Contrib files ?")
    (set help-askinst-contrib "These are some ARexx scripts written by the Testers of Mail Manager. Copy them, you'll find many useful functions !")
    (set yes-inst-contrib "Yes")
    (set no-inst-contrib "No")

    (set prompt-copy-contrib "Now copying Contrib files...")
    (set help-copy-contrib "...")

    (set prompt-copy-locale "Copying the locale files ?")
    (set help-copy-locale "...")

    (set prompt-def-userlist "Now copying the Userlist")
    (set help-def-userlist "This is an example of the Mail Manager Userlist")

    (set prompt-copy-font "Shall I copy the MMBrowse Font ?")
    (set help-copy-font "This is a special font designed by me (Pino Aliberti) 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 prompt-editor "Which Text Editor would you like to use ?\nWARNING: The Editor should be runned in a synchronous way (it should not return until you close it).\nFor example with CEd you should use  'CEd %s -sticky'.")
    (set help-editor "This is the Editor command that will be executed by Mail Manager to edit a message.\nPut a `%s' in this command string to specify where Mail Manager should insert the name of the temporary file.")
    )
)


; *** 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 fidonet-questions-intro "Ora procediamo con qualche domanda per creare una configurazione base per l'uso immediato di Mail Manager...\nIn qualsiasi momento potrai avere un piccolo aiuto mediante il gadget \"Help\".")
    (set fidonet-questions-help "Dovrai rispondere alle domande seguenti con i parametri tipici di Fidonet. In futuro potrai usare il programma MM_Prefs per cambiarli agevolmente.")

    (set prompt-sysopname "Inserisci il tuo nome per favore...")
    (set help-sysopname "Devi inserire il nome che vuoi usare nelle aree messaggi.")

    (set prompt-sysopaddr "Inserisci il tuo indirizzo nel formato 5D\n(cioè con il domain)...\nEsempio: 2:335/602.2@fidonet")
    (set help-sysopaddr "L'indirizzo deve essere nel formato 5D (<zona>:<net>/<nodo>.<point>@<domain> ). La parte di domain non deve contenere l'estensione (per esempio usa 'fidonet' e non 'fidonet.org') e non deve essere più lunga di 8 caratteri.")

    (set prompt-bossaddr "Inserisci ora l'indirizzo del boss...\nEsempio: 2:335/602.0@fidonet")
    (set help-bossaddr "Questo è l'indirizzo del nodo da cui ricevi e a cui spedisci la posta.")

    (set prompt-archiver "Che archiviatore vuoi usare ?")
    (set help-archiver "Devi scegliere con quale archiviatore scomprimere/comprimere la posta da/verso il tuo boss.")

    (set prompt-archiver-add "Inserisci ora il comando per comprimere la posta...")
    (set help-archiver-add "Questo è il comando che deve essere eseguito per comprimere la posta. Mail Manager automaticamente aggiungerà il nome del bundle e il nome del pacchetto da comprimere, in questo ordine.")

    (set prompt-archiver-extr "Inserisci ora il comando per scomprimere la posta...")
    (set help-archiver-extr "Questo è il comando che deve essere eseguito per scomprimere la posta. Mail Manager automaticamente aggiungerà il nome del bundle da scomprimere. Il bundle sarà scompattato nella directory specificata come WorkDir.")

    (set prompt-inbound-dir "Dove si trova la tua directory di Inbound ?")
    (set help-inbound-dir "Questo è il nome della directory nella quale Mail Manager cercherà i bundles, i pacchetti e i files in arrivo. Deve essere la stessa directory configurata con Inbound nel tuo mailer.")

    (set prompt-outbound-dir "Dove si trova la tua directory di Outbound ?")
    (set help-outbound-dir "Questo è il nome della directory nella quale Mail Manager metterà i pacchetti e i files flow in partenza. Deve essere la stessa directory configurata con Outbound nel tuo mailer.")

    (set prompt-maildev-dir "Seleziona ora la directory nella quale Mail Manager creerà la base messaggi.")
    (set help-maildev-dir "Questa è la directory (o il dispositivo) dove Mail Manager metterà la base messaggi. Mail Manager inoltre la controllerà per visualizzare lo spazio libero.\nEsempio: Mail:")

    (set prompt-bad-dir "Seleziona la directory dove mettere eventali files errati.")
    (set help-bad-dir "Questo è il nome della directory dove Mail Manager muoverà i pacchetti o i tick errati.")

    (set prompt-nodelist-dir "Seleziona ora la directory che contiene la Nodelist.")
    (set help-nodelist-dir "E` il nome della directory nella quale Mail Manager cerchera` i files compilati della Nodelist.")

    (set prompt-userlist-dir "Dove vuoi mettere la lista utenti (userlist) ?")
    (set help-userlist-dir "Questo è il nome della directory nella quale Mail Manager cercherà ls Userlist.\nMail Manager usa i seguente formato per la lista utenti:\n\"<Nome e Cognome>\"   <indirizzo 5D>  <soprannome>")

    (set prompt-genmmcfg "Attendi per favore...\nSto generando il file di configurazione....")

    (set prompt-copy-bin "Sto copiando i programmi...")
    (set help-copy-bin "Questi sono gli eseguibili del Mail Manager")

    (set prompt-copy-doc "Sto copiando i manuali...")
    (set help-copy-doc "Mail Manager ti offre un manuale in formato AmigaGuide ed un un manuale in Plain Text tradotto in varie lingue.\nSe vuoi usare la funzione di Help OnLine del Mail Manager DEVI copiare almeno il manuale in formato AmigaGuide.")

    (set prompt-copy-stdrexx "Sto copiando gli esempi in ARexx...")
    (set help-copy-stdrexx "Questi sono alcuni piccoli esempi sull'utilizzo dell'interfaccia ARexx del Mail Manager")

    (set prompt-askinst-contrib "Vuoi copiare anche i Contributi esterni ?")
    (set help-askinst-contrib "Questi sono alcuni script ARexx scritti dai Testers del Mail Manager. Copiali, molti di loro potranno esserti utili !")
    (set yes-inst-contrib "Si")
    (set no-inst-contrib "No")
    (set prompt-copy-contrib "Sto copiando i Contributi esterni...")
    (set help-copy-contrib "...")

    (set prompt-copy-locale "Vuoi copiare i cataloghi della Locale ?")
    (set help-copy-locale "...")

    (set prompt-def-userlist "Sto copiando la Userlist")
    (set help-def-userlist "Questo è un esempio della Userlist del Mail Manager")

    (set prompt-copy-font "Vuoi copiare il font MMBrowse ?")
    (set help-copy-font "Questo e' un font speciale disegnato da me (Pino Aliberti) 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 prompt-editor "Quale Text Editor vuoi usare ?\nATTENZIONE: il Text Editor deve essere lanciato in modo sincrono (non deve ritornare il controllo al Mail Manager fino a quando tu non lo avrai chiuso).\nPer esempio con il CEd tu dovresti usare il seguente comando: 'CEd %s -sticky'.")
    (set help-editor "Questo e' il comando che verrà lanciato dal Mail Manager per permetterti di scrivere il testo di un messaggio.\nInserisci un '%s' nella stringa del comando per specificare il punto in cui Mail Manager dovrà inserire il nome del file temporaneo.")
    )
)

; *** Danish strings
(if (= @language "dansk") (
    (set prompt-mmdir "Hvor skal jeg installere Mail Manager (skuffen MM vil blive oprettet) ?")
    (set help-mmdir "Du skal angive hvor MM: skuffen skal placeres...")

    (set prompt-startup "Nogle instruktioner skal lægges til \"S:user-startup\" således at dit system vil være korrekt konfigureret til brug af Mail Manager")
    (set help-startup "Dette er nødvendige assigns for at Mail Manager skal fungere korrekt")

    (set fidonet-questions-intro "Lad os fortsætte med nogle spørgsmål til\nden grundlæggende konfiguration af Mail Manager") 
    (set fidonet-questions-help "Du skal angive dit navn og andre FidoNet parametre.")

    (set prompt-sysopname "Indtast dit navn...")
    (set help-sysopname "Her skal du angive hvilket navn du ønsker at benytte i Post områderne.")

    (set prompt-sysopaddr "Indtast din adresse i 5D...\nEksempel: 2:335/602.2@fidonet")
    (set help-sysopaddr "Adressen skal være i 5D format (<zone>:<net>/<node>.<point>@<domain> ). Domain strengen skal ikke inkludere efternavn (for eksempel brug 'fidonet' og ikke 'fidonet.org') og må ikke være længere end 8 karakterer.")

    (set prompt-bossaddr "Indtast din Boss nodes adresse...\nEksempel: 2:335/602.0@fidonet")
    (set help-bossaddr "Dette er adressen på noden der sender dig posten")

    (set prompt-archiver "Hvilket pakkeprogram ønsker du at benytte?")
    (set help-archiver "Dette er den pakker som vil blive anvendt til at pakke post pakkerne")

    (set prompt-archiver-add "Indtast kommanden for pakning")
    (set help-archiver-add "Dette er kommandoen der udføres til at pakke posten. Mail Manager vil automatisk tilføje navnet på pakken, og navnene på filerne der skal pakkes, i denne orden.")

    (set prompt-archiver-extr "Indtast kommandoen for ud-pakning")
    (set help-archiver-extr "Dette er kommandoen der udføres til at ud-pakke posten. Mail Manager vil automatisk tilføje navnet på pakken der skal ud-pakkes. Pakken vil blive udpakket til det konfigurerede WorkDir.")

    (set prompt-inbound-dir "Indtast stien til din Inbound skuffe")
    (set help-inbound-dir "Dette er navnet på skuffen hvor Mail Manager vil se efter indkommende arkiver, pakker og filer. Det skal være den samme skuffe som din mailer benytter til Inbound.")

    (set prompt-outbound-dir "Indtast stien til din Outbound skuffe")
    (set help-outbound-dir "Dette er navnet på skuffen hvor Mail Manager vil placere udgående pakker og flow-flier. Det skal være den samme skuffe som din mailer benytter som Outbound.")

    (set prompt-maildev-dir "Vælg stien hvor Mail Manager skal placere sine post områder")
    (set help-maildev-dir "Dette er skuffen eller drevet hvor Mail Manager vil oprette post områderne. Mail Manager vil også vise hvor meget disk-plads der er tilbage på dette drev.\nEksempel: Mail:")

    (set prompt-bad-dir "Indtast stien til din BAD skuffe")
    (set help-bad-dir "Dette er navnet på den skuffe hvor Mail Manager vil flytte forkerte eller dårlige indkommende pakker og Tick filer.")

    (set prompt-nodelist-dir "Indtast stien hvor du har placeret dine nodelister")
    (set help-nodelist-dir "Dette er navnet på den skuffe hvor Mail Manager vil se efter de kompilerede nodelister.")

    (set prompt-userlist-dir "Indtast stien hvor Mail Manager skal se efter UserList")
    (set help-userlist-dir "Dette er navnet på skuffen hvor Mail Manager vil se efter UserList.\nMail Manager bruger følgende UserList format:\n\"<fulde navn>\"   <5D Adresse>  <kaldenavn>")

    (set prompt-genmmcfg "Genererer standard konfigurations filen...")

    (set prompt-copy-bin "Kopierer nu binære filer...")
    (set help-copy-bin "Dette er Mail Managers eksekverbare filer")

    (set prompt-copy-doc "Kopierer nu dokument filerne...")
    (set help-copy-doc "Mail Manager tilbyder AmigaGuide dokumentation og manualen i alm. tekst format oversat til forskellige sprog.\nDu SKAL kopiere mindst AmigaGuide dokumantationen for at få OnLine Hjælp funktionen i Mail Manager.")

    (set prompt-copy-stdrexx "Kopierer nu ARexx eksemplerne...")
    (set help-copy-stdrexx "Dette er nogle små eksempler på brugen af Mail Mangers ARexx kommandoer.")

    (set prompt-askinst-contrib "Skal jeg også kopiere Contrib filerne?")
    (set help-askinst-contrib "Dette er nogle Arexx scripts skrevet af Mail Managers testere. Kopier dem og du vil finde mange brugbare funktioner!")
    (set yes-inst-contrib "Ja")
    (set no-inst-contrib "Nej")

    (set prompt-copy-contrib "Kopierer nu Contrib filerne...")
    (set help-copy-contrib "...")

    (set prompt-copy-locale "Kopier locale filerne?")
    (set help-copy-locale "...")

    (set prompt-def-userlist "Kopierer nu UserList")
    (set help-def-userlist "Dette er et eksempel på en UserList til Mail Manager")

    (set prompt-copy-font "Skal jeg kopiere MMBrowse fonten?")
    (set help-copy-font "Dette er en speciel font designet af mig (Pino Aliberti) for at tillade flere karakterer at blive vist på skærmen.\nMMBrowse/8 fonten er specielt brugbar hvis du normalt benytter topaz/8 som din standard font")

    (set prompt-editor "Hvilken tekst editor ønsker du at benytte?\nADVARSEL: Editoren skal kunne køres synkront (d.vs. den må ikke returnere før du afslutter).\nFor eksempel skal CEd benytte 'CEd %s -sticky'.")
    (set help-editor "Dette er Editor kommandoen som vil udføres af Mail Manager for at editere et brev.\nIndsæt `%s' i denne kommando streng for at specificere hvor Mail Manager skal indsætte navnet på den temporære fil.")
    )
)

; *** French strings
(if (= @language "français") (
    (set prompt-mmdir "Où puis je installer Mail Manager (un sous-répertoire nommé MM sera créé) ?")
    (set help-mmdir "Vous devez choisir où mettre votre répertoire MM: ...")

    (set prompt-startup "Certaines instructions doivent être ajoutées à votre \"S:user-startup\" pour que votre système soit correctement configuré pour utiliser Mail Manager")
    (set help-startup "Ce sont les assignations pour une utilisation correcte de Mail Manager")

    (set fidonet-questions-intro "Maintenant quelques questions pour\nune configuration de base pour Mail Manager")
    (set fidonet-questions-help "Vous devez indiquer votre nom et les autres paramètres Fidonet.")

    (set prompt-sysopname "Indiquez votre nom, s.v.p...")
    (set help-sysopname "Ici vous devez indiquer le nom que vous voulez utiliser dans les Aires de Messages.")

    (set prompt-sysopaddr "Entrez votre adresse 5D...\nExemple: 2:335/602.2@fidonet")
    (set help-sysopaddr "L'Adresse doit être au format 5D (<zone>:<net>/<node>.<point>@<domain> ). le paramètre domain ne doit pas inclure d'extention ( par exemple utilisez 'fidonet' et pas 'fidonet.org' ) et ne doit pas être plus long que 8 chrs.")

    (set prompt-bossaddr "Entrez l' adresse de votre boss...\nExemple: 2:335/602.0@fidonet")
    (set help-bossaddr "C'est l'adresse du Node qui vous envoie le Mail")

    (set prompt-archiver "Quel archiveur voulez vous utiliser ?")
    (set help-archiver "C'est l'archiveur qui sera utilisé pour compacter les Mail Packets")

    (set prompt-archiver-add "Indiquez la commande Arc")
    (set help-archiver-add "C'est la commande qui sera exécutée pour compresser le mail. Mail Manager joindra automatiquement le nom du bundle et le nom du packet à compresser, dans cet ordre.")

    (set prompt-archiver-extr "Indiquez la commande UnArc")
    (set help-archiver-extr "C'est la commande qui sera exécutée pour décompresser le mail. Mail Manager joindra automatiquement le nom du bundle à décompresser. Le bundle sera décompressé dans le Workdir configuré.")

    (set prompt-inbound-dir "Indiquez le chemin de votre répertoire Inbound")
    (set help-inbound-dir "C'est le nom du répertoire où Mail Manager ira chercher les Bundles, Packets et Fichiers arrivés. Ce doit être le même répertoire que celui configuré comme Inbound dans votre mailer.")

    (set prompt-outbound-dir "Indiquez le chemin de votre répertoire Outbound")
    (set help-outbound-dir "C'est le nom du répertoire où Mail Manager ira placer les Packets partant et Fichiers Flow. Ce doit être le même répertoire que celui configuré comme Outbound dans votre mailer.")

    (set prompt-maildev-dir "Sélectionnez le chemin où Mail Manager créera sa Base de Messages")
    (set help-maildev-dir "C'est le répertoire ou device où Mail Manager créera sa Base de Message. Mail Manager le gérera aussi de façon à vous indiquer l'espace disque disponible.\nExemple: Mail:")

    (set prompt-bad-dir "Indiquez le chemin de votre répertoire Bad")
    (set help-bad-dir "C'est le nom du répertoire où Mail Manager mettra les mauvais ou corrompus Packets et Tick files.")

    (set prompt-nodelist-dir "Indiquez le chemin où je dois trouver la Nodelist")
    (set help-nodelist-dir "C'est le nom du répertoire où Mail Manager ira trouver la Nodelist compilée.")

    (set prompt-userlist-dir "Indiquez le chemin où je dois trouver la UserList")
    (set help-userlist-dir "C'est le nom du répertoire où Mail Manager ira trouver la Userlist.\nMail Manager utilise le format de userlist suivant:\n\"<Full Name>\"   <5D Address>  <nickname>")

    (set prompt-genmmcfg "Génération du fichier de configuration par défaut....")

    (set prompt-copy-bin "Maintenant copie des exécutables...")
    (set help-copy-bin "Ce sont les exécutables de  Mail Manager")

    (set prompt-copy-doc "Maintenant copie des docs...")
    (set help-copy-doc "Mail Manager vous porpose une documentation AmigaGuide et une documention en texte plein en différentes languess.\nVous DEVEZ copier au moins la documentation AmigaGuide pour utiliser la fonction d'Aide en Ligne de Mail Manager.")

    (set prompt-copy-stdrexx "Maintenant copie des exemples ARexx ...")
    (set help-copy-stdrexx "Ce sont quelques petits exemples sur la façon d'utiliser les commandes Arexx de Mail Manager.")

    (set prompt-askinst-contrib "Puis je copier aussi les fichiers de contributions ?")
    (set help-askinst-contrib "Ce sont quelques scripts ARexx écris par les Testeurs de Mail Manager. Copiez les, vous y trouverez de nombreuses fonctions utiles !")
    (set yes-inst-contrib "Oui")
    (set no-inst-contrib "Non")

    (set prompt-copy-contrib "Maintenant copie des fichiers de contributions...")
    (set help-copy-contrib "...")

    (set prompt-copy-locale "Copier les fichiers locales ?")
    (set help-copy-locale "...")

    (set prompt-def-userlist "Maintenant copie de la Userlist")
    (set help-def-userlist "C'est un exemple de Mail Manager Userlist")

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

    (set prompt-editor "Quel Editeur voulez vous utiliser ?\nATTENTION: L'Editeur doit être utilisé de façon synchrone (il ne doit pas rendre la main au programme avant que vous l'ayez fermé).\npar exemple avec CEd vous devez utiliser  'CEd %s -sticky'.")
    (set help-editor "C'est la commande de l'Editeur qui sera exécutée par Mail Manager pour éditer message.\nMettre un `%s' dans cette commande pour préciser où Mail Manager doit insérer le nom du fichier temporaire.")
    )
)

; *** Deutsch strings
(if (= @language "deutsch") (
    (set prompt-mmdir "Auf welchem Laufwerk soll Mail Manager installiert werden (ein Verzeichnis mit dem Namen MM wird dort angelegt) ?")
    (set help-mmdir "Waehle aus, wo das MM: Verzeichnis erstellt werden soll!")

    (set prompt-startup "Einige Anweisungen muessen in \"S:user-startup\" eingefuegt werden, damit Dein System fuer den Gebrauch von Mail Manager vorbereitet wird.")
    (set help-startup "Dies sind die Assigns, die fuer den korrekten Gebrauch von Mail Manager benoetigt werden.")

    (set fidonet-questions-intro "Es folgen einige wichtige Angaben fuer die Grundeinstellung des Mail Managers")
    (set fidonet-questions-help "Du musst Deinen Namen und weitere Fidonet-Parameter angeben.")

    (set prompt-sysopname "Gib bitte Deinen Namen ein...")
    (set help-sysopname "Hier musst Du den Namen eingeben, den Du in den Message-Areas verwenden moechtest.")

    (set prompt-sysopaddr "Gib bitte Deine Adresse im 5D-Format ein...\nBeispiel:  2:335/602.2@fidonet")
    (set help-sysopaddr "Die Adresse muss im 5D-Format eingegeben werden (<zone>:<net>/<node>.<point>@<domain> ). Die Domain-Angabe darf keine Erweiterungen enthalten (z.B. benutze ' fidonet' anstelle von 'fidonet.org') und darf nicht laenger als 8 Zeichen sein.")

    (set prompt-bossaddr "Gib bitte die Adresse Deines Bosses ein...\nBeispiel: 2:335/602.0@fidonet")
    (set help-bossaddr "Dies ist die Adresse des Nodes, der Dir Deine Mail zusendet.")

    (set prompt-archiver "Welches Packprogramm willst Du benutzen?")
    (set help-archiver "Dies ist der Packer, der fuer das komprimieren der Mail Packets verwendet wird.")

    (set prompt-archiver-add "Gib bitte die Befehlsfolge zum Packen ein")
    (set help-archiver-add "Dies ist der Befehl zum Packen der Mail. Mail Manager haengt automatisch den Namen des Bundles und den Namen des zu komprimierenden Packets an.")

    (set prompt-archiver-extr "Gib bitte die Befehlsfolge zum Entpacken ein")
    (set help-archiver-extr "Dies ist die Befehlsfolge zum Entpacken von Mails. Mail Manager haengt automatisch den Namen des zu entpackenden Bundles an. Das Bundle wird in das konfigurierte Arbeitsverzeichnis entpackt.")

    (set prompt-inbound-dir "Gib bitte den Pfad fuer Dein INBOUND-Verzeichnis an")
    (set help-inbound-dir "Dies ist der Name des Verzeichnisses, in dem Mail Manager nach eingehenden Bundles, Packets und Files sucht. Es sollte das gleiche Verzeichnis sein, das auch Dein Mailer als Inbound benutzt.")

    (set prompt-outbound-dir "Gib bitte den Pfad fuer Dein OUTBOUND-Verzeichnis an")
    (set help-outbound-dir "Dies ist der Name des Verzeichnisses, in dem Mail Manager abgehende Packets und Flow-Files ablegt. Es sollte das gleiche Verzeichnis sein, welches Dein Mailer als Outbound verwendet.")

    (set prompt-maildev-dir "Waehle den Pfad, unter dem Mail Manager seine Message Base anlegen wird")
    (set help-maildev-dir "Dies ist das Verzeichnis oder Device, in dem Mail Manager seine Message Base anlegt. Dieses Verzeichnis wird auch von Mail Manager angezeigt, wenn Du nach freiem Diskspeicher fragst.\nBeispiel: Mail:")

    (set prompt-bad-dir "Gib bitte den Pfad des BAD-Verzeichnisses an")
    (set help-bad-dir "Dies ist der Name des Verzeichnisses, in dem Mail Manager falsche oder fehlerhafte eingehende Packets und Tick Files ablegt.")

    (set prompt-nodelist-dir "Gib bitte den Pfad an, in dem sich die Nodeliste befindet")
    (set help-nodelist-dir "Dies ist der Name des Verzeichnisses, in dem Mail Manager nach der compilierten Nodeliste sucht.")

    (set prompt-userlist-dir "Gib bitte den Pfad an, in dem die Userliste abgelegt werden soll")
    (set help-userlist-dir "Dies ist der name des Verzeichnisses, in dem Mail Manager nach der Userliste sucht.\nMail Manager benutzt folgendes Userlisten-Format:\n\"<Vorname Nachname>\"   <5D Address>  <Namenskuerzel>")

    (set prompt-genmmcfg "Erstelle das File mit der Grundkonfiguration....")

    (set prompt-copy-bin "Kopiere jetzt die Programmdateien...")
    (set help-copy-bin "Dies sind die Programmdateien des Mail Managers")

    (set prompt-copy-doc "Kopiere die Anleitung...")
    (set help-copy-doc "Mail Manager bietet eine AmigaGuide Dokumentation und ein in verschiedene Sprachen uebersetztes Textmanual.\nDu musst zumindestens die AmigaGuide Dokumentation kopieren, um die Online Hilfe nutzen zu koennen.")

    (set prompt-copy-stdrexx "Kopiere jetzt die ARexx-Beispiele...")
    (set help-copy-stdrexx "Einige kleine Beispiele ueber die Verwendung von ARexx-Befehlen des Mail Managers.")

    (set prompt-askinst-contrib "Sollen die Hilfsprogramme kopiert werden?")
    (set help-askinst-contrib "Dies sind einige ARexx Scripte, die die Tester des Mail Managers geschrieben haben. Kopiere sie, Du wirst viele nuetzliche Funktionen finden!")
    (set yes-inst-contrib "Ja")
    (set no-inst-contrib "Nein")

    (set prompt-copy-contrib "Kopiere jetzt die Hilfsprogramme...")
    (set help-copy-contrib "...")

    (set prompt-copy-locale "Kopiere jetzt die Locale-Files...")
    (set help-copy-locale "...")

    (set prompt-def-userlist "Kopiere die Userliste...")
    (set help-def-userlist "Eine Beispiels-Userliste des Mail Managers")

    (set prompt-copy-font "Soll der MMBrowse Font kopiert werden?")
    (set help-copy-font "Dies ist ein spezieller Font, den ich (Pino Aliberti) entworfen habe, um mehr Zeichen auf dem Bildschirm darstellen zu  koennen.\nDer MMBrowse/8 font ist teilweise nuetzlich, wennDu normalerweise topaz 8 benutzt")

    (set prompt-editor "Welchen Texteditor moechtest Du benutzen?\nACHTUNG: Der Texteditor muss synchron laufen.\nZum Beispiel musst Du fuer CED den Aufruf 'CED %s -sticky' benutzen.")
    (set help-editor "Dies ist die Befehlsfolge zum Aufruf Deines Texteditors, mit dem Mail Manager Messages editiert.\nFuege `%s' in die Befehlsfolge ein. Mail Manager uebernimmt an dieser Stelle den Namen des temporaeren Files.")
    )
)

; *** Nederlands strings
(if (= @language "nederlands") (
    (set prompt-mmdir "Waar zal ik Mail Manager installeren (er zal een lade (directory) MM worden aangemaakt) ?")
    (set help-mmdir "Kies een plaats voor de MM: lade...")

    (set prompt-startup "Er zijn enkele instructies nodig welke aan \"S:User-Startup\" toegevoegd dienen te worden, zodat uw system juist is geconfigureerd om met Mail Manager te kunnen werken.")
    (set help-startup "Dit zijn de benodigde toewijzigingen (assigns) voor een goed gebruik van Mail Manager.")

    (set fidonet-questions-intro "Nu volgen enkele vragen voor\neen standaard configuratie voor Mail Manager")
    (set fidonet-questions-help "Hier wordt u om uw naam en andere Fidonet gegevens gevraagd.")

    (set prompt-sysopname "Geef hier uw naam a.u.b. ...")
    (set help-sysopname "Hier dient u uw naam te kiezen, welke u wilt gebruiken in de berichten-gebieden.")

    (set prompt-sysopaddr "Geeft u nu a.u.b. uw adres in 5D...\nVoorbeeld: 2:335/602.2@fidonet")
    (set help-sysopaddr "Het adres moet in een 5D (5 Dimensionaal) formaat zijn (<zone>:<net>/<node>.<point>@<domein> ). Het domein mag geen extensie bevatten (bijvoorbeeld gebruik 'fidonet' en niet 'fidonet.org'), en welke ook niet langer dan 8 karakers mag zijn.")

    (set prompt-bossaddr "Geeft u a.u.b. het adres van uw boss...\nVoorbeeld: 2:335/602.0@fidonet")
    (set help-bossaddr "Dit is het adres van de node (bbs) waar de berichten van afkomstig zijn")

    (set prompt-archiver "Welke archiver wilt u gebruiken ?")
    (set help-archiver "Dit is het archiveerprogramma dat gebruikt zal worden voor het inpakken (crunched) van de post-pakketen.")

    (set prompt-archiver-add "Geeft u a.u.b. het Arc commando")
    (set help-archiver-add "Dit is het commando welke zal worden uitgevoerd voor het archiveren/inpakken (arcing) van de mail. Mail Manager zal automatisch de naam van de bundel toevoegen en ook de naam van het in te pakken pakket (in deze volgorde).")

    (set prompt-archiver-extr "Geeft u a.u.b. het UnArc commando")
    (set help-archiver-extr "Dit is het commando welke zal worden uitgevoerd voor het uitpakken (unarcing) van de mail. Mail Manager zal automatisch de naam van de uit te pakken bundel toevoegen. Dit uitpakken zal geschieden in de te configureren WorkDir.")

    (set prompt-inbound-dir "Geeft u a.u.b. het the pad (path) van uw Inbound directory")
    (set help-inbound-dir "Dit is de naam van de lade (directory) waar Mail Manager zal kijken voor inkomende bundels, pakketen en files. Dit moet dezelfde Inbound lade zijn, welke ook geconfigureerd is bij uw mailer.")

    (set prompt-outbound-dir "Geeft u a.u.b. het the pad (path) van u Outbound directory")
    (set help-outbound-dir "Dit is de naam van de lade (directory) waar Mail Manager zijn uitgaande pakketen en Flow files zal plaatsen. Dit moet dezelfde Outbound lade zijn, welke ook geconfigureerd is bij uw mailer.")

    (set prompt-maildev-dir "Selecteer het pad (path) waar Mail Manager zijn messagebase zal kreëeren.")
    (set help-maildev-dir "Dit is de naam van de lade, disk eenheid of toewijzing, waar Mail Manager zijn messagebase zal kreëren. Mail Manager zal daar ook bepalen wat daar de beschikbare diskruimte is.\nVoorbeeld: Mail:")

    (set prompt-bad-dir "Geeft u a.u.b. het pad (path) van uw Bad dir.")
    (set help-bad-dir "Dit is de naam van de lade waar Mail Manager de inkomende, maar foutieve of corrupte pakketen en Tick bestanden, naartoe zal verplaatsen.")

    (set prompt-nodelist-dir "Geeft u a.u.b. het pad (path) waar ik moet zoeken voor de Nodelist.")
    (set help-nodelist-dir "Dit is de naam van de lade (directory) waar Mail Manager zal kijken naar een gecompileerde Nodelist.")

    (set prompt-userlist-dir "Geeft u a.u.b. het pad (path) waar ik moet zoeken voor de gebruikerslijst (UserList).")
    (set help-userlist-dir "Dit is de naam van de lade (directory) waar Mail Manager zal kijken naar een gebruikerslijst (Userlist).\nMail Manager gebruikt het volgende formaat voor de gebruikerslijst:\n\"<Volledige naam>\"   <5D Adres>  <bijnaam>")

    (set prompt-genmmcfg "Genereren van een standard configuratie file....")

    (set prompt-copy-bin "Nu bezig met kopiëren van de binaries...")
    (set help-copy-bin "Dit zijn de Mail Manager executables")

    (set prompt-copy-doc "Nu bezig met kopiëren van de docs...")
    (set help-copy-doc "Mail Manager geeft u de mogelijkheid een handleiding in de vorm van een AmigaGuide document en in een standaard tekstbestand vertaalt in verschillende talen.\nU MOET in ieder geval het AmigaGuide document kopiëren, om de OnLine Hulp funktie van Mail Manager mogelijk te maken.")

    (set prompt-copy-stdrexx "Nu bezig met kopiëren van de ARexx voorbeelden...")
    (set help-copy-stdrexx "Dit zijn enkele kleine voorbeelden over het gebruik maken van de Mail Manager ARexx commando's.")

    (set prompt-askinst-contrib "Zal ik ook de contributie bestanden kopiëren?")
    (set help-askinst-contrib "Dit zijn enkele ARexx scriptbestanden, geschreven door de Testers van Mail Manager. Kopieër ze, en u zult veel behulpzame/handige functies tegenkomen!")
    (set yes-inst-contrib "Ja")
    (set no-inst-contrib "Nee")

    (set prompt-copy-contrib "Nu bezig met kopiëren van de Contrib bestanden...")
    (set help-copy-contrib "...")

    (set prompt-copy-locale "Zal ik ook de taal (locale) bestanden kopiëren?")
    (set help-copy-locale "...")

    (set prompt-def-userlist "Nu bezig met kopiëren van de gebruikerslijst (Userlist)")
    (set help-def-userlist "Dit is een voorbeeld van de Mail Manager gebruikerslijst (Userlist)")

    (set prompt-copy-font "Zal ik het MMBrowse Font installeren?")
    (set help-copy-font "Dit is een speciaal Font, ontworpen door mij (Pino Aliberti) om meer karakters op het scherm weer te kunnen geven.\nHet MMBrowse/8 font is speciaal bruikbaar wanneer u normaal gebruikt maakt van het topaz 8 als uw standaard font.")

    (set prompt-editor "Welke Tekst Editor wilt u gebruiken?\nWAARSCHUWING: Deze Editor moet op een synchrone manier gestart worden (het mag niet direkt terugkeren totdat de Editor daadwerkelijk gesloten en verlaten wordt).\nAls voorbeeld, met CEd (Cygnus Editor) dient u het volgende in te voeren: 'CEd %s -sticky'.")
    (set help-editor "Dit is het Editor commando, welke zal worden aangeroepen door Mail Manager om een bericht te bewerken.\nPlaats een `%s' in dit commando om aan te geven waar Mail Manager de naam van de tijdelijke file moet opgeven.")
    )
)


; **** PROCEDURE declaration part ****
; ************************************

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

; *** ask the user to write on user-startup
(procedure add-user-startup
    (startup "Mail Manager" (prompt prompt-startup)
                            (help help-startup)
                            (command
                                    "if exists \"" @default-dest "\"\n"
				    "   assign MM: \"" @default-dest "\"\n"
				    "endif\n"
                            )
    )
)

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

(set inst-dir (pathonly @icon))

(complete 0)

; *** ask to the user and create the directory
(set mmdir (choose-mmdir))
(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))

; *** Tell the user that we proceed with some question...
(message fidonet-questions-intro
    (help fidonet-questions-help)
)

; *** ask for the sysop's name
(set sysopname (askstring (prompt prompt-sysopname)
                          (help help-sysopname)
                          (default "your name")
               )
)

(complete 5)

; *** ask the user for his address
(set sysopaddr  (askstring (prompt prompt-sysopaddr)
                           (help help-sysopaddr)
                )
)

(complete 10)

; *** ask the user for the boss's address
(set bossaddr  (askstring (prompt prompt-bossaddr)
                          (help help-bossaddr)
               )
)

(complete 15)

; *** ask the user for the archiver
(set archiver (askchoice (prompt prompt-archiver)
                         (help help-archiver)
                         (choices "LhA" "Zip" "Zoo" "Arc" "Lzx")
                         (default 0)
              )
)

(complete 20)

; *** set the arc-id var
(select archiver
    (set arc-id "LHA     2       \"-lh\"")
    (set arc-id "ZIP     0       \"PK\"")
    (set arc-id "ZOO     0       \"ZOO\"")
    (set arc-id "ARC     0       \"\"")
    (set arc-id "LZX     0       \"LZX\"")
)

; *** ask the user for the command for packing files
(select archiver
    (set temp "C:LhA a")
    (set temp "C:Zip a")
    (set temp "C:Zoo a")
    (set temp "C:Arc a")
    (set temp "C:Lzx -x0 a")
)
(set archiver-add (askstring (prompt prompt-archiver-add)
                    (help help-archiver-add)
                    (default temp)
                  )
)

; *** ask the user for the command for unpacking files
(select archiver
    (set temp "C:LhA x")
    (set temp "C:Zip x")
    (set temp "C:Zoo x")
    (set temp "C:Arc x")
    (set temp "C:Lzx -x0 x")
)
(set archiver-extr (askstring (prompt prompt-archiver-extr)
                    (help help-archiver-extr)
                    (default temp)
                   )
)

(complete 30)

(set editor (askstring (prompt prompt-editor)
                (help help-editor)
                (default "C:Ed %s")
            )
)

(complete 32)

; *** ask the user for various directories
(set maildev-dir (askdir (prompt prompt-maildev-dir)
                         (help help-maildev-dir )
                         (disk)
                         (default "MAIL:")
                 )
)

(complete 35)

(set inbound-dir (askdir (prompt prompt-inbound-dir)
                         (help help-inbound-dir )
                         (disk)
                         (default "IN:")
                 )
)

(complete 40)

(set outbound-dir (askdir (prompt prompt-outbound-dir)
                          (help help-outbound-dir)
                          (disk)
                          (default "OUT:")
                  )
)

(complete 45)

(set bad-dir (askdir (prompt prompt-bad-dir)
                     (help help-bad-dir)
                     (disk)
                     (default "BAD:")
             )
)

(complete 50)

(set nodelist-dir (askdir (prompt prompt-nodelist-dir)
                          (help help-nodelist-dir)
                          (disk)
                          (default "NODELIST:")
                  )
)

(complete 55)

(set userlist-dir (askdir (prompt prompt-userlist-dir)
                      (help help-userlist-dir)
                      (disk)
                      (default "NODELIST:")
                  )
)

(complete 60)

; *** now we proceed with the real installation
(makedir "MM:Config")


; *** 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 (prompt prompt-copy-bin)
           (help help-copy-bin)
           (source bin-dir)
           (dest "MM:Bin")
           (all)
           (infos)
)


(complete 62)


; *** copy guide file (no interaction with user)
(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 (tackon doc-dir "MailManager.guide"))
           (dest "MM:Docs")
           (infos)
           (nogauge)
           (optional nofail)
)

(complete 65)

; *** copy doc files
(set doc-dir (tackon inst-dir "//docs"))
(copyfiles (prompt prompt-copy-doc)
           (help help-copy-doc)
           (source doc-dir)
           (pattern "~(MailManager.guide#?)")
           (dest "MM:Docs")
           (infos)
           (if (= @user-level 2) (confirm))
           (optional nofail)
)

(complete 70)

; *** 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 72)

; *** copy standard rexx files
(set stdrexx-dir (tackon inst-dir "//rexx"))
(copyfiles (prompt prompt-copy-stdrexx)
           (help help-copy-stdrexx)
           (source stdrexx-dir)
           (dest "MM:Rexx")
           (all)
           (optional nofail)
)

(complete 75)

; *** 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)
)

(complete 77)

; *** ask the user if he wants the contrib rexx files
(set contrib-dir (tackon inst-dir "//contrib"))
(if (askbool (prompt prompt-askinst-contrib)
             (help help-askinst-contrib)
             (default 1)
             (choices yes-inst-contrib no-inst-contrib))
        ; *** if yes, copy contrib rexx files
        (copyfiles (prompt prompt-copy-contrib)
                   (help help-copy-contrib)
                   (source contrib-dir)
                   (dest "MM:Contrib")
                   (all)
                   (optional nofail)
        )
)

(complete 80)

; *** 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-contrib no-inst-contrib))
        (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 the default userlist
(set other-dir (tackon inst-dir "//other"))
(copyfiles (prompt prompt-def-userlist)
           (help help-def-userlist)
           ; *** only one / needed !!!
           (source other-dir)
           (dest userlist-dir)
           (all)
           (if (= @user-level 2) (confirm))
           (optional nofail)
)

(complete 87)

; *** 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-contrib no-inst-contrib))
        (copyfiles  (prompt prompt-copy-font)
                    (help help-copy-font)
                    (source fonts-dir)
                    (dest "FONTS:")
                    (all)
                    (optional nofail)
        )
)

(complete 90)

; *** copy Example.CFG
(set example-cfg (tackon inst-dir "//Config/Example.CFG"))
(copyfiles (source example-cfg) (dest "MM:Config"))

; *** generating MailManager.cfg
(textfile (prompt prompt-genmmcfg)
          (dest "MM:Config/MailManager.cfg")
          (append "#DEFSYSOPNAME \"" sysopname "\"\n"
                  "#ADDRESS " sysopaddr " 0\n"
                  "#GROUP default" "\n"
                  "#ARCHIVER " arc-id " \"" archiver-add "\" " "\"" archiver-extr "\"" "\n"
                  "#NODE " bossaddr " ADDR2D PACK4D NORMAL NORMAL " (substr arc-id 0 3) "\n"
                  "Group default 10\n"
                  "CanCreateAreas " maildev-dir " " sysopaddr " Compressed default 10\n"
                  "#ROUTING *:*/*.*@* ALL SEND " bossaddr " NORMAL" "\n"
                  "#INBOUND " inbound-dir "\n"
                  "#OUTBOUND " outbound-dir "\n"
                  "#BADDIR " bad-dir "\n"
                  "#MAILDEV " maildev-dir "\n"
                  "#USERLIST \"" (tackon userlist-dir "MM.userlist") "\"\n"
                  "#NODELISTDIR " nodelist-dir "\n"
                  "#EDITOR \"" editor "\"\n"
                  "#PREPARSEKLUDGE \"\\8\"\n"
                  "#PREPARSEQUOTED \"\\3\"\n"
                  "#CHECKDOMAIN\n"
                  "#ORIGIN5D\n"
                  "#TEXTSTYLES\n"
                  "#SHOWKLUDGES\n"
                  "#QUOTEKUDGES\n"
                  "#REFLOW\n"
                  "#MAILAREA \"\\bMatrix\" MATRIX " (tackon maildev-dir "MATRIX/ ") sysopaddr " default 10\n"
                  "#BADAREA  \"\\bBAD\" BAD_MSGS " (tackon maildev-dir "BAD/ ") sysopaddr " default 10\nReadOnly\n"
          )
)

(complete 95)

; *** warn the user that we must write to the user-startup
(add-user-startup)

(complete 100)

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

