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