home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma14.dms / ma14.adf / ReOrg / Install_ReOrg < prev    next >
Encoding:
Text File  |  1994-08-20  |  9.8 KB  |  311 lines
  1. ; $VER: Install_ReOrg 3.106 (31.08.93)
  2. ; Script to install ReOrg 3.1
  3.  
  4. (complete 0)
  5.  
  6.  
  7. (if (= @language "Dansk") (
  8.     (set default_lang 0)
  9.     (set #wrong-kick
  10.         "ReOrg kræver mindst KickStart 2.04")
  11.     (set #which-dir
  12.         (cat "Vælg venligst den skuffe, hvor i du ønsker ReOrg"
  13.         "skal installeres."))
  14.     (set #which-dir-help
  15.         (cat "Det her program installer ReOrg på din harddisk. "
  16.         "Vælg venligst en skuffe, hvor du have ReOrg "
  17.         "installeret.\n\nInstallations programmet vil så kopier "
  18.         "program filen 'ReOrg' og alle relaterede filer og ikoner "
  19.         "til denne stuffe.\n\nHvis du allerede har installeret en "
  20.         "tidligere version af ReOrg i denne skuffe, vil "
  21.         "installations programmet spørge om tilladelse til at slette "
  22.         "det gamle program version før installering af det nye "
  23.         "program."))
  24.     (set #which-language
  25.         "Vælg venligst med hvilket sprog der skal installeres.")
  26.     (set #which-language-help
  27.         (cat "ReOrg kan konfigureres til flere forskellige sprog. "
  28.         "Dette påvirker alle program beskeder, program dokumentation "
  29.         "og den indbygget hjælp."
  30.         "\n\nVælg venligst hvilket sprog du ønsker at bruge ReOrg."))
  31.     (set #delete-old
  32.         (cat "Der er allerede en gamle version af ReOrg installeret i "
  33.         "destinations skuffen. Ønsker du at slette den gamle version "
  34.         "og installere den nye version ?"))
  35.     (set #delete-old-help
  36.         (cat "Installations programmet har fundet en version af ReOrg "
  37.         "allerede installeret i destinations skuffen. Hvis du forsætter "
  38.         "med installeringen vil den version blive slette og den nye "
  39.         "version vil blive installeret istedet. Det er ikke muligt "
  40.         "at have to forskellige version af ReOrg i samme skuffe. "
  41.         "Hvis du ønsker at slette den gamle version, så vælg 'Forsæt' "
  42.         ". Ellers vælg 'Afbryd'"))
  43.     (set @abort-button "Afbryd Installering")
  44. ))
  45.  
  46. (if (= @language "Deutsch") (
  47.     (set default_lang 1)
  48.     (set #wrong-kick
  49.         "ReOrg benötigt mindestens Kickstart 2.04")
  50.     (set #which-dir
  51.         (cat "Bitte geben Sie an, in welchem Verzeichnis "
  52.         "ReOrg installiert werden soll."))
  53.     (set #which-dir-help
  54.         (cat "Dieses Programm installiert ReOrg auf Ihrer "
  55.         "Festplatte. Bitte geben Sie an, in welchem Verzeichnis "
  56.         "ReOrg installiert werden soll.\n\nDas Installationsprogramm "
  57.         "kopiert dann die Programmdatei 'ReOrg' und alle zugehörigen "
  58.         "Dateien und Piktogramme in dieses Verzeichnis.\n\nWenn Sie "
  59.         "bereits eine ältere ReOrg-Version in diesem Verzeichnis "
  60.         "installiert haben, fragt das Installationsprogramm um "
  61.         "Erlaubnis, diese alte Version zu löschen, bevor die neue "
  62.         "Version installiert wird."))
  63.     (set #which-language
  64.         "Bitte geben Sie an, welche Sprachen installiert werden sollen.")
  65.     (set #which-language-help
  66.         (cat "ReOrg kann für verschiedene Sprachen konfiguriert werden. "
  67.         "Das betrifft alle Programm-Meldungen, die Dokumentation und die "
  68.         "Online-Hilfe."
  69.         "\n\nBitte geben Sie an, in welchen Sprachen Sie ReOrg nutzen "
  70.         "möchten."))
  71.     (set #delete-old
  72.         (cat "Es ist bereits eine ältere ReOrg-Version im Zielverzeichnis "
  73.         "installiert. Möchten Sie diese ältere Version löschen und die "
  74.         "neue Version installieren ?"))
  75.     (set #delete-old-help
  76.         (cat "Das Installationsprogramm hat festgestellt, daß sich im "
  77.         "Zielverzeichnis bereits eine ReOrg-Version befindet. Wenn Sie "
  78.         "die Installation fortsetzen, wird diese Version gelöscht und "
  79.         "die neue Version stattdessen installiert. Es ist nicht möglich, "
  80.         "zwei verschiedene ReOrg-Versionen in dem selben Verzeichnis "
  81.         "zu haben."))
  82.     (set @abort-button "Installation abbrechen")
  83. ))    
  84.  
  85. (if (= @language "English") (
  86.     (set default_lang 2)
  87.     (set #wrong-kick
  88.         "ReOrg requires at least Kickstart 2.04")
  89.     (set #which-dir
  90.         (cat "Please specify the drawer where you want ReOrg "
  91.         "to be installed."))
  92.     (set #which-dir-help
  93.         (cat "This program installs ReOrg on your harddisk. "
  94.         "Please specify a drawer where you want ReOrg to be "
  95.         "installed.\n\nThe installation program will then copy the "
  96.         "program file 'ReOrg' and all related files and icons "
  97.         "to this drawer.\n\nIf you have already installed a previous "
  98.         "version of ReOrg in that drawer, the installation program "
  99.         "will ask you for permission to delete the old program version "
  100.         "before installing the new program version."))
  101.     (set #which-language
  102.         "Please specify which languages should be installed.")
  103.     (set #which-language-help
  104.         (cat "ReOrg can be configured for several different languages. " 
  105.         "This affects all program messages, program documentation and "
  106.         "online-help."
  107.         "\n\nPlease specify in which languages you want to use ReOrg."))
  108.     (set #delete-old
  109.         (cat "There is already an old version of ReOrg installed in the "
  110.         "destination drawer. Do you want to delete that old version "
  111.         "and install the new version ?"))
  112.     (set #delete-old-help
  113.         (cat "The installation program has found that some version of ReOrg "
  114.         "is already installed in the destination drawer. If you proceed "
  115.         "with the installation that version will be deleted and the new "
  116.         "version will be installed instead. It is not possible to have "
  117.         "two different ReOrg versions in the same drawer."))
  118.     (set @abort-button "Abort Install")
  119. ))    
  120.  
  121.  
  122. (if (= @language "Nederlands") (
  123.     (set default_lang 3)
  124.     (set #wrong-kick
  125.         "ReOrg heeft Kickstart 2.04 of hoger nodig.")
  126.     (set #which-dir
  127.         (cat "Geef de lade waar ReOrg geonstalleerd "
  128.         "moet worden."))
  129.     (set #which-dir-help
  130.         (cat "Dit programma installeert ReOrg op uw harddisk. "
  131.         "Geef de lade waar Reorg geonstalleerd "        
  132.         "moet worden.\n\nHet installatieprogramma zal dan het "
  133.         "bestand 'ReOrg' en alle bijbehorende bestanden en ikonen "
  134.         "kopikren naar deze lade.\n\nIndien u al een eerdere "
  135.         "versie van ReOrg in deze lade geonstalleerd heeft zal "
  136.         "het installatieprogramma vragen om toestemming deze te "
  137.         "verwijderen voordat de nieuwe wordt geonstalleerd."))
  138.     (set #which-language
  139.         "Geef aan welke talen geonstalleerd moeten worden.")
  140.     (set #which-language-help
  141.         (cat "ReOrg can worden geconfigureerd voor verschillende talen. "
  142.         "Dit beinvloed alle mededelingen, programma documentatie en "
  143.         "online-hulp."
  144.         "\n\nGeef aan welke talen geonstalleerd moeten worden."))
  145.     (set #delete-old
  146.         (cat "Er staat al een oude versie van ReOrg in de "
  147.         "bestemmingslade. Wilt u deze verwijderen en de nieuwe versie "
  148.         "installeren?"))
  149.     (set #delete-old-help
  150.         (cat "Het installatieprogramma heeft een oude versie van ReOrg "
  151.         "gevonden in de bestemmingslade. Indien u doorgaat met de "
  152.         "installatie wordt die versie verwijderd en de nieuwe versie "
  153.         "daarvoor in de plaats gezet. Het is niet mogelijk twee verschillende "
  154.         "versies van ReOrg in dezelfde lade te hebben. Indien u door "
  155.         "wilt gaan, kies dan 'Doorgaan'. Indien niet, kies dan 'Afbreken'."))
  156.     (set @abort-button "Afbreken Installatie")
  157. ))
  158.  
  159. (user 0)
  160.  
  161. (if (> (* 37 65536) (getversion "exec.library" (resident)))
  162.     (abort #wrong-kick)
  163. )
  164.  
  165. (if (> (* 39 65536) (getversion "exec.library" (resident)))
  166.     (set v39 0) (set v39 1)
  167. )
  168.  
  169. (welcome)
  170. (set old_level @user-level)
  171. (set english_lang 2)
  172.  
  173. (user 2)
  174. (set target (askdir (prompt #which-dir)
  175.     (help #which-dir-help)
  176.     (default "Work:")
  177. ))
  178. (user old_level)
  179.  
  180. (set @default-dest target)
  181.  
  182. (user 2)
  183. (set lang 0)
  184. (while (= lang 0) (
  185.     (set lang (askoptions (prompt #which-language)
  186.         (help #which-language-help)
  187.         (choices "Dansk" "Deutsch" "English" "Nederlands")
  188.         (default (shiftleft 1 default_lang))
  189.     ))
  190. ))
  191. (user old_level)
  192.  
  193. (set oldversion FALSE)
  194.  
  195. (if (exists (tackon target "ReOrg")) (
  196.     (set oldversion TRUE)
  197. ))
  198.  
  199. (if (exists (tackon target "ReOrg.info")) (
  200.     (set oldversion TRUE)
  201. ))
  202.  
  203. (if (exists (tackon target "ReOrg.prefs")) (
  204.     (set oldversion TRUE)
  205. ))
  206.  
  207. (if (exists (tackon target "ReOrg.help")) (
  208.     (set oldversion TRUE)
  209. ))
  210.  
  211. (if oldversion (
  212.     (user 2)
  213.     (if (askbool (prompt #delete-old)
  214.         (help #delete-old-help)
  215.     ) (
  216.         (delete (tackon target "ReOrg") (optional "force" "askuser"))
  217.         (delete (tackon target "ReOrg.info") (optional "force" "askuser"))
  218.         (delete (tackon target "ReOrg.prefs") (optional "force" "askuser"))
  219.         (delete (tackon target "ReOrg.help") (optional "force" "askuser"))
  220.     ))
  221.     (user old_level)
  222. ))
  223.  
  224. (complete 20)
  225.  
  226. (set source_dir (pathonly (pathonly @icon)))
  227.  
  228. (if (not (= 0 (BITAND lang (BITNOT (shiftleft 1 english_lang))))) (
  229.     (makedir (tackon target "Catalogs"))
  230. ))
  231.  
  232. (set help_dir (tackon target "Help"))
  233. (makedir help_dir (infos))
  234.  
  235. (set n 0)
  236. (while (set langname (select n "Dansk" "Deutsch" "English" "Nederlands" "")) (
  237.     (if (IN lang n) (
  238.         (if (<> english_lang n) (
  239.             (set destdir (tackon (tackon target "Catalogs") langname))
  240.             (set srcdir (tackon (tackon source_dir "Catalogs") langname))
  241.             (makedir destdir)
  242.             (copyfiles (source (tackon srcdir "ReOrg.catalog"))
  243.                 (dest destdir)
  244.                 (optional "force" "askuser")
  245.             )
  246.         ))
  247.         (makedir (tackon help_dir langname) (infos))
  248.         (set fname ("ReOrg_%s.guide" langname))
  249.         (copyfiles (source (tackon (tackon (tackon source_dir "Help")
  250.          langname) fname))
  251.             (dest (tackon help_dir langname))
  252.             (optional "force" "askuser")
  253.             (infos)
  254.         )
  255.         (tooltype (dest (tackon (tackon help_dir langname) fname))
  256.             (noposition)
  257.             (setdefaulttool (if v39 "MultiView" "AmigaGuide"))
  258.         )
  259.     ))
  260.     (set n (+ n 1))
  261. ))
  262.  
  263. (complete 40)
  264.  
  265. (copyfiles (source (tackon source_dir "ReOrg"))
  266.     (dest target)
  267.     (optional "force" "askuser")
  268. )
  269.  
  270. (complete 60)
  271.  
  272. (copyfiles (source (tackon source_dir "ReOrg.info"))
  273.     (dest target)
  274.     (optional "force" "askuser")
  275. )
  276.  
  277. (tooltype (dest (tackon target "ReOrg"))
  278.     (setstack 40960)
  279.     (noposition)
  280. )
  281.  
  282. (if (= 0 (getversion "locale.library" (resident)))
  283.     (tooltype (dest (tackon target "ReOrg"))
  284.         (settooltype "LANGUAGE" @language)
  285.     )
  286. )
  287.  
  288. (copyfiles (source (tackon source_dir "ReOrg.prefs"))
  289.     (dest target)
  290.     (optional "force" "askuser")
  291. )
  292.  
  293. (copyfiles (source (tackon source_dir "ReOrg.brain"))
  294.     (dest target)
  295.     (optional "force" "askuser")
  296. )
  297.  
  298. (complete 80)
  299.  
  300. (if (NOT v39) (
  301.     (run (tackon source_dir "c/loadaguide"))
  302.     (if (> (+ (* 34 65536) 11) (getversion "amigaguide.library" (resident)))
  303.         (copylib (source (tackon source_dir "libs/amigaguide.library"))
  304.             (dest "libs:")
  305.             (optional "force" "askuser")
  306.         )
  307.     )
  308. ))
  309.  
  310. (complete 100)
  311.