;
; Installer-Script für DosControl
;
; $VER: DC_5.1 (17.08.94)
;
 
(transcript "Installation von DosControl V5.1")
 
(user 1) 
(welcome)
 
(set answare1
     (askchoice
     (prompt "Wo möchten Sie DosControl v5.1 installieren?")
     (choices "Festplatte" "Bootfähige Diskette DF0: ")
     (help "Eine Installtion auf eine Festplatte ist nur möglich,"
	   "wenn Sie nicht mit der DosDontrol-Diskette gebootet"
	   "haben.")
     (default 0)
     )
)

(if (= answare1 0)
  (
  (set dc_dir ("SYS:"))
  (set dc_c_dir("S:DC_5.1"))
  (set dc_text("S:DC_DIR_5.1"))
  (set dc_libs("LIBS:"))
  (set dc_devs("DEVS:"))
  (set dc_cdir("C:"))
  (set instpfad
     (askdir
     (prompt "Wohin soll DosControl_5.1\ninstalliert werden?")
     (help @askdir-help)
     (default dc_dir)
     )
  )
  )
;
  (
  (user 0)
  (set instpfad ("DF0:"))
  (set dc_dir ("DF0:"))

  (if (exists "DF0:c"))
    (makedir "DF0:c")

  (if (exists "DF0:devs"))
    (makedir "DF0:devs")

  ª(if (exists "DF0:s"))
    (makedir "DF0:s")

  (set dc_c_dir("DF0:s/DC_5.1"))

  (if (exists dc_c_dir))
     (makedir dc_c_dir)

  (set dc_text("DF0:s/DC_DIR_5.1"))
  (set dc_libs("DF0:libs"))
  (set dc_cdir("DF0:c"))
  (set dc_devs("DF0:devs"))
  (if (exists dc_libs))
     (makedir dc_libs)
  )
)

;(procedure cfg_dir
;   (if (exists "S:DC_5.1" ))
;      (makedir "S:DC_5.1")
;)

(complete 0)

(copyfiles
    (prompt "Kopiere DosControl_5.1")
    (help @copyfiles-help)
    (source "DosControl")
    (dest   instpfad)
    (infos)
    (confirm)
)

(complete 30)

;(cfg_dir)

(set instpfad
    (askdir
      (prompt "Wohin sollen die von DosControl_5.1\nbenötigten Daten kopiert werden?")
      (help "Keine Hilfe verfügbar.")
      (default dc_c_dir)
    )
)

(textfile
   (prompt "Pfad wird gesichert.")
   (help "Keine Hilfe verfügbar.")
   (dest dc_text)
   (append instpfad"\n")
   )

(complete 45)

(copyfiles
   (prompt "Kopiere die von DosControl_5.1\nbenötigten Daten...")
   (source "s/DC_5.1")
   (dest   instpfad)
   (pattern "#?")
)

(complete 50)

(if (askbool
    (default 1)
    (help "Um alle Funktionen von DosControl nutzen zu können werden einige Libraries benötigt.")
    (prompt "Sollen die Libraries für DosControl installiert werden?"))
    (
    (copylib
	(prompt "Kopiere Powerpacker.library")
	(source "Libs/powerpacker.library")
	(dest dc_libs)
    )
    (complete 55)
    (copylib
	(prompt "Kopiere MedPlayer.library")
	(source "Libs/MedPlayer.library")
	(dest dc_libs)
    )
    (complete 60)
    (copylib
	(prompt "Kopiere Req.library")
	(source "Libs/Req.library")
	(dest dc_libs)
    )

    (complete 65)
    (copylib
	(prompt "Kopiere Reqtools.library")
	(source "Libs/Reqtools.library")
	(dest dc_libs)
    )

    (complete 70)
    (copylib
	(prompt "Kopiere Arp.library")
	(source "Libs/arp.library")
	(dest dc_libs)
    )
    (complete 75)
    (copylib
	(prompt "Kopiere KD_Freq.library")
        (source "Libs/KD_Freq.library")
        (dest dc_libs)
    )
   )
 )

;(if (askbool
;    (default 1) 
;    (help "Um sich DMS-Files ansehen zu können, benötigen Sie einige Dateien.")
;    (prompt "Soll die DMS-Unterstützung installiert werden?"))
    (copyfiles
       (prompt "Kopiere c/chdir")
       (source "c/chdir")
       (dest   dc_cdir)
       (infos)
       (confirm)
    )
    (copyfiles
       (prompt "Kopiere devs/dms.device")
       (source "devs/dms.device")
       (dest   dc_devs)
       (infos)
       (confirm)
    )
    (copyfiles
       (prompt "Kopiere devs/dms.mountlist")
       (source "devs/dms.mountlist")
       (dest   dc_devs)
       (infos)
       (confirm)
    )
;)
(complete 100)