;
; Installer script for CheckHTML
;
; Copyright © 1997 Kai Hofmann
; All rights reserved!
; Released without any explicit or implicit warranty!
;
; EMail: i07m@informatik.uni-bremen.de
; WWW  : http://www.informatik.uni-bremen.de/~i07m/
;
; $VER: Install 43.0 (28.04.97)
;
; -----------------------------------------------------------------------------

 (if (= @installer-version 0)
   (
    ; old Installer
    (set #prop "")
   )
   (
    ; new Installer
    (set #prop "\x1b[2p")
   )
 )

; --- Installer script strings ------------------------------------------------

 (set #prompt_copy "Do you want to copy the following file(s)?")

; -----------------------------------------------------------------------------

; Install
 ( ; Install
  (welcome (cat "Welcome to the CheckHTML installation utility.\n"
		"Please indicate how the installation should proceed (based upon your knowledge of the Amiga computer)."
	   )
  )
  (complete 0)
  (copyfiles (prompt #prompt_copy)
             (help @copyfiles-help)
             (source "C/sgmls")
             (dest "C:")
             (confirm)
  )
  (complete 17)
  (copyfiles (prompt #prompt_copy)
             (help @copyfiles-help)
             (source "S/CheckHTML")
             (dest "S:")
             (infos)
             (confirm)
  )
  (complete 33)
  (if (NOT (exists "sgml:" (noreq)))
    (
     (set #dir (askdir (prompt "Where to create the SGML directory?")
                       (help @askdir-help)
                       (default "System:SGML")
                       (newpath)
               )
     )
     (makeassign "sgml" #dir)
     (startup "SGMLS"
              (prompt "Adding SGML assign to startup-sequence.")
              (help @startup-help)
              (command (cat "assign sgml: " #dir))
              (confirm)
     )
    )
  )
  (complete 50)
  (copyfiles (prompt #prompt_copy)
             (help @copyfiles-help)
             (source "SGML")
             (dest "sgml:")
             (all)
             (files)
             (confirm)
  )
  (complete 67)
  (set #dir (askdir (prompt "Where to install the AmigaGuide® documentation?")
                    (help @askdir-help)
                    (default "HELP:English")
            )
  )
  (complete 83)
  (copyfiles (prompt #prompt_copy)
             (help @copyfiles-help)
             (source "docs/english")
             (dest #dir)
             (all)
             (infos)
  )
  (complete 100)
 )