home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 1 / Mecomp-CD.iso / amiga / tools / cd / cdcat10 / installer-skript < prev    next >
Text File  |  1997-08-02  |  17KB  |  567 lines
  1.     (set #welcome "\nDieses Skript installiert AFiloFaxPro und alle dazugehörigen Dateien auf Ihrer Festplatte.\n\nAFiloFaxPro © 1995-97 by Frank Weber.")
  2.     (set #destprompt "Bitte Zielverzeichnis wählen.\n(Ein Verzeichnis 'AFiloFaxPro' wird dort erstellt.)")
  3.     (set #desthelp "Sie müssen hier das Verzeichnis wählen, in dem die 'AFiloFaxPro'-Schublade erstellt werden soll.\n\nIn diese Schublade werden dann AFiloFaxPro und alle dazugehörigen Dateien kopiert.")
  4.     (set #overwritemsg "\nAFiloFaxPro wurde bereits in dieses Verzeichnis installiert.\n\nAltes AFiloFaxPro-Verzeichnis löschen ???")
  5.     (set #overwritehelp "In dem Verzeichnis, das Sie ausgewählt haben, existiert bereits ein Verzeichnis mit dem Namen 'AFiloFaxPro'.\n\nAntworten Sie 'Ja', wenn Sie das alte Verzeichnis komplett löschen möchten, bevor diese Version installiert wird.")
  6.     (set #copyafc "Wohin soll das Hintergrundprogramm AFiloCron kopiert werden?")
  7.     (set #copyafchelp "AFiloCron ist das Hintergrundprogramm, das ständig über evtl. auftretende Termine wacht und auch die Statistikdateien erstellt.\n\nEs sollte immer aktiv sein, darum sollten Sie es im WBStartup-Verzeichnis installieren.")
  8.     (set #copysampletext "\nMöchten Sie die mitgelieferten Samples installieren ???")
  9.     (set #copysamplehelp "AFiloCron kann bei einem auftretenden Ereignis ein Soundsample abspielen.\n\nEs werden einige Samples mitgeliefert, Sie verbrauchen ca. 100 KB an Platz auf der Festplatte.")
  10.     (set #copyreqtools "\nReqtools.library kopieren...")
  11.     (set #copytf "\ntextfield.gadget kopieren...")
  12.     (set #demouser "Bitte denken Sie daran, daß CDCat Shareware ist. Wenn Sie es kennengelernt haben und regelmäßig benutzen, sollten Sie sich bei mir für 30 DM registrieren lassen. Nur durch Ihre Unterstützung wird die Weiterentwicklung von AFiloFaxPro sichergestellt.")
  13.     (set #keyfileuser "Nochmals vielen Dank für Ihre Registration. Bitte geben Sie das Keyfile, das Ihren Namen und Ihre Adresse enthält, nicht weiter. Nur durch Ihre Unterstützung wird die Weiterentwicklung von CDCat sichergestellt.")
  14.  
  15. (procedure P_installnormal
  16. (
  17.   (complete 25)
  18.  
  19.   (makedir #cdcatdrawer (infos))
  20.   (set #cdcatprog (tackon #cdcatdrawer "CDCat"))
  21.  
  22.   (copyfiles  (source "CDCat")
  23.               (dest #cdcatdrawer)
  24.               (infos)
  25.   )
  26.  
  27.   (complete 38)
  28.  
  29.   (copyfiles  (source "Anleitung.guide")
  30.               (dest #cdcatdrawer)
  31.               (infos)
  32.   )
  33.  
  34.   (complete 44)
  35.  
  36.   (copyfiles  (source "Readme")
  37.               (dest #cdcatdrawer)
  38.               (infos)
  39.   )
  40.  
  41.   (copyfiles  (source "RegiTool")
  42.               (dest #cdcatdrawer)
  43.               (infos)
  44.   )
  45.  
  46.   (copyfiles  (source "Install_Deutsch.info")
  47.               (dest #cdcatdrawer)
  48.   )
  49.  
  50.   (copyfiles  (source "Installer-Skript")
  51.               (dest #cdcatdrawer)
  52.   )
  53.  
  54.   (complete 50)
  55.  
  56.   (makedir (tackon #cdcatdrawer "pics"))
  57.  
  58.   (copyfiles (source "pics/")
  59.              (dest (tackon #cdcatdrawer "pics"))
  60.              (pattern "#?")
  61.   )
  62.  
  63.  
  64.   (complete 61)
  65.  
  66.   (copyfiles  (source "DArc-Konverter")
  67.               (dest #cdcatdrawer)
  68.               (infos)
  69.   )
  70.  
  71.   (complete 65)
  72.  
  73.   (makedir (tackon #cdcatdrawer "scancatalogs"))
  74.  
  75.   (if (> @user-level 1)
  76.   (
  77.     (if (= 1 (askbool (prompt "\nMöchten Sie den/die mitgelieferten Beispielkatalog(e) installieren?")
  78.                       (choices "Ja" "Nein")
  79.                       (help @askbool-help)
  80.              )
  81.         )
  82.         (copyfiles (source "scancatalogs/")
  83.                    (dest (tackon #cdcatdrawer "scancatalogs"))
  84.                    (pattern "#?")
  85.         )
  86.     )
  87.  
  88.     (complete 70)
  89.  
  90.     (if (= 1 (askbool (prompt "\nWo soll sich die Hauptkonfigurationsdatei befinden?")
  91.                      (choices "CDCat-Verzeichnis" "S:-Verzeichnis")
  92.                      (help @askbool-help)
  93.                      (default 1)
  94.             )
  95.         )
  96.  
  97.           (tooltype (dest #cdcatprog)
  98.                     (settooltype "PREFS" "CDCat.prefs")
  99.           )
  100.  
  101.           (tooltype (dest #cdcatprog)
  102.                     (settooltype "PREFS" "S:CDCat.prefs")
  103.           )
  104.     )
  105.  
  106.     (complete 75)
  107.  
  108.     (if (= 1 (askbool (prompt "\nWo soll sich die Knopf-Konfigurationsdatei befinden?")
  109.                      (choices "CDCat-Verzeichnis" "S:-Verzeichnis")
  110.                      (help @askbool-help)
  111.                      (default 1)
  112.             )
  113.         )
  114.  
  115.           (tooltype (dest #cdcatprog)
  116.                     (settooltype "BUTTONCONFIG" "CDCat.buttons")
  117.           )
  118.  
  119.           (tooltype (dest #cdcatprog)
  120.                     (settooltype "BUTTONCONFIG" "S:CDCat.buttons")
  121.           )
  122.     )
  123.  
  124.     (complete 80)
  125.  
  126.     (if (= 1 (askbool (prompt "\nWo soll sich die Merkbrettdatei befinden?")
  127.                      (choices "CDCat-Verzeichnis" "S:-Verzeichnis")
  128.                      (help @askbool-help)
  129.                      (default 1)
  130.             )
  131.         )
  132.  
  133.           (tooltype (dest #cdcatprog)
  134.                     (settooltype "MEMOLIST" "CDCat.memolist")
  135.           )
  136.  
  137.           (tooltype (dest #cdcatprog)
  138.                     (settooltype "MEMOLIST" "S:CDCat.memolist")
  139.           )
  140.     )
  141.   )
  142.   (
  143.         (copyfiles (source "scancatalogs/")
  144.                    (dest (tackon #cdcatdrawer "scancatalogs"))
  145.                    (pattern "#?")
  146.         )
  147.         (tooltype (dest #cdcatprog)
  148.                   (settooltype "PREFS" "CDCat.prefs")
  149.         )
  150.         (tooltype (dest #cdcatprog)
  151.                   (settooltype "BUTTONCONFIG" "CDCat.buttons")
  152.         )
  153.         (tooltype (dest #cdcatprog)
  154.                   (settooltype "MEMOLIST" "CDCat.memolist")
  155.         )
  156.  
  157.   ))
  158.  
  159.   (complete 86)
  160.  
  161.   (tooltype (dest #cdcatprog)
  162.             (settooltype "DOC" "Anleitung.guide")
  163.   )
  164.  
  165.   (complete 93)
  166.  
  167.   (if (< (/ (getversion) 65536) 38)
  168.       (tooltype (dest (tackon #cdcatdrawer "Anleitung.guide"))
  169.                 (setdefaulttool "sys:utilities/AmigaGuide")
  170.       )
  171.  
  172.       (tooltype (dest (tackon #cdcatdrawer "Anleitung.guide"))
  173.                 (setdefaulttool "sys:utilities/Multiview")
  174.       )
  175.  
  176.   )
  177.  
  178.   (complete 96)
  179.  
  180.     (if (exists "CDCat.key")
  181.       (P_installkey)
  182.     )
  183.   (complete 100)
  184.  
  185.   (if #keyfilecopied
  186.       (set #schlusstext #keyfileuser)
  187.       (set #schlusstext #demouser)
  188.   )
  189.  
  190.   (exit (cat ("Installation abgeschlossen!\n\"%s\" finden Sie nun in Ihrer Schublade (oder Partition)\n\"%s\".\n\n" @app-name @default-dest) #schlusstext) (quiet))
  191. )
  192. )
  193.  
  194. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  195. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  196.  
  197. ;Updateinstallation
  198.  
  199. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  200. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  201.  
  202.  
  203. (procedure P_installupdate
  204. (
  205.   (if (= #cdcatprog "")
  206.  
  207.     (until (= "CDCat" (fileonly #cdcatprog))
  208.  
  209.       (set #cdcatprog (askfile (prompt "Bitte wählen Sie das CDCat-Hauptprogramm aus")
  210.                                (default "SYS:")
  211.                                (help @askfile-help)
  212.                       )
  213.       )
  214.     )
  215.   )
  216.  
  217.   (set #cdcatdrawer (pathonly #cdcatprog))
  218.   (set @default-dest #cdcatdrawer)
  219.  
  220.   (complete 15)
  221.  
  222.   (copyfiles  (source "CDCat")
  223.               (dest #cdcatdrawer)
  224.               (infos)
  225.   )
  226.  
  227.   (complete 34)
  228.  
  229.   (copyfiles  (source "Anleitung.guide")
  230.               (dest #cdcatdrawer)
  231.               (infos)
  232.   )
  233.  
  234.   (complete 44)
  235.  
  236.   (copyfiles  (source "Readme")
  237.               (dest #cdcatdrawer)
  238.               (infos)
  239.   )
  240.  
  241.   (copyfiles  (source "RegiTool")
  242.               (dest #cdcatdrawer)
  243.               (infos)
  244.   )
  245.  
  246.   (copyfiles  (source "Install_Deutsch.info")
  247.               (dest #cdcatdrawer)
  248.   )
  249.  
  250.   (copyfiles  (source "Installer-Skript")
  251.               (dest #cdcatdrawer)
  252.   )
  253.  
  254.   (complete 56)
  255.  
  256.   (copyfiles (source "pics/")
  257.              (dest (tackon #cdcatdrawer "pics"))
  258.              (pattern "#?")
  259.   )
  260.  
  261.  
  262.   (complete 68)
  263.  
  264.   (copyfiles  (source "DArc-Konverter")
  265.               (dest #cdcatdrawer)
  266.               (infos)
  267.   )
  268.  
  269.   (complete 85)
  270.  
  271.   (if (> @user-level 1)
  272.   (
  273.     (if (= 1 (askbool (prompt "\nMöchten Sie den/die mitgelieferten Beispielkatalog(e) installieren?")
  274.                       (choices "Ja" "Nein")
  275.                       (help @askbool-help)
  276.              )
  277.         )
  278.         (copyfiles (source "scancatalogs/")
  279.                    (dest (tackon #cdcatdrawer "scancatalogs"))
  280.                    (pattern "#?")
  281.         )
  282.     )
  283.   ))
  284.  
  285.   (complete 90)
  286.  
  287.     (if (exists "CDCat.key")
  288.       (P_installkey)
  289.     )
  290.   (complete 100)
  291.  
  292.   (if #keyfilecopied
  293.       (set #schlusstext #keyfileuser)
  294.       (set #schlusstext #demouser)
  295.   )
  296.  
  297.   (exit (cat ("Update-Installation abgeschlossen!\n\n\Die neue Version \"%s\" finden Sie nun in Ihrer Schublade (oder Partition)\n\"%s\".\n\n" @app-name @default-dest) #schlusstext) (quiet))
  298.  
  299. ))
  300.  
  301. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  302. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  303.  
  304. ;Deinstallation
  305.  
  306. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  307. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  308.  
  309.  
  310. (procedure P_deinstall
  311. (
  312.   (if (= #cdcatprog "")
  313.  
  314.     (until (= "CDCat" (fileonly #cdcatprog))
  315.  
  316.       (set #cdcatprog (askfile (prompt "Bitte wählen Sie das CDCat-Hauptprogramm aus")
  317.                                (default "SYS:")
  318.                                (help @askfile-help)
  319.                       )
  320.       )
  321.     )
  322.   )
  323.  
  324.   (set #cdcatdrawer (pathonly #cdcatprog))
  325.  
  326.   (if (= @user-level 1)
  327.   (
  328.       (set #proceed (askbool (prompt "Deinstallation wirklich durchführen?")
  329.                       (choices "Deinstallieren" "Abbruch")
  330.                       (help @askbool-help)
  331.                       (default 0)
  332.                     )
  333.       )
  334.       (if (= 0 #proceed) (exit "\nDeinstallation abgebrochen!" (quiet)) )
  335.   ))
  336.  
  337. ;  (set #prefsfile (iconinfo (dest (tackon #cdcatdrawer "CDCat")) (gettooltype "PREFS")))
  338. ;  (set #buttonconfigfile (iconinfo (dest (tackon #cdcatdrawer "CDCat")) (gettooltype "BUTTONCONFIG")))
  339. ;  (set #memolistfile (iconinfo (dest (tackon #cdcatdrawer "CDCat")) (gettooltype "MEMOLIST")))
  340. ;  (set #keyfile (iconinfo (dest (tackon #cdcatdrawer "CDCat")) (gettooltype "KEYFILE")))
  341.  
  342.   (if (> @user-level 1)
  343.     (set #proceed (askbool (prompt "Folgende Datei wirklich löschen?\n\nCDCat")
  344.                            (choices "Löschen" "Nicht löschen")
  345.                            (help @askbool-help)
  346.                            (default 0)
  347.                   )
  348.     )
  349.     (set #proceed 1)
  350.   )
  351.  
  352.   (if (= 1 #proceed)
  353.     (delete (tackon #cdcatdrawer "CDCat") (infos))
  354.   )
  355.  
  356.   (if (> @user-level 1)
  357.     (set #proceed (askbool (prompt "Folgende Datei wirklich löschen?\n\nAnleitung.guide")
  358.                            (choices "Löschen" "Nicht löschen")
  359.                            (help @askbool-help)
  360.                            (default 0)
  361.                   )
  362.     )
  363.     (set #proceed 1)
  364.   )
  365.  
  366.   (if (= 1 #proceed)
  367.     (delete (tackon #cdcatdrawer "Anleitung.guide") (infos))
  368.   )
  369.  
  370.   (if (> @user-level 1)
  371.     (set #proceed (askbool (prompt "Folgende Datei wirklich löschen?\n\nReadme")
  372.                            (choices "Löschen" "Nicht löschen")
  373.                            (help @askbool-help)
  374.                            (default 0)
  375.                   )
  376.     )
  377.     (set #proceed 1)
  378.   )
  379.  
  380.   (if (= 1 #proceed)
  381.     (delete (tackon #cdcatdrawer "Readme") (infos))
  382.   )
  383.  
  384.   (if (> @user-level 1)
  385.     (set #proceed (askbool (prompt "Folgende Datei wirklich löschen?\n\nRegiTool")
  386.                            (choices "Löschen" "Nicht löschen")
  387.                            (help @askbool-help)
  388.                            (default 0)
  389.                   )
  390.     )
  391.     (set #proceed 1)
  392.   )
  393.  
  394.   (if (= 1 #proceed)
  395.     (delete (tackon #cdcatdrawer "RegiTool") (infos))
  396.   )
  397.  
  398.   (if (> @user-level 1)
  399.     (set #proceed (askbool (prompt "Folgende Datei wirklich löschen?\n\nDArc-Konverter")
  400.                            (choices "Löschen" "Nicht löschen")
  401.                            (help @askbool-help)
  402.                            (default 0)
  403.                   )
  404.     )
  405.     (set #proceed 1)
  406.   )
  407.  
  408.   (if (= 1 #proceed)
  409.     (delete (tackon #cdcatdrawer "DArc-Konverter") (infos))
  410.   )
  411.  
  412.   (if (> @user-level 1)
  413.     (set #proceed (askbool (prompt "Folgende Dateien wirklich löschen?\n\nInstaller-Skript + Install_Deutsch.info")
  414.                            (choices "Löschen" "Nicht löschen")
  415.                            (help @askbool-help)
  416.                            (default 0)
  417.                   )
  418.     )
  419.     (set #proceed 1)
  420.   )
  421.  
  422.   (if (= 1 #proceed)
  423.     (delete (tackon #cdcatdrawer "Installer-Skript"))
  424.   )
  425.  
  426.   (if (= 1 #proceed)
  427.     (delete (tackon #cdcatdrawer "Install_Deutsch.info"))
  428.   )
  429.  
  430. ;  (if (> @user-level 1)
  431. ;    (set #proceed (askbool (prompt (cat #prefsfile))
  432. ;                           (choices "Löschen" "Nicht löschen")
  433. ;                           (help @askbool-help)
  434. ;                           (default 0)
  435. ;                  )
  436. ;    )
  437. ;    (set #proceed 1)
  438. ;  )
  439. ;
  440. ;  (if (= 1 #proceed)
  441. ;    (delete (tackon #cdcatdrawer #prefsfile) (infos))
  442. ;  )
  443.  
  444. ;  (delete #cdcatdrawer (infos))
  445.  
  446.   (exit "\nDeinstallation abgeschlossen!" (quiet))
  447. ))
  448.  
  449. (procedure P_installkey
  450. (
  451.   (if (= "" #cdcatprog)
  452.     (until (= "CDCat" (fileonly #cdcatprog))
  453.       (set #cdcatprog (askfile   (prompt "Bitte wählen Sie das CDCat-Hauptprogramm aus")
  454.                                  (help "Sie müssen hier das CDCat-Hauptprogramm wählen, da hier ein Tooltype gesetzt werden muß")
  455.                                  (default @default-dest)
  456.                       )
  457.       )
  458.     )
  459.   )
  460.  
  461.   (if (> @user-level 1)
  462.  
  463.     (set #keydest (askdir (prompt "Wohin soll das Keyfile kopiert werden?")
  464.                           (help @askdir-help)
  465.                           (default (pathonly #cdcatprog))
  466.                   )
  467.     )
  468.  
  469.     (
  470.       (if (= 1 (askbool (prompt "Wohin soll das Keyfile kopiert werden?")
  471.                           (choices "CDCat-Verzeichnis" "S:-Verzeichnis")
  472.                           (help @askbool-help)
  473.                           (default 1)
  474.                )
  475.           )
  476.  
  477.           (set #keydest (pathonly #cdcatprog))
  478.           (set #keydest "S:")
  479.       )
  480.  
  481.     )
  482.   )
  483.  
  484.   (copyfiles (source "CDCat.key")
  485.              (dest #keydest)
  486.   )
  487.  
  488.   (set #keyfilecopied 1)
  489.  
  490.   (if (= #keydest (pathonly #cdcatprog))
  491.     (tooltype (dest #cdcatprog)
  492.               (settooltype "KEYFILE" "CDCat.key")
  493.     )
  494.     (tooltype (dest #cdcatprog)
  495.               (settooltype "KEYFILE" (tackon #keydest "CDCat.key"))
  496.     )
  497.   )
  498. )
  499. )
  500.  
  501. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  502. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  503.  
  504. ; Eigentlicher Start
  505.  
  506. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  507. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  508.  
  509. (complete 0)
  510. (message "\nDieses Skript installiert CDCat und alle dazugehörigen Dateien auf Ihrer Festplatte.\n\nCDCat © 1997 by Frank Weber.")
  511. (complete 8)
  512.  
  513. (set #default-dir "SYS:")
  514. (set @default-dest "SYS:")
  515. (set #cdcatprog "")
  516.  
  517. (if (exists "CDCat.key")
  518.   (set #installkey "Keyfile installieren")
  519.   (set #installkey "")
  520. )
  521.  
  522. (set #mode (askchoice
  523.                 (prompt "Bitte wählen Sie den Installations-Modus")
  524.                 (help @askchoice-help)
  525.                 (choices "Neuinstallation" "Update (über alte Version)" "Deinstallation" #installkey)
  526.                 (default 0)
  527.            )
  528. )
  529.  
  530. (if (= #mode 0)
  531.   (   (set #dest (askdir (prompt "Bitte Zielverzeichnis wählen.\n(Ein Verzeichnis 'CDCat' wird dort erstellt.)")
  532.                          (help "Sie müssen hier das Verzeichnis wählen, in dem die 'AFiloFaxPro'-Schublade erstellt werden soll.\n\nIn diese Schublade werden dann AFiloFaxPro und alle dazugehörigen Dateien kopiert.")
  533.                          (default @default-dest)
  534.                  )
  535.       )
  536.  
  537.       (set #cdcatdrawer (tackon #dest "CDCat"))
  538.       (set @default-dest #dest)
  539.  
  540.       (if (exists #cdcatdrawer)
  541.          (if (= 1 (askbool
  542.                                (prompt "\nCDCat wurde bereits in dieses Verzeichnis installiert.\n\nSoll in den Installationsmodus "Update" gewechselt oder die alte Schublade umbenannt werden?")
  543.                                (choices "Als Update installieren" "Altes Dir umbenennen")
  544.                                (help @askbool-help)
  545.                                (default 1)
  546.                   )
  547.              )
  548.              (
  549.                (set #mode 1)
  550.                (set #cdcatprog (tackon #cdcatdrawer "CDCat"))
  551.              )
  552.              (
  553.                (rename #cdcatdrawer (cat #cdcatdrawer "_old"))
  554.              )
  555.          )
  556.    )
  557.       (if (= #mode 0) (P_installnormal))
  558.   )
  559. )
  560.  
  561. (if (= #mode 1) (P_installupdate))
  562.  
  563. (if (= #mode 2) (P_deinstall))
  564.  
  565. (IF (= #mode 3) (P_installkey))
  566.  
  567.