home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / ADM144.lha / ADM / Installieren < prev    next >
Encoding:
Text File  |  1994-11-22  |  5.5 KB  |  192 lines
  1. ; Installer installation script for ADM
  2. ; $VER: Install ADM 1.43 (22.11.94)
  3.  
  4. (set @default-dest "")
  5.  
  6. (set default_lang 1)
  7. (set #msg-doserror-msg  "DOS Fehler %ld aufgetreten.")
  8. (set #msg-dest-prompt   "Bitte wählen Sie einen Platz für das ADM-Verzeichnis")
  9. (set #msg-dest-help     "Hier kann das Verzeichnis ausgewählt werden,\nwo ein ADM-Verzeichnis angelegt werden soll\n")
  10. (set #msg-mkadmdir-prompt
  11.         (cat    "\n\n\nSie haben ein Verzeichnis mit dem Namen 'ADM' ausgewählt!\n"
  12.                         "Heißt das, daß ADM in DIESES Verzeichnis "
  13.                         "installiert werden soll?\n\n"
  14.                         "(eventuelle Adreßdaten werden nicht überschrieben)"
  15.         )
  16. )
  17. (set #msg-mkadmdir-help
  18.         (cat    "'Yes' installiert ADM direkt in dieses Verzeichnis, "
  19.                 "'No' erstellt ein neues Verzeichnis namens 'ADM'"
  20.         )
  21. )
  22. (set #msg-installto-msg "\n\n\nADM wird installiert ins Verzeichnis: \n\n" )
  23. (set #msg-setdirtree-working "Setze das aktuelle Verzeichnis...")
  24. (set #msg-defexe-prompt "Kopiere Dateien...")
  25. (set #msg-keyfile-prompt
  26.      (cat "Vielen Dank für die Registrierung von ADM!\n\n"
  27.           "Jetzt wird Dein PERSÖNLICHES Key-File in DEVS: "
  28.           "installiert. Da es Deinen Namen und Deine Adresse "
  29.           "enthält, darf es *KEINESFALLS WEITERGEGEBEN* werden!"
  30.      )
  31. )
  32. (set #msg-keyfile-help
  33.      (cat "\nDas PERSÖNLICHE Key-File kann nun ins entsprechende "
  34.           "Verzeichnis kopiert werden.\n"
  35.           "Da es Deinen Namen und Deine Adresse enthält, darf es "
  36.           " *KEINESFALLS WEITERGEGEBEN* werden bzw. in "
  37.           "falsche Hände geraten!"
  38.      )
  39. )
  40.  
  41.  
  42. (user 2)
  43.  
  44. (if (< (/ (getversion) 65536) 37)
  45.   (
  46.     (abort "ADM benötigt mindestens OS 2.04!")
  47.   )
  48. )
  49.  
  50. (complete 0)
  51.  
  52. (message "\nAddressMaster Installation\n\n\n"
  53.          "Hiermit kann ADM\n\n"
  54.          "installiert werden.\n\n"
  55.          "AddressMaster (ADM) © 1993-1994 Jan Geissler\n"
  56.          "All rights reserved."
  57. )
  58.  
  59. (set ADMdir
  60.         (askdir
  61.                 (prompt #msg-dest-prompt )
  62.                 (default "Work:")
  63.                 (help   #msg-dest-help)
  64.         )
  65. )
  66.  
  67. (if (= (fileonly ADMDir) "ADM")
  68.         (
  69.                 (set MakeADMDir
  70.                         (askbool
  71.                         (prompt #msg-mkadmdir-prompt)
  72.                                 (help   #msg-mkadmdir-help )
  73.  
  74.                                 (default 1)
  75.                         )
  76.                 )
  77.  
  78.                 (if (= MakeADMDir 1)
  79.                         (
  80.                                 (set ADMDir (pathonly ADMDir))
  81.  
  82.                                 (message #msg-installto-msg (tackon ADMDir "ADM"))
  83.  
  84.                         )
  85.                         (
  86.                                 (message #msg-installto-msg (tackon ADMDir "ADM"))
  87.  
  88.                                 (makedir (tackon ADMdir "ADM")
  89.                                         (infos)
  90.                                 )
  91.                         )
  92.                 )
  93.  
  94.  
  95.         )
  96.         (
  97.                 (makedir (tackon ADMdir "ADM")
  98.                         (infos)
  99.                 )
  100.         )
  101.  
  102. )
  103.  
  104. (working #msg-setdirtree-working)
  105.  
  106. (makeassign "ADM" (tackon ADMdir "ADM"))
  107.  
  108. (copyfiles
  109.         (prompt #msg-defexe-prompt)
  110.         (source "")
  111.         (dest (tackon ADMDir "ADM") )
  112.         (infos)
  113.         (all)
  114. )
  115.  
  116. (complete 70)
  117.  
  118. (run "delete " (tackon "ADM:" "Installieren"))
  119. (run "delete " (tackon "ADM:" "Installieren.info"))
  120.  
  121. (complete 75)
  122.  
  123. (if (exists "/Key-File/ADM.key")
  124.  
  125.     (copyfiles
  126.             (prompt #msg-keyfile-prompt)
  127.             (source "/Key-File/ADM.key")
  128.             (dest "devs:" )
  129.             (help #msg-keyfile-help)
  130.             (infos)
  131.             (confirm)
  132.     )
  133. )
  134.  
  135. (complete 80)
  136.  
  137. (copylib
  138.   (prompt "\nInstalliere ReqTools.library nach LIBS:...\n\n(HELP für Hilfe)\n\n")
  139.   (help "ReqTools.library wird, falls installiert, von ADM "
  140.         "von ADM dazu verwendet, die Anwählfunktion"
  141.         "tastenbedienbar zu machen.\n\n"
  142.         @copylib-help)
  143.   (source "libs/ReqTools.library")
  144.   (dest "LIBS:")
  145.   (confirm)
  146. )
  147.  
  148. (complete 90)
  149.  
  150. (copylib
  151.   (prompt "\nInstalliere RexxReqtools.library nach LIBS:...\n\n('HELP' für Hinweise)")
  152.   (help "RexxReqTools.library wird von diversen "
  153.         "ADM-ARexx-Makros verwendet\n\n"
  154.         @copylib-help)
  155.   (source "libs/rexxreqtools.library")
  156.   (dest "LIBS:")
  157.   (confirm)
  158. )
  159.  
  160. (complete 100)
  161.  
  162. (message "\n\nFertig.\n\n"
  163.          "AddressMaster (ADM) ist nun komplett installiert.\n\n"
  164.          "Um alte Adreßdaten (z.B. von Addresser, DFA oder "
  165.          "MasterAddress) weiterzuverwenden, können sie mit dem "
  166.          "dem Paket beiliegenden Datenumwandler komfortabel "
  167.          "in ADM-Dateien umgewandelt werden."
  168.  
  169. )
  170.  
  171. (message "\n\n\n"
  172.          "ADM enthält eine einfache Online-Hilfsfunktion.\n\n"
  173.          "Diese wird mit der Help-Taste (im Hauptfenster oder in "
  174.          "einem Eingabefeld) bzw. bei Anklicken eines Funktionsknopfs (Gadgets) "
  175.          "bei gehaltener Control(Ctrl)-Taste aktiviert.\n\n"
  176.          "So kann man ADM einfach kennenlernen!"
  177. )
  178.  
  179. (message "\nBitte nicht vergessen:\n\nAddressMaster (ADM) ist\n--- SHAREWARE---\n\n"
  180.          "Wenn Du ADM kennengelernt hast und es öfters benutzt "
  181.          "willst, solltest Du Dich für nur DM 25,- registrieren lassen!\n\n"
  182.          "Nur so ist sichergestellt, daß ADM auch in Zukunft "
  183.          "weiterentwickelt wird und weitere Shareware-Produkte "
  184.          "für den Amiga entstehen!"
  185. )
  186.  
  187. (message "\n\nIch freue mich auch über Vorschläge\nund jede Art von 'Feed-Back'!\n\n\nViel Spaß mit ADM\n\nwünscht\n\nJan Geißler")
  188.  
  189. (exit)
  190.  
  191. ; that'll keep him happy
  192.