; $VER: ProRen V2.0 Installer
; Script to install Release 2.0 of ProRen

(complete 0)

;*** Strings festlegen ***
(set #askdir-main-text
(cat "Wohin soll ProRen 2.0 installiert werden ?\n"
     "(Es wird das Verzeichnis ProRen angelegt.)"
))

(set #askbool-docs-text
(cat "Soll die Dokumentation (HTML) nach ProRen/docs installiert werden ?"
))

(set #askdir-docs-text
(cat "Wohin soll die Dokumentation installiert werden ?"
))

(set #askbool-rexx-text
(cat "Sollen die Arexxscripts nach ProRen/rexx installiert werden ?"
))

(set #askdir-rexx-text
(cat "Wohin sollen Arexxscripts installiert werden ?"
))

(set #askbool-ctlg-text
(cat "Soll der deutsche Katalog nach LOCALE:catalogs/deutsch installiert werden ?"
))

(set #askdir-ctlg-text
(cat "Wohin soll der deutsche Katalog installiert werden ?"
))

(set #Registration
(cat "ProRen ist ShareWare!\nWenn Sie nicht registriert sind können Sie nicht "
     "alle Funktionen uneingeschränkt benutzen. Wie Sie "
     "sich registrieren können, steht in der Anleitung!"
))

(welcome "\nWillkommen zur Installation von "@app-name"")

;*** nach Ziel für Hauptdateien fragen ***
(set #maindir
  (askdir
    (prompt #main-query-text)
    (default @default-dest)
    (help @askdir-help)
  )
)
(complete 5)

; ***falls prdir nicht existiert
(set #prdir (tackon #maindir "ProRen"))
(if
  (= 0
    (exists #prdir (noreq))
  )( ;then install
    (copyfiles (source "/ProRen.info") (dest #maindir))
    (set #icon (tackon #maindir "ProRen"))
    (makedir #prdir)
    (set #update 0)
  )( ;else update
    (set #update 1)
  )
)
(complete 10)

(set #gfxdir (tackon #prdir "gfx"))
(makedir #gfxdir)

; *** Nach docsdir fragen
(if
  (= 1
    (askbool (prompt #askbool-docs-text) (help @askbool-help))
  )(  ; then
    (set #docsdir (tackon #prdir "docs"))
    (makedir #docsdir)
    (copyfiles (source "docs.info") (dest #prdir))
  )(  ; else
    (if (= 0 @user-level)
      ( ;then
        (set #docsdir (tackon #prdir "docs"))
        (makedir #docsdir)
        (copyfiles (source "docs.info") (dest #prdir))
      )( else
        (set #docsdir
          (askdir
            (prompt #docs-query-text)
            (default #prdir)
            (help @askdir-help)
          )
        )
      )
    )
  )
)
(complete 15)

; *** Nach rexxdir fragen
(if
  (= 1
    (askbool (prompt #askbool-rexx-text) (help @askbool-help))
  )(  ; then
    (set #rexxdir (tackon #prdir "rexx"))
    (makedir #rexxdir)
  )(  ; else
    (if (= 0 @user-level)
      ( ;then
        (set #rexxdir (tackon #prdir "rexx"))
        (makedir #rexxdir)
      )( else
        (set #rexxdir
          (askdir
            (prompt #rexx-query-text)
            (default #prdir)
            (help @askdir-help)
          )
        )
      )
    )
  )
)
(complete 20)

; *** Nach ctlgdir fragen
(if
  (= 1
    (askbool (prompt #askbool-ctlg-text) (help @askbool-help))
  )(  ; then
    (set #ctlgdir "LOCALE:catalogs/deutsch")
    (makedir #ctlgdir)
  )(  ; else
    (if (= 0 @user-level)
      ( ;then
        (set #ctlgdir "LOCALE:catalogs/deutsch")
        (makedir #ctlgdir)
      )( else
        (set #ctlgdir
          (askdir
            (prompt #ctlg-query-text)
            (default #prdir)
            (help @askdir-help)
          )
        )
      )
    )
  )
)
(complete 25)

;*** Hauptdateien kopieren ***
(copyfiles (source "ProRen") (dest #prdir) (infos) (noposition))
(complete 30)
(copyfiles (source "Register") (dest #prdir) (infos) (noposition))
(complete 35)
(copyfiles (source "gfx") (dest #gfxdir) (all))
(complete 40)

(if (= #update 0)
  (
    (copyfiles (source ".arexx") (dest #prdir))
    (complete 45)
  )
)

(copyfiles (source "docs/deutsch") (dest #docsdir) (all) (infos) (noposition))
(complete 85)
(copyfiles (source "rexx") (dest #rexxdir) (all))
(complete 95)
(copyfiles (source "catalogs/deutsch/proren.catalog") (dest #ctlgdir))

;*** Fertig ***
(complete 100)
(message #Registration (all))

(set @default-dest #prdir)