home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / adm30.lha / ADM / Installieren < prev    next >
Encoding:
Text File  |  1996-03-28  |  15.1 KB  |  515 lines
  1. ; Installer installation script for ADM/AddressMaster
  2. ; --------------------------------------------------------------
  3. ; $VER: Install ADM 3.0 (29.3.96)
  4. ; Copyright by Jan Geissler 1996
  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-copyold-prompt
  121.     "Kopiere alte Adressdateien..."
  122. )
  123.  
  124. (user 2)
  125.  
  126. (if (< (/ (getversion) 65536) 37)
  127.   (
  128.     (abort "ADM benötigt mindestens die Btriebssystemversion 2.04!")
  129.   )
  130. )
  131.  
  132. (complete 0)
  133.  
  134. (message "\n"
  135.          "Hiermit kann\n\nADDRESSMASTER (ADM)\n- DIE deutschsprachige Adressverwaltung für den Amiga-\n\n"
  136.          "installiert werden. Ältere installierte Versionen werden NICHT überschrieben\n\n"
  137.          "AddressMaster is © 1993-96 by Jan Geissler\n"
  138.          "All rights reserved."
  139. )
  140.  
  141. ; Zielverzeichnis auswählen -----------------------------------------------------
  142.  
  143. (set ADMDir
  144.         (askdir
  145.                 (prompt #msg-dest-prompt )
  146.                 (default "sys:")
  147.                 (help   #msg-dest-help)
  148.         )
  149. )
  150. (set ADMDestDir
  151.     (tackon ADMDir "ADM")
  152. )
  153. (set @default-dest ADMDestDir)
  154.  
  155.  
  156. ; Vorhandenes Verzeichnis umbenennen? -----------------------------------------------------
  157.  
  158.  
  159. (set ExistsADMDir 1)
  160. (set ExistsADMCount 1)
  161. (set RenameADMold "ADM.old")
  162. (set ADMBackupName "")
  163.  
  164. (set
  165.    ExistsADMDir (exists ADMDestDir (noreq))
  166. )
  167.  
  168. (while (> ExistsADMDir 0)
  169.     (
  170.             ; ----- Backup-Name erzeugen
  171.  
  172.             (while (exists (tackon ADMDir (cat "ADM.old" ExistsADMCount)) (noreq))
  173.                     (set ExistsADMCount (+ ExistsADMCount 1))
  174.             )
  175.             (set ADMBackupName
  176.                     (cat "ADM.old" ExistsADMCount)
  177.             )
  178.  
  179.  
  180.             ; ---- Umbenennen
  181.  
  182.                 (set #msg-renameADM-prompt
  183.                         (cat    "\n\nEs existiert schon ein Verzeichnis namens \"ADM/\".\n\n"
  184.                                 "Um zu verhindern, daß bestehende Daten überschrieben "
  185.                                 "werden, muß es umbenannt werden.\n\n"
  186.                         "Es wird nun umbenannt in \"" ADMBackupName "\"."
  187.                         )
  188.                 )
  189.  
  190.         (rename ADMDestDir (tackon ADMDir ADMBackupName)
  191.             (prompt #msg-renameADM-prompt)
  192.             (help #msg-renameADM-help)
  193.             (confirm)
  194.         )
  195.         (if (exists (tackon ADMDir "ADM.info"))
  196.             (
  197.                         (rename (tackon ADMDir "ADM.info") (tackon ADMDir (cat ADMBackupName ".info"))
  198.                     (prompt #msg-renameADM-prompt)
  199.                     (help #msg-renameADM-help)
  200.                 )
  201.                                 (run (cat "c/drawicon " (tackon ADMDir (cat ADMBackupName ".info")))
  202.                                 )
  203.             )
  204.         )
  205.                 (set
  206.                    ExistsADMDir (exists ADMDestDir (noreq))
  207.                 )
  208.     )
  209. )
  210. (complete 5)
  211.  
  212.  
  213. ; Verzeichnis erstellen ---------------------------------------------------------------
  214.  
  215. (makedir ADMDestDir
  216.         (prompt #msg-makediradm-prompt)
  217. )
  218.  
  219. (if (exists "/ADM.info")
  220.     ; then
  221.     (
  222.                 (copyfiles
  223.                         (prompt #msg-copyicon-prompt)
  224.                         (help #msg-copyicon-prompt)
  225.                         (source "/ADM.info")
  226.                         (dest ADMDir )
  227.                         (optional nofail)
  228.                 )
  229.     )
  230.  
  231.     ; else
  232.     (
  233.                 (copyfiles
  234.                         (prompt #msg-copyicon-prompt)
  235.                         (help #msg-copyicon-prompt)
  236.                         (source "Icons/ADMdrawer")
  237.                         (dest ADMDir )
  238.                         (newname "ADM.info")
  239.                         (optional nofail)
  240.                 )
  241.     )
  242. )
  243.  
  244. (run (cat "c/DrawIcon " ADMDestDir))
  245.  
  246. (complete 7)
  247.  
  248.  
  249.  
  250. ; Daten kopieren ---------------------------------------------------------------
  251.  
  252. (copyfiles
  253.         (prompt #msg-copyadm-prompt)
  254.         (source "")
  255.         (dest ADMDestDir )
  256.         (infos)
  257.         (all)
  258.         (optional nofail)
  259. )
  260. (complete 50)
  261.  
  262. (set ADMExtName
  263.     (tackon ADMDestDir "Extern/")
  264. )
  265.  
  266.  
  267. ; ARexx-Makros ---------------------------------------------------------------
  268.  
  269.  
  270. (set UnpackARexx
  271.         (askbool
  272.         (prompt #msg-unpackarexx-prompt)
  273.                 (help   #msg-unpackarexx-help )
  274.                 (default 1)
  275.                 (choices "Makros installieren" "Kein Interesse")
  276.         )
  277. )
  278. (set ARexxArcName
  279.     (tackon ADMDestDir "ARexx/ADM-ARexxMakros.lha")
  280. )
  281.  
  282. (if (= UnpackARexx 1)
  283.         (
  284.       (working #msg-lhxarexx)
  285.           (run (cat "c/lhx x "
  286.                     ARexxArcName
  287.                     " "
  288.                     (tackon ADMDestDir "ARexx/")
  289.                )
  290.           )
  291.       (delete ARexxArcName)
  292.       (delete (cat ARexxArcName ".info"))
  293.         )
  294. )
  295. (complete 70)
  296.  
  297.  
  298. ; Iconset: Die Glaubensfrage ---------------------------------------------------------------
  299.  
  300. (set MagicWBInst   (askchoice  (choices #Iconographics #MagicWB)
  301.                            (prompt (cat #msg-magicwb-prompt " " #MagicWBPr))
  302.                            (help   (cat #msg-magicwb-help))
  303.                          (default 0)
  304.           )
  305. )
  306.  
  307. (if (= MagicWBInst 1)
  308.         (
  309.           (working #msg-lhxmagicwb)
  310.           (run (cat "c/lhx x Icons/MagicWB-Icons.lha " ADMDestDir "/"))
  311.           (if (exists (tackon ADMDestDir "Icons/MagicWB-Icons.lha"))
  312.               (delete (tackon ADMDestDir "Icons/MagicWB-Icons.lha"))
  313.           )
  314.         )
  315. )
  316. (complete 75)
  317.  
  318.  
  319. ; Alte Daten kopieren --------------------------------------------------------
  320.  
  321. (if (NOT (= ADMBackupName ""))
  322.     (
  323.         (set OldAdrDir
  324.             (tackon (tackon ADMDir ADMBackupName) "Adressen/")
  325.         )
  326.         (set OldADMName
  327.             (tackon (tackon ADMDir ADMBackupName) "AddressMaster")
  328.         )
  329.         (set OldExtDir
  330.             (tackon (tackon ADMDir ADMBackupName) "Extern/")
  331.         )
  332.         (set ADMExtDir
  333.             (tackon ADMDestDir "Extern/")
  334.         )
  335.  
  336.  
  337.     ; --- Adressdateien kopieren
  338.  
  339.         (if (= (exists OldAdrDir) 2)
  340.                (copyfiles
  341.                        (prompt #msg-copyold-prompt)
  342.                        (source OldAdrDir )
  343.                        (dest (tackon ADMDestDir "Adressen/"))
  344.                        (infos)
  345.                        (all)
  346.                        (optional nofail)
  347.                )
  348.         )
  349.  
  350.  
  351.     ; --- ICON-Tooltypes kopieren
  352.     ; Durch einen Bug in IconType muss IconType im
  353.     ; aktuellen Verzeichnis liegen, deshalb kopiere
  354.     ; ich's.
  355.  
  356.         (copyfiles
  357.                 (prompt #msg-copyold-prompt)
  358.                 (source (tackon ADMDestDir "c/IconType" ))
  359.                 (dest ADMDestDir)
  360.                 (optional nofail)
  361.         )
  362.  
  363.         (if (= (exists OldADMName) 1)
  364.             (
  365.                 (run
  366.                      (cat "IconType " OldADMName " " (tackon ADMDestDir "AddressMaster")
  367.                      )
  368.                 )
  369.             )
  370.         )
  371.  
  372.         (delete (tackon ADMDestDir "IconType"))
  373.  
  374.  
  375.     ; --- ExternInfo-Dateien kopieren
  376.  
  377.         (if (= (exists OldExtDir) 2)
  378.                (copyfiles
  379.                        (prompt #msg-copyold-prompt)
  380.                        (source OldExtDir )
  381.                        (dest ADMExtDir)
  382.                        (infos)
  383.                        (all)
  384.                        (optional nofail)
  385.                )
  386.         )
  387.     )
  388. )
  389.  
  390. (complete 60)
  391.  
  392.  
  393.  
  394. ; Iconset: Key-File installieren ---------------------------------------------------------------
  395.  
  396. (if (exists "/Key-File/ADM.key")
  397.     (
  398.          (copyfiles
  399.                  (prompt #msg-keyfile-prompt)
  400.                  (source "/Key-File/ADM.key")
  401.                  (dest "devs:" )
  402.                  (help #msg-keyfile-help)
  403.                  (infos)
  404.                  (confirm)
  405.          )
  406.          (set KeyCopied 1)
  407.     )
  408. )
  409. (complete 80)
  410.  
  411.  
  412. ; Iconset: Libraries installieren ---------------------------------------------------------------
  413.  
  414. (copylib
  415.   (prompt "\n\nInstalliere ReqTools.library nach LIBS:...\n\n(HELP für Hilfe)\n\n")
  416.   (help "\nDie ReqTools.library und RexxReqTools.library werden von ADM-Makros "
  417.         "dazu verwendet, Requester und Dateiauswahlfenster zu öffnen. "
  418.         @copylib-help)
  419.   (source "libs/ReqTools.library")
  420.   (dest "LIBS:")
  421.   (confirm)
  422. )
  423. (complete 83)
  424.  
  425. (copylib
  426.   (prompt "\n\nInstalliere RexxReqtools.library nach LIBS:...\n\n('HELP' für Hinweise)")
  427.   (help "\nDie ReqTools.library und RexxReqTools.library werden von ADM-Makros "
  428.         "dazu verwendet, Requester und Dateiauswahlfenster zu öffnen. "
  429.         @copylib-help)
  430.   (source "libs/rexxreqtools.library")
  431.   (dest "LIBS:")
  432.   (confirm)
  433. )
  434. (complete 86)
  435.  
  436. (if (= (exists ("sys:classes/gadgets")) 2)
  437.     (
  438.                 (copylib
  439.                   (prompt "\n\nInstalliere textfield.gadget\n")
  440.                   (help "\nDas Textfield.gadget wird vom Bemerkungsfeld verwendet. "
  441.                         @copylib-help)
  442.                   (source "gadgets/textfield.gadget")
  443.                   (dest "sys:classes/gadgets/")
  444.                   (confirm)
  445.                 )
  446.     )
  447. )
  448. (complete 90)
  449.  
  450.  
  451. ; Nicht mehr nötige Sachen löschen --------------------------------------------
  452.  
  453. (if (exists (tackon ADMDestDir "Installieren"))
  454.     (delete (tackon ADMDestDir "Installieren"))
  455. )
  456. (if (exists (tackon ADMDestDir "Installieren.info"))
  457.     (delete (tackon ADMDestDir "Installieren.info"))
  458. )
  459. (complete 100)
  460.  
  461.  
  462. ; Finally, it's happy to be... -----------------------------------------------
  463.  
  464. (message
  465.          "\nAddressMaster (ADM) ist nun installiert.\n\n"
  466.          "Um alte Adreßdaten (z.B. von Addresser, DFA oder "
  467.          "MasterAddress) weiterzuverwenden, können sie mit dem "
  468.          "beiliegenden Datenumwandler komfortabel in ADM-Dateien "
  469.          "umgewandelt werden.\n\n"
  470.          "Desweiteren liegen verschiedene ADM-Makros bei, "
  471.          "die den Import anderer Formate (ASCII, SBase4, "
  472.          "Excel, AdressControl) und den Export zur weiteren Verwendung "
  473.          "der Daten ermöglichen."
  474. )
  475.  
  476. (message "\n"
  477.          "Die Dokumentation des Programms ist überall im Programm "
  478.          "\"online\" durch Drücken der \"HELP\"-Taste in einem "
  479.          "Fenster oder aktivem Eingabefeld erreichbar.\n\n"
  480.          "Man kann ADM auch sehr leicht ohne Anleitung kennenlernen, "
  481.          "manche Besonderheiten wird man dann jedoch nie entdecken."
  482. )
  483.  
  484. (if (= KeyCopied 1)
  485.   (
  486.       (message    "\nNochmals herzlichen Dank für Ihre Registrierung!\n\n"
  487.             "Bitte geben Sie Ihr persönliches \"Key-File\" auch nicht "
  488.             "an einen guten Freund weiter - es enthält Ihren Namen "
  489.             "und Ihre Adresse.\n"
  490.                   "Nur durch Ihre Unterstützung ist sichergestellt, daß ADM auch in Zukunft "
  491.                   "weiterentwickelt wird und weitere Shareware-Produkte "
  492.                   "von mir für den Amiga entstehen!"
  493.       )
  494.   )
  495.   (
  496.       (message "\nBitte nicht vergessen:\n\nAddressMaster (ADM) ist\n--- SHAREWARE---\n\n"
  497.                "Wenn Sie ADM kennengelernt haben und es öfters benutzen "
  498.                "wollen, sollten Sie sich für nur DM 25,- registrieren lassen!\n"
  499.                "Nur durch Ihre Unterstützung ist sichergestellt, daß ADM auch in Zukunft "
  500.                "weiterentwickelt wird und weitere Shareware-Produkte "
  501.                "von mir für den Amiga entstehen!"
  502.       )
  503.   )
  504. )
  505.  
  506. (message     "\n\n\nIch freue mich auch über Vorschläge und jede Art von 'Feed-Back'!"
  507.         "\nSenden Sie diese an meine in der Dokumentation angegebene "
  508.         "Adresse oder im Internet an jan@digit.franken.de."
  509.         "\n\nViel Spaß mit ADM wünscht Ihnen\nJan Geißler")
  510.  
  511.  
  512. (exit)
  513. ; =============================================================================
  514. ; =============================================================================
  515.