; $VER: dataPGP-Install 1.007  (9.8.98) copyright Lutz Rodenhauser

(user 2)
(set #mitteilung (cat "\n\n\n" @app-name "\nCopyright (c) 1997,1998 Lutz Rodenhauser\n"
     "Alle Rechte vorbehalten!\n\n"
     "Support: http://www.ThePentagon.com/luro\n\n"
     "Jetzt " @app-name " installieren?"))
(message #mitteilung)
(complete 0)
(set #schublade (askdir
    (prompt "\nWohin soll DataPGP kopiert werden?\n")
    (help @app-name "\n" @askdir-help)
    (default "SYS:Utilities")))
(complete 10)
(set #hilfetext (cat "Damit die Online-Hilfe vom Programm aus aufgerufen werden kann,"
     "muß sich die Guide-Datei entweder im Verzeichnis HELP: oder im Verzeichnis " #schublade
     " befinden.\n"))
(set #hilfedir (askdir
    (prompt "\nIn welche Schublade soll die Guide-Datei kopiert werden?\n")
    (help @app-name "\n" #hilfetext "\n" @askdir-help)
    (default "HELP:")))
(complete 20)
(set #com (cat "PATH " #schublade " ADD"))
(set #aus (cat "\n\n\nDen Befehl\n" #com "\nin die User-Startup eingetragen?\n\n\n"))
(complete 30)
(startup (@app-name)
         (help @app-name "\n\n" @startup-help)
         (prompt #aus)
         (command #com))
(complete 40)
(set #Icon-prompt (cat "\nSoll def_DataPGP.info installiert werden?\n"
     "Ein eventuell bereits vorhandenes Icon wird überschrieben.\n"))
(set #Icon-help (cat "Wenn Sie JA wählen wird def_DataPGP.icon nach ENV: und ENVARC: kopiert.\n"
     "Wenn Sie NEIN wählen, geschieht dies nicht.\n"
     "Bei der Erstinstallation des Programms sollten Sie JA wählen."))
(set #Ja "JA")
(set #Nein "NEIN")
(set #erg1 (askbool (prompt #Icon-prompt) (help #Icon-help) (default "0") (choices #Ja #Nein)))
(complete 50)
(if (= #erg1 1)(
    (copyfiles
       (prompt "...Icons kopieren...")
       (source "/dataPGP/def_DataPGP.info")
       (dest "ENV:"))
    (complete 60)
    (copyfiles
       (prompt "...Icons kopieren...")
       (source "/DataPGP/def_DataPGP.info")
       (dest "ENVARC:")))
    )
(complete 70)
(copyfiles
     (prompt "...Files kopieren...")
     (source "/dataPGP/dataPGP")
     (dest #schublade)
     (infos))
(complete 80)
(copyfiles
     (prompt "...Guide kopieren...")
     (source "/dataPGP/dataPGP.guide")
     (dest #hilfedir)
     (infos))
(complete 90)
(set #endetext1 (cat "\n\n\n" @app-name " wurde ins Verzeichnis " #schublade " kopiert!\n\n"
     "DataPGP.guide wurde nach " #hilfedir " kopiert.\n\n"))
(if (= #erg1 1) ((set #endetext2 "Definiertes Icon in ENV: und ENVARC: installiert.\n")))
(if (= #erg1 0) ((set #endetext2 "Definiertes Icon nicht installiert.\n\n")))
(set #endetext (cat #endetext1 #endetext2))
(message #endetext)
(working "Hilfetext anzeigen...")
(set #hilfeguide (cat "SYS:UTILITIES/MULTIVIEW " #hilfedir "DataPGP.guide"))
(run #hilfeguide)
(complete 100)
(set #text "\n\nSie müssen jetzt DataPGP konfigurieren!")
(message #text)
(exit "\n\n\nInstallation beendet!\nSie können " @app-name " nun starten."
    (quiet))
(welcome)