;***************************************
;*                                     *
;* Installer script for YUAdmin        *
;*                                     *
;* $VER: Install YUAdmin 1.0 (29.8.96) *
;*                                     *
;* (C)1996 Albert Vortman              *
;*                                     *
;***************************************
(onerror (CLEANUP))

;------------------------------------------------------------------------
(set @app-name "YUAdmin")

;------------------------------------------------------------------------
(set #wrongversion "You need at least version 42.9 of Installer!")
(set #welcome "Welcome to the installation of YUAdmin!")
(set #no-diskspace "You need more HD space.")

;------------------------------------------------------------------------
(procedure CLEANUP
  (delete (tackon @default-dest ".tempinstall") (all) (optional "force"))
) ; CLEANUP

;------------------------------------------------------------------------
(set @default-dest "YAM:")
(welcome #welcome)
(complete 0)

(set yuadir
  (askdir
    (prompt
      (cat "Select a directory in which to install the YUAdmin program."))
    (default "YAM:")
    (help @askdir-help)
  )
)

(set yamdir (tackon yuadir "yam:"))


(if (= (exists yamdir) 0)
  (makedir yamdir)
)

(copyfiles
  (source "YUAdmin")
  (help   @copyfiles-help)
  (dest   yamdir)
  (infos)
)

(copyfiles
  (help   @copyfiles-help)
  (source "YUAdmin.info")
  (dest   yamdir)
  (infos)
)

(set docdir
  (askdir
    (prompt "Select directory for YUAdmin.guide:")
    (default "YAM:docs")
    (help @askdir-help)
  )
)

(copyfiles
  (prompt "\nCopying YUAdmin.guide...")
  (help   @copyfiles-help)
  (source "YUAdmin.guide")
  (dest   docdir)
  (infos)
)

(makedir (tackon yamdir "MAIL"))

(copylib
  (prompt "\nCopying reqtools.library to LIBS:...")
   (help @copylib-help)
  (source "Libs/reqtools.library")
  (dest "LIBS:")
  (confirm)
)
 
(copyfiles
(prompt "\nCopying font.....")
  (help   @copyfiles-help)
  (source "fonts/")
  (dest "FONTS:")
  (all)
  (confirm)
)

(CLEANUP)
(exit)