home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / programme / ADM36 / Installieren < prev    next >
Encoding:
Text File  |  1998-10-06  |  15.6 KB  |  540 lines
  1. ; Installer installation script for ADM/AddressMaster
  2. ; --------------------------------------------------------------
  3. ; $VER: Install_ADM 3.4 (14.4.97)
  4. ; Copyright by Jan Geissler 1997
  5.  
  6. (welcome "Willkommen bei der AddressMaster Installation")
  7.  
  8. (set @default-dest "")
  9. (set @abort-button "Installation abbrechen")
  10. (set @app-name "AddressMaster")
  11. (set default_lang 1)
  12. (set #msg-icon-prompt   "Kopiere Icon.")
  13.  
  14.  
  15. ; DEF DATEIEN------------------------------------------------------------------
  16.  
  17. (set #msg-doserror-msg  "DOS Fehler %ld aufgetreten.")
  18. (set #msg-dest-prompt
  19.     (cat
  20.             "Wo soll das Unterverzeichnis \"ADM\" angelegt werden? "
  21.             "(Ein evtl. vorhandenes Verzeichnis wird umbenannt)"
  22.     )
  23. )
  24. (set #msg-dest-help
  25.     (cat
  26.             "Hier kann das Verzeichnis ausgewählt werden, "
  27.                         "in dem ein ADM-Verzeichnis angelegt werden soll.\n"
  28.                         "Das Verzeichnis wird unter dem Namen \"ADM\" "
  29.                         "angelegt; ist ein solches schon vorhanden, wird "
  30.                         "dieses umbenannt, d.h. Daten gehen NICHT verloren!"
  31.     )
  32. )
  33.  
  34.  
  35. ; DEF MAGICWB------------------------------------------------------------------
  36.  
  37. (set #msg-lhxmagicwb     "Ersetze Piktogramme durch MagicWB-Icons")
  38. (set #msg-magicwb-prompt
  39.         (cat    "\nBenutzen Sie die 8-Farb-MagicWB-Farbpalette?\n"
  40.                 "Dann besteht hier die Möglichkeit, die 8-Farb-"
  41.                 "Iconographics-Piktogramme durch MagicWB-Icons zu ersetzen. "
  42.                 "('Hilfe' für nähere Erläuterung)\n\n"
  43.         )
  44. )
  45. (set #MagicWB "MagicWB (8-Farb-MagicWB)")
  46. (set #Iconographics "Iconographics (4/8-Farb-WB)")
  47. (set #MagicWBPr "Welche Piktogramme wollen Sie verwenden?")
  48. (set #msg-magicwb-help
  49.         (cat    "\nNormalerweise enthält die ADM-Distribution "
  50.                 "8-Farb-Piktogramme der 'Iconographics'-Palette. "
  51.                 "Diese sehen auch unter einer normalen Vier-Farb-Workbench "
  52.                 "schön aus, was bei MagicWB-Icons nicht der Fall ist.\n\n"
  53.                 "Wählen Sie nun, ob Sie die MagicWB-Piktogramme "
  54.                 "benutzen wollen - NUR dann empfehlenswert, wenn Sie "
  55.                 "auch die spezielle MagicWB-Farbpalette benutzen!"
  56.         )
  57. )
  58.  
  59.  
  60. ; DEF AREXX-ARC------------------------------------------------------------------
  61.  
  62. (set #msg-lhxarexx     "\n\n\nEntpacke Makro-Archiv...")
  63. (set #msg-unpackarexx-prompt
  64.         (cat    "\nWollen Sie mehr als 50 nützlichen Makros für ADM "
  65.                       "gebrauchsfertig ins ADM-ARexx-Verzeichnis "
  66.                       "entpacken?\n\n"
  67.                       "Die Makros enthalten nützliche Anwendungen wie "
  68.                       "verschiedenartige Listendrucke, Datenübergabe z.B. an "
  69.                       "TeX, Faxprogramme, Editoren, FinalWriter, WordWorth "
  70.                       "oder MSWord, MSExcel - und noch viel mehr!\n\n"
  71.                       "Sie sind fast alle völlig ohne ARexx-Kenntnisse nutzbar!"
  72.         )
  73. )
  74. (set #msg-unpackarexx-help
  75.         (cat    "'Yes' entpackt die nützlichen Makros gebrauchsfertig ins ADM-Verzeichnis, "
  76.                 "'No' kopiert nur die LHA-gepackte Datei dorthin"
  77.         )
  78. )
  79.  
  80.  
  81. ; DEF KEY INSTALL---------------------------------------------------------------
  82.  
  83. (set #msg-defexe-prompt "Kopiere Dateien...")
  84. (set #msg-keyfile-prompt
  85.      (cat "Vielen Dank für die Registrierung von ADM!\n\n"
  86.           "Jetzt wird Ihr PERSÖNLICHES Key-File in DEVS: "
  87.           "installiert. Da es Ihren Namen und Ihre Adresse "
  88.           "enthält, darf es *KEINESFALLS WEITERGEGEBEN* werden!"
  89.      )
  90. )
  91. (set #msg-keyfile-help
  92.      (cat "\nDas PERSÖNLICHE Key-File kann nun ins entsprechende "
  93.           "Verzeichnis kopiert werden.\n"
  94.           "Da es Ihren Namen und Ihre Adresse enthält, darf es "
  95.           " *KEINESFALLS WEITERGEGEBEN* werden bzw. in "
  96.           "falsche Hände geraten!"
  97.      )
  98. )
  99.  
  100. ; DEF RENAME------------------------------------------------------------------
  101.  
  102. (set #msg-renameADM-help
  103.     (cat    "\n\nUm ein Überschreiben einer alten Installation "
  104.         "zu verhindern, wird das alte Verzeichnis bei "
  105.         "Neuinstallation umbenannt".
  106.     )
  107. )
  108.  
  109. ; DATEIEN KOPIEREN-----------------------------------------------------------
  110.  
  111. (set #msg-copyadm-prompt
  112.     "Kopiere ADM-Distribution..."
  113. )
  114. (set #msg-copyicon-prompt
  115.     "Kopiere ADM-Icon..."
  116. )
  117. (set #msg-makediradm-prompt
  118.     "Erstelle ADM-Verzeichnis..."
  119. )
  120. (set #msg-makedirext-prompt
  121.     "Erstelle Extern-Verzeichnis..."
  122. )
  123. (set #msg-copyold-prompt
  124.     "Kopiere vorhandene Adressdateien..."
  125. )
  126. (set #msg-copyform-prompt
  127.     "Kopiere vorhandene Formulardateien..."
  128. )
  129.  
  130. (user 2)
  131.  
  132. (if (< (/ (getversion) 65536) 37)
  133.   (
  134.     (abort "ADM benötigt mindestens die Btriebssystemversion 2.04!")
  135.   )
  136. )
  137.  
  138. (complete 0)
  139.  
  140. (message "\n"
  141.          "Hiermit kann\n\nADDRESSMASTER (ADM)\n- DIE deutschsprachige Adressverwaltung für den Amiga-\n\n"
  142.          "installiert werden. Ältere installierte Versionen werden NICHT überschrieben\n\n"
  143.          "AddressMaster is © 1993-97 by Jan Geissler\n"
  144.          "All rights reserved."
  145. )
  146.  
  147. ; Zielverzeichnis auswählen -----------------------------------------------------
  148.  
  149. (set ADMDir
  150.         (askdir
  151.                 (prompt #msg-dest-prompt )
  152.                 (default "sys:")
  153.                 (help   #msg-dest-help)
  154.         )
  155. )
  156. (set ADMDestDir
  157.     (tackon ADMDir "ADM")
  158. )
  159. (set @default-dest ADMDestDir)
  160.  
  161.  
  162. ; Vorhandenes Verzeichnis umbenennen? -----------------------------------------------------
  163.  
  164.  
  165. (set ExistsADMDir 1)
  166. (set ExistsADMCount 1)
  167. (set RenameADMold "ADM.old")
  168. (set ADMBackupName "")
  169.  
  170. (set
  171.    ExistsADMDir (exists ADMDestDir (noreq))
  172. )
  173.  
  174. (while (> ExistsADMDir 0)
  175.     (
  176.             ; ----- Backup-Name erzeugen
  177.  
  178.             (while (exists (tackon ADMDir (cat "ADM.old" ExistsADMCount)) (noreq))
  179.                     (set ExistsADMCount (+ ExistsADMCount 1))
  180.             )
  181.             (set ADMBackupName
  182.                     (cat "ADM.old" ExistsADMCount)
  183.             )
  184.  
  185.  
  186.             ; ---- Umbenennen
  187.  
  188.                 (set #msg-renameADM-prompt
  189.                         (cat    "\n\nEs existiert schon ein Verzeichnis namens \"ADM/\".\n\n"
  190.                                 "Um zu verhindern, daß bestehende Daten überschrieben "
  191.                                 "werden, muß es umbenannt werden.\n\n"
  192.                         "Es wird nun umbenannt in \"" ADMBackupName "\"."
  193.                         )
  194.                 )
  195.  
  196.         (rename ADMDestDir (tackon ADMDir ADMBackupName)
  197.             (prompt #msg-renameADM-prompt)
  198.             (help #msg-renameADM-help)
  199.             (confirm)
  200.         )
  201.         (if (exists (tackon ADMDir "ADM.info"))
  202.             (
  203.                         (rename (tackon ADMDir "ADM.info") (tackon ADMDir (cat ADMBackupName ".info"))
  204.                     (prompt #msg-renameADM-prompt)
  205.                     (help #msg-renameADM-help)
  206.                 )
  207.                                 (run (cat "c/drawicon " (tackon ADMDir (cat ADMBackupName ".info")))
  208.                                 )
  209.             )
  210.         )
  211.                 (set
  212.                    ExistsADMDir (exists ADMDestDir (noreq))
  213.                 )
  214.     )
  215. )
  216. (complete 5)
  217.  
  218.  
  219. ; Verzeichnis erstellen ---------------------------------------------------------------
  220.  
  221. (makedir ADMDestDir
  222.         (prompt #msg-makediradm-prompt)
  223. )
  224.  
  225. (if (exists "/ADM.info")
  226.     ; then
  227.     (
  228.                 (copyfiles
  229.                         (prompt #msg-copyicon-prompt)
  230.                         (help #msg-copyicon-prompt)
  231.                         (source "/ADM.info")
  232.                         (dest ADMDir )
  233.                         (optional nofail)
  234.                 )
  235.     )
  236.  
  237.     ; else
  238.     (
  239.                 (copyfiles
  240.                         (prompt #msg-copyicon-prompt)
  241.                         (help #msg-copyicon-prompt)
  242.                         (source "Icons/ADMdrawer")
  243.                         (dest ADMDir )
  244.                         (newname "ADM.info")
  245.                         (optional nofail)
  246.                 )
  247.     )
  248. )
  249.  
  250. (run (cat "c/DrawIcon " ADMDestDir))
  251.  
  252. (complete 7)
  253.  
  254.  
  255.  
  256. ; Daten kopieren ---------------------------------------------------------------
  257.  
  258. (copyfiles
  259.         (prompt #msg-copyadm-prompt)
  260.         (source "")
  261.         (dest ADMDestDir )
  262.         (infos)
  263.         (all)
  264.         (optional nofail)
  265. )
  266. (complete 50)
  267.  
  268.  
  269. ; Extern-Dir anlegen, falls nicht existent -----------------------------------
  270.  
  271. (set ADMExtName
  272.     (tackon ADMDestDir "Extern/")
  273. )
  274.  
  275. (if (NOT( exists ADMExtName))
  276.     (
  277.       makedir ADMExtName
  278.         (prompt #msg-makedirext-prompt)
  279.     )
  280. )
  281.  
  282.  
  283.  
  284. ; ARexx-Makros ---------------------------------------------------------------
  285.  
  286.  
  287. (set ARexxArcName
  288.     (tackon ADMDestDir "ARexx/ADM-ARexxMakros.lha")
  289. )
  290.  
  291. (
  292.   (working #msg-lhxarexx)
  293.   (run (cat "c/lhx x "
  294.             ARexxArcName
  295.             " "
  296.             (tackon ADMDestDir "ARexx/")
  297.        )
  298.   )
  299.   (delete ARexxArcName)
  300.   (delete (cat ARexxArcName ".info"))
  301. )
  302.  
  303. (complete 70)
  304.  
  305.  
  306. ; Iconset: Die Glaubensfrage ---------------------------------------------------------------
  307.  
  308. (set MagicWBInst   (askchoice  (choices #Iconographics #MagicWB)
  309.                            (prompt (cat #msg-magicwb-prompt " " #MagicWBPr))
  310.                            (help   (cat #msg-magicwb-help))
  311.                          (default 0)
  312.           )
  313. )
  314.  
  315. (if (= MagicWBInst 1)
  316.         (
  317.           (working #msg-lhxmagicwb)
  318.           (run (cat "c/lhx x Icons/MagicWB-Icons.lha " ADMDestDir "/"))
  319.           (if (exists (tackon ADMDestDir "Icons/MagicWB-Icons.lha"))
  320.               (delete (tackon ADMDestDir "Icons/MagicWB-Icons.lha"))
  321.           )
  322.         )
  323. )
  324. (complete 75)
  325.  
  326.  
  327. ; Alte Daten kopieren --------------------------------------------------------
  328.  
  329. (if (NOT (= ADMBackupName ""))
  330.     (
  331.         (set OldAdrDir
  332.             (tackon (tackon ADMDir ADMBackupName) "Adressen/")
  333.         )
  334.         (set OldFormDir
  335.             (tackon (tackon ADMDir ADMBackupName) "Formulare/")
  336.         )
  337.         (set OldADMName
  338.             (tackon (tackon ADMDir ADMBackupName) "AddressMaster")
  339.         )
  340.         (set OldExtDir
  341.             (tackon (tackon ADMDir ADMBackupName) "Extern/")
  342.         )
  343.         (set ADMExtDir
  344.             (tackon ADMDestDir "Extern/")
  345.         )
  346.  
  347.  
  348.     ; --- Adressdateien kopieren
  349.  
  350.         (if (= (exists OldAdrDir) 2)
  351.                (copyfiles
  352.                        (prompt #msg-copyold-prompt)
  353.                        (source OldAdrDir )
  354.                        (dest (tackon ADMDestDir "Adressen/"))
  355.                        (infos)
  356.                        (all)
  357.                        (optional nofail)
  358.                )
  359.         )
  360.  
  361.  
  362.     ; --- Formulardateien kopieren
  363.  
  364.         (if (= (exists OldAdrDir) 2)
  365.                (copyfiles
  366.                        (prompt #msg-copyform-prompt)
  367.                        (source OldFormDir )
  368.                        (dest (tackon ADMDestDir "Formulare/"))
  369.                        (infos)
  370.                        (all)
  371.                        (optional nofail)
  372.                )
  373.         )
  374.  
  375.  
  376.     ; --- ICON-Tooltypes kopieren
  377.     ; Durch einen Bug in IconType muss IconType im
  378.     ; aktuellen Verzeichnis liegen, deshalb kopiere
  379.     ; ich's.
  380.  
  381.         (copyfiles
  382.                 (prompt #msg-copyicon-prompt)
  383.                 (source (tackon ADMDestDir "c/IconType" ))
  384.                 (dest ADMDestDir)
  385.                 (optional nofail)
  386.         )
  387.  
  388.         (if (= (exists OldADMName) 1)
  389.             (
  390.                 (run
  391.                      (cat "IconType " OldADMName " " (tackon ADMDestDir "AddressMaster")
  392.                      )
  393.                 )
  394.             )
  395.         )
  396.  
  397.         (delete (tackon ADMDestDir "IconType"))
  398.  
  399.  
  400.     ; --- ExternInfo-Dateien kopieren
  401.  
  402.         (if (= (exists OldExtDir) 2)
  403.                (copyfiles
  404.                        (prompt #msg-copyold-prompt)
  405.                        (source OldExtDir )
  406.                        (dest ADMExtDir)
  407.                        (infos)
  408.                        (all)
  409.                        (optional nofail)
  410.                )
  411.         )
  412.     )
  413. )
  414.  
  415. (complete 60)
  416.  
  417.  
  418.  
  419. ; Iconset: Key-File installieren ---------------------------------------------------------------
  420.  
  421. (if (exists "/Key-File/ADM.key")
  422.     (
  423.          (copyfiles
  424.                  (prompt #msg-keyfile-prompt)
  425.                  (source "/Key-File/ADM.key")
  426.                  (dest "devs:" )
  427.                  (help #msg-keyfile-help)
  428.                  (infos)
  429.                  (confirm)
  430.          )
  431.          (set KeyCopied 1)
  432.     )
  433. )
  434. (complete 80)
  435.  
  436.  
  437. ; Iconset: Libraries installieren ---------------------------------------------------------------
  438.  
  439. (copylib
  440.   (prompt "\n\nInstalliere ReqTools.library nach LIBS:...\n\n(HELP für Hilfe)\n\n")
  441.   (help "\nDie ReqTools.library und RexxReqTools.library werden von ADM-Makros "
  442.         "dazu verwendet, Requester und Dateiauswahlfenster zu öffnen. "
  443.         @copylib-help)
  444.   (source "libs/ReqTools.library")
  445.   (dest "LIBS:")
  446.   (confirm)
  447. )
  448. (complete 83)
  449.  
  450. (copylib
  451.   (prompt "\n\nInstalliere RexxReqtools.library nach LIBS:...\n\n('HELP' für Hinweise)")
  452.   (help "\nDie ReqTools.library und RexxReqTools.library werden von ADM-Makros "
  453.         "dazu verwendet, Requester und Dateiauswahlfenster zu öffnen. "
  454.         @copylib-help)
  455.   (source "libs/rexxreqtools.library")
  456.   (dest "LIBS:")
  457.   (confirm)
  458. )
  459. (complete 86)
  460.  
  461. (if (= (exists ("sys:classes/gadgets")) 2)
  462.     (
  463.                 (copylib
  464.                   (prompt "\n\nInstalliere textfield.gadget\n")
  465.                   (help "\nDas Textfield.gadget wird vom Bemerkungsfeld verwendet. "
  466.                         @copylib-help)
  467.                   (source "gadgets/textfield.gadget")
  468.                   (dest "sys:classes/gadgets/")
  469.                   (confirm)
  470.                 )
  471.     )
  472. )
  473. (complete 90)
  474.  
  475.  
  476. ; Nicht mehr nötige Sachen löschen --------------------------------------------
  477.  
  478. (if (exists (tackon ADMDestDir "Installieren"))
  479.     (delete (tackon ADMDestDir "Installieren"))
  480. )
  481. (if (exists (tackon ADMDestDir "Installieren.info"))
  482.     (delete (tackon ADMDestDir "Installieren.info"))
  483. )
  484. (complete 100)
  485.  
  486.  
  487. ; Finally, it's happy to be... -----------------------------------------------
  488.  
  489. (message
  490.          "\nAddressMaster (ADM) ist nun installiert.\n\n"
  491.          "Um alte Adreßdaten (z.B. von Addresser, DFA oder "
  492.          "MasterAddress) weiterzuverwenden, können sie mit dem "
  493.          "beiliegenden Datenumwandler komfortabel in ADM-Dateien "
  494.          "umgewandelt werden.\n\n"
  495.          "Desweiteren liegen verschiedene ADM-Makros bei, "
  496.          "die den Import anderer Formate (ASCII, SBase4, "
  497.          "Excel, AdressControl) und den Export zur weiteren Verwendung "
  498.          "der Daten ermöglichen."
  499. )
  500.  
  501. (message "\n"
  502.          "Die Dokumentation des Programms ist überall im Programm "
  503.          "\"online\" durch Drücken der \"HELP\"-Taste in einem "
  504.          "Fenster oder aktivem Eingabefeld erreichbar.\n\n"
  505.          "Man kann ADM auch sehr leicht ohne Anleitung kennenlernen, "
  506.          "manche Besonderheiten wird man dann jedoch nie entdecken."
  507. )
  508.  
  509. (if (= KeyCopied 1)
  510.   (
  511.       (message    "\nNochmals herzlichen Dank für Ihre Registrierung!\n\n"
  512.             "Bitte geben Sie Ihr persönliches \"Key-File\" auch nicht "
  513.             "an einen guten Freund weiter - es enthält Ihren Namen "
  514.             "und Ihre Adresse.\n"
  515.                   "Nur durch Ihre Unterstützung ist sichergestellt, daß ADM auch in Zukunft "
  516.                   "weiterentwickelt wird und weitere Shareware-Produkte "
  517.                   "von mir für den Amiga entstehen!"
  518.       )
  519.   )
  520.   (
  521.       (message "\nBitte nicht vergessen:\n\nAddressMaster (ADM) ist\n--- SHAREWARE---\n\n"
  522.                "Wenn Sie ADM kennengelernt haben und es öfters benutzen "
  523.                "wollen, sollten Sie sich für nur DM 25,- registrieren lassen!\n"
  524.                "Nur durch Ihre Unterstützung ist sichergestellt, daß ADM auch in Zukunft "
  525.                "weiterentwickelt wird und weitere Shareware-Produkte "
  526.                "von mir für den Amiga entstehen!"
  527.       )
  528.   )
  529. )
  530.  
  531. (message     "\n\n\nIch freue mich auch über Vorschläge und jede Art von 'Feed-Back'!"
  532.         "\nSenden Sie diese an meine in der Dokumentation angegebene "
  533.         "Adresse oder im Internet an jan@digit.franken.de."
  534.         "\n\nViel Spaß mit ADM wünscht Ihnen\nJan Geißler")
  535.  
  536.  
  537. (exit)
  538. ; =============================================================================
  539. ; =============================================================================
  540.