home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #2 / amigaacscoverdisc1998-021998.iso / utilities / shareware / diskutils / cdrom / cdcat12 / installer-skript < prev    next >
Text File  |  1997-08-26  |  16KB  |  577 lines

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