home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / varie / fwcalendar / install < prev    next >
Text File  |  2000-06-26  |  12KB  |  288 lines
  1. (if (= 2 (exists "REXX:" (noreq)))
  2.   (set #defdir "REXX:")
  3.   (set #defdir "S:")
  4. )
  5. ;(message "Your language is "@language)
  6. (set #destmsg$ "")
  7. ;=============================================================================
  8. ; English (default) strings
  9. (set #languagechoice 0)
  10. (set #welcome$ (cat "Welcome to the FWCalendar installation program.\n"
  11.                     "Select the application(s) you will be using with FWCalendar."))
  12. (set #doabort$ "You did not select an application. Would you like to abort the installation?")
  13. (set #doaborthelp$ "You must select an application to continue.")
  14. (set #seldir$ "Select the destination drawer for the ARexx scripts. A new directory will NOT be created.")
  15. (set #FWdestmsg$ " (The recommended location is the FinalWriter/Macros directory)")
  16. (set #bothdestmsg$ " (The recommended location is a common directory of ARexx scripts)")
  17. (set #selLanguage$ (cat "Select which country's preference file should be used. "
  18.                         "Existing preference files will NOT be overwritten."))
  19. (set #docDestMsg$ (cat "The documentation is in HTML format. Where should they be installed? "
  20.                        "An \"FWCDocs\" directory WILL BE created if it doesn't already exist."))
  21. (set #CopyMacrosMsg$ "The following macros will be copied to ")
  22. (set #CopyPrefsMsg$ "The following files will be copied to ")
  23. (set #copyDocsMsg$ "The document directory will be copied to ")
  24. (set #ViewDocsMsg$ "Would you like to view the documents?")
  25. (set #Yes$ "Yes")
  26. (set #Skip$ "Skip this part")
  27. (set #Proceed$ "Proceed")
  28. (set #ViewDocsHelp$ (cat "If you would like to view the docs, press \"" #Yes$ "\", otherwise press \"" #Skip$ "\"."))
  29. ;=============================================================================
  30. ; German strings (24.06.00) by OliverMolz <OliverMolz@t-online.de>
  31. (if (= @language "deutsch")
  32.   (
  33.     (set #languagechoice 1)
  34.     (set #welcome$ (cat "Willkommen zum FWCalendar Installations-Programm.\n"
  35.                         "Wähle die Applikation(en) mit denen Du FWCalendar benutzen möchtest."))
  36.     (set #doabort$ "Du hast keine Applikation gewählt. Möchtest Du die Installation abbrechen?")
  37.     (set #doaborthelp$ "Du mußt eine eine Applikation wählen um fortzufahren.")
  38.     (set #seldir$ "Wähle den Ziel-Pfad für die ARexx-Scripte. Es wird KEIN neues Verzeichnis angelegt.")
  39.     (set #FWdestmsg$ " (Der empfohlene Pfad ist das FinalWriter Macros Verzeichnis)")
  40.     (set #bothdestmsg$ " (Der empfohlene Pfad ist der gewöhnliche Pfad für die ARexx Scripte)")
  41.     (set #selLanguage$ (cat "Wähle welche Sprache und welche Preference-Datei benutzt werden soll. "
  42.                             "Bestehende Preference-Dateien werden NICHT überschrieben."))
  43.     (set #docDestMsg$ (cat "Die Dokumentation ist im HTML-Format. Soll diese installiert werden? "
  44.                            "Ein \"FWCDocs\" Verzeichnis WIRD erstellt, falls dieses nicht existiert."))
  45.     (set #CopyMacrosMsg$ "Die folgenden Makros werden kopiert ")
  46.     (set #CopyPrefsMsg$ "Das folgende Preference-File wird kopiert ")
  47.     (set #copyDocsMsg$ "Das Dokument-.Verzeichnis wird kopiert ")
  48.     (set #ViewDocsMsg$ "Möchtest Du das Dok-File lesen?")
  49.     (set #Yes$ "Ja")
  50.     (set #Skip$ "Überspringe diesen Teil")
  51.     (set #Proceed$ "Weiter")
  52.     (set #ViewDocsHelp$ (cat "Wenn Du das Dok-File lesen möchtest, drücke \"" #Yes$ "\", andererseits, drucke \"" #Skip$ "\"."))
  53.   )
  54. )
  55. ;=============================================================================
  56. ; Spanish strings (29.11.99) by Dámaso D. Estévez <amidde@arrakis.es>
  57. (if (= @language "español")
  58.   (
  59.     (set #languagechoice 3)
  60.     (set #welcome$ (cat "Bienvenido al programa de instalación de `FWCalendar':\n"
  61.                         "elija la(s) aplicación(es) que usarán dicho guión ARexx."))
  62.     (set #doabort$ "No ha seleccionado ninguna aplicación.  ¿Desea abortar la instalación?")
  63.     (set #doaborthelp$ "Ha de seleccionar obligatoriamente una aplicación para continuar.")
  64.     (set #seldir$ "Elija el cajón de destino para los guiones ARexx (NO se creará ningún nuevo directorio).")
  65.     (set #FWdestmsg$ " (Se recomienda el directorio FinalWriter/Macros)")
  66.     (set #bothdestmsg$ " (Se recomienda un directorio común para los guiones ARexx)")
  67.     (set #selLanguage$ (cat "Elija el fichero de preferencias a utilizar según su país "
  68.                             "Los ficheros de preferencias preexistentes NO serán sobreescritos."))
  69.     (set #docDestMsg$ (cat "La documentación se encuentra en formato HTML. ¿Dónde desea instalarla? "
  70.                            "Un directorio \"FWCDocs\" SE CREARÁ si aún no existe."))
  71.     (set #CopyMacrosMsg$ "Las siguientes macros se copiarán en ")
  72.     (set #CopyPrefsMsg$ "El siguiente fichero se copiará en ")
  73.     (set #copyDocsMsg$ "El directorio de documentación se copiará en ")
  74.     (set #ViewDocsMsg$ "¿Le gustaría ver la documentación?")
  75.     (set #Yes$ "Sí")
  76.     (set #Skip$ "Saltar esta parte")
  77.     (set #Proceed$ "Proceder")
  78.     (set #ViewDocsHelp$ (cat "Si desea ver la documentación, presione \"" #Yes$ "\".  En caso contrario presione \"" #Skip$ "\"."))
  79.   )
  80. )
  81. ;=============================================================================
  82. ; Norwegian strings (22.06.00) by Truls Osmundsen (ozzy1@online.no)
  83. (if (= @language "norsk")
  84.   (
  85.     (set #languagechoice 7)
  86.     (set #welcome$ (cat "Velkommen til FWCalendar installasjonsprogram.\n"
  87.                         "Velg de programmene du kommer til å bruke sammen med FWCalendar."))
  88.     (set #doabort$ "Du valgte ikke noe program. Vil du stanse installasjonen?")
  89.     (set #doaborthelp$ "Du må velge et program for å fortsette.")
  90.     (set #seldir$ "Velg en mappe for Arexx-skriptene. En ny mappe vil IKKE bli laget.")
  91.     (set #FWdestmsg$ " (Den vanligste plassen er FinalWriter/Macros mappen)")
  92.     (set #bothdestmsg$ " (Den vanligste plassen er en vanlig ARexx plassering)")
  93.     (set #selLanguage$ (cat "Velg landsutgangspunkt-fil "
  94.                             "(som inneholder språk og fridager) som vil bli brukt. "
  95.                             "Eksisterende filer vil IKKE bli overskrevet."))
  96.     (set #docDestMsg$ (cat "Dokumentasjonen er i HTML format. Hvor skal de installeres? "
  97.                            "En \"FWCDocs\" mappe VIL BLI laget om ingen allerede eksisterer."))
  98.     (set #CopyMacrosMsg$ "Følgende Macroer vil bli kopiert til ")
  99.     (set #CopyPrefsMsg$ "Følgende utgangspunkt-fil vil bli kopiert til ")
  100.     (set #copyDocsMsg$ "Dokumentmappen vil bli kopiert til ")
  101.     (set #ViewDocsMsg$ "Vil du se dokumentene?")
  102.     (set #Yes$ "Ja")
  103.     (set #Skip$ "Hopp over denne delen")
  104.     (set #Proceed$ "Fortsett")
  105.     (set #ViewDocsHelp$ (cat "Om du vil se dokumentene, trykk \"" #Yes$ "\", eller trykk \"" #Skip$ "\"."))
  106.   )
  107. )
  108. ;=============================================================================
  109. ; Swedish strings (00-06-22) by Börje Karlsson
  110. (if (= @language "svenska")
  111.   (
  112.     (set #languagechoice 10)
  113.     (set #welcome$ (cat "Välkommen till FWCalendar installations program.\n"
  114.                         "Välj applikationerna Du vill använda med FWCalendar."))
  115.     (set #doabort$ "Du valde ingen  applikation. Vill Du avsluta installationen?")
  116.     (set #doaborthelp$ "Du måste välja en applikation för att fortsätta.")
  117.     (set #seldir$ "Välj destinations låda för ARexx skripten. En ny LÅDA kommer inte att skapas.")
  118.     (set #FWdestmsg$ " (Rekommenderad plats är FinalWriter/Macros låda)")
  119.     (set #bothdestmsg$ " (Den rekommenderade platsen är en vanlig låda för ARexx skript)")
  120.     (set #selLanguage$ (cat "Välj vilket lands preferens fil "
  121.                             "(Innehållande översättningar och Helgdagar) som skall användas. "
  122.                             "Existerande preferens filer kommer INTE att skrivas över."))
  123.     (set #docDestMsg$ (cat "Dokumentationen är i HTML format. Var skall den installeras? "
  124.                            "En \"FWCDocs\" Låda KOMMER ATT skapas om den inte redan existerar."))
  125.     (set #CopyMacrosMsg$ "Följande makron kommer att kopieras till ")
  126.     (set #CopyPrefsMsg$ "Följande preferens filer kommer att kopieras till ")
  127.     (set #copyDocsMsg$ "Dokumentationen kopieras till ")
  128.     (set #ViewDocsMsg$ "Vill Du läsa dokumentationen?")
  129.     (set #Yes$ "Ja")
  130.     (set #Skip$ "Hoppa över denna del")
  131.     (set #Proceed$ "Fortsätt")
  132.     (set #ViewDocsHelp$ (cat "Om Du vill läsa dokumentationen, tryck \"" #Yes$ "\", annars tryck \"" #Skip$ "\"."))
  133.   )
  134. )
  135. ;=============================================================================
  136. (showmedia 'PicHandle' 'FWCDocs/Images/FWCalendar.gif' 'upper_center' 'none' 0)
  137.  
  138. (until (> #AppChoice 0)
  139.   (set #AppChoice
  140.     (askoptions
  141.       (prompt #welcome$)
  142.       (help @askoptions-help)
  143.       (choices "Final Writer" "PageStream")
  144.       (default 0)
  145.     )
  146.   )
  147.  
  148.   (if (= #AppChoice 0)
  149.     (
  150.       (set #choice
  151.         (askbool
  152.           (prompt #doabort$)
  153.           (help #soaborthelp$)
  154.         )
  155.       )
  156.       (if (= #choice 1)
  157.         (exit (quiet))
  158.       )
  159.     )
  160.   )
  161. );end until
  162.  
  163. (if (= #AppChoice 1)
  164.   ;Application = Final Writer
  165.   (
  166.     (set #destmsg$ #FWdestmsg$)
  167.   )
  168.   (if (= #AppChoice 2)
  169.     ;Application = PageStream
  170.     (
  171.       (if (= 2 (exists "PageStream4:Scripts" (noreq)))
  172.         (set #defdir "PageStream4:Scripts/")
  173.         (if (= 2 (exists "PageStream3:Scripts" (noreq)))
  174.           (set #defdir "PageStream3:Scripts/")
  175.           (if (= 2 (exists "PageStream:Scripts" (noreq)))
  176.             (set #defdir "PageStream:Scripts/")
  177.           )
  178.         )
  179.       )
  180.     )
  181.     ;Application = Both
  182.     (
  183.       (set #destmsg$ #bothdestmsg$)
  184.     )
  185.   )
  186. )
  187.  
  188. (set @default-dest
  189.   (askdir
  190.     (prompt (cat #seldir$ #destmsg$))
  191.     (help @askdir-help)
  192.     (default #defdir)
  193.   )
  194. )
  195.  
  196. (set #language
  197.   (askchoice
  198.     (prompt #selLanguage$)
  199.     (choices "American" "Deutsch" "English" "Español" "Français" "Irish" "Italiano" "Norsk" "Português" "Scottish" "Svenska")
  200.     (default #languagechoice)
  201.     (help @askchoice-help)
  202.   )
  203. )
  204.  
  205. (set #PrefsFile (cat (select #language "American" "Deutsch" "English" "Español" "Français" "Irish" "Italiano" "Norsk" "Português" "Scottish" "Svenska") "/FWCalendar.prefs"))
  206. (set #TranslationsFile (cat (select #language "American" "Deutsch" "English" "Español" "Français" "Irish" "Italiano" "Norsk" "Português" "Scottish" "Svenska") "/FWCTranslations.txt"))
  207.  
  208. (set #docDir
  209.   (askdir
  210.     (prompt #docDestMsg$)
  211.     (help @askdir-help)
  212.     (default @default-dest)
  213.   )
  214. )
  215.  
  216. (copyfiles
  217.   (prompt #copyMacrosMsg$ @default-dest)
  218.   (help @copyfiles-help)
  219.   (source (pathonly @icon))
  220.   (dest @default-dest)
  221.   (choices "FWCalendar.rexx" "FWCAddEvent.rexx")
  222.   (files)
  223.   (confirm)
  224. )
  225.  
  226. (if (= (exists (tackon @default-dest "FWCalendar.prefs") (noreq)) 1)
  227.   (if (= (exists (#TranslationsFile) (noreq)) 1)
  228.     (copyfiles
  229.       (prompt #copyPrefsMsg$ @default-dest)
  230.       (help @copyfiles-help)
  231.       (source (pathonly @icon))
  232.       (dest @default-dest)
  233.       (choices #TranslationsFile "Images")
  234.       (files)
  235.       (confirm)
  236.     )
  237.   )
  238.   (if (= (exists (#TranslationsFile) (noreq)) 1)
  239.     (copyfiles
  240.       (prompt #copyPrefsMsg$ @default-dest)
  241.       (help @copyfiles-help)
  242.       (source (pathonly @icon))
  243.       (dest @default-dest)
  244.       (choices #PrefsFile #TranslationsFile "Images")
  245.       (files)
  246.       (confirm)
  247.     )
  248.     (copyfiles
  249.       (prompt #copyPrefsMsg$ @default-dest)
  250.       (help @copyfiles-help)
  251.       (source (pathonly @icon))
  252.       (dest @default-dest)
  253.       (choices #PrefsFile "Images")
  254.       (files)
  255.       (confirm)
  256.     )
  257.   )
  258. )
  259.  
  260. (copyfiles
  261.   (prompt #copyDocsMsg$ #docDir)
  262.   (help @copyfiles-help)
  263.   (source (pathonly @icon))
  264.   (dest #docDir)
  265.   (choices "FWCDocs")
  266.   (confirm)
  267. )
  268.  
  269. (if
  270.   (set #choice
  271.     (askbool
  272.       (prompt #ViewDocsMsg$)
  273.       (choices "Yes" "Skip this part")
  274.       (default 1)
  275.       (help #ViewDocsHelp$)
  276.     )
  277.   )
  278.   (
  279.     (set #IndexCmd (tackon #docDir (cat "FWCDocs" "/SendToBrowser.rexx")))
  280.     (rexx #IndexCmd
  281.       (prompt #ShowDocsMsg$)
  282.       (help #ShowDocsHelp$)
  283.     )
  284.   )
  285. )
  286.  
  287. (exit)
  288.