;
; Installer-Script fr DosControl
;
; $VER: DC_6.0 (11.09.95)
;
 
(transcript "Installation von DosControl V6.0")
 
(user 1) 
(welcome)
 
(set answare1
     (askchoice
     (prompt "Wo mchten Sie DosControl v6.0 installieren?") 
     (choices "Festplatte" "Bootfhige Diskette DF0: ")
     (help "Eine Installtion auf eine Festplatte ist nur mglich," 
	   "wenn Sie nicht mit der DosDontrol-Diskette gebootet" 
	   "haben.") 
     (default 0) 
     ) 
)
 
(if (= answare1 0) 
  (
  (set dc_dir ("SYS:"))
  (set dc_c_dir("S:DC_6.0")) 
  (set dc_text("S:DC_DIR_6.0"))
  (set dc_libs("LIBS:")) 
  (set dc_devs("DEVS:")) 
  (set dc_cdir("C:"))
  (set instpfad
     (askdir 
     (prompt "Wohin soll DosControl_6.0\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_6.0")) 
 
  (if (exists dc_c_dir)) 
     (makedir dc_c_dir)
 
  (set dc_text("DF0:s/DC_DIR_6.0"))
  (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_6.0" ))
;      (makedir "S:DC_6.0")
;) 
 
(complete 0) 
 
(copyfiles 
    (prompt "Kopiere DosControl_6.0")
    (help @copyfiles-help) 
    (source "DosControl")
    (dest   instpfad)
    (infos)
    (confirm)
)
 
(complete 30)
 
;(cfg_dir) 
 
(set instpfad
    (askdir
      (prompt "Wohin sollen die von DosControl_6.0\nbentigten Daten kopiert werden?") 
      (help "Keine Hilfe verfgbar.")
      (default dc_c_dir) 
    )
)
 
(textfile
   (prompt "Pfad wird gesichert.") 
   (help "Keine Hilfe verfgbar.") 
   (dest dc_text)
   (append instpfad"\n") 
   ) 
 
(complete 45)
 
(copyfiles 
   (prompt "Kopiere die von DosControl_6.0\nbentigten Daten...")
   (source "s/DC_6.0") 
   (dest   instpfad) 
   (pattern "#?")
)
 
(complete 50)
 
(if (askbool 
    (default 1)
    (help "Um alle Funktionen von DosControl nutzen zu knnen werden einige Libraries bentigt.")
    (prompt "Sollen die Libraries fr 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 knnen, bentigen Sie einige Dateien.") 
;    (prompt "Soll die DMS-Untersttzung 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) 
 
