; $VER: ProRen V1.3 Installer
; Script to install Release 1.3 of ProRen

(complete 0)

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

(set #main-query-help
(cat "Sie werden hiermit aufgefordert, das Verzeichnis, in das Sie ProRen "
     "installieren wollen, anzugeben. In diesem Verzeichnis wird dann das "
     "Verzeichnis ProRen angelegt, wohin dann die Dateien kopiert werden."
))

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

(set #docs-query-help
(cat "Sie werden hiermit aufgefordert, das Verzeichnis, in das Sie die Dokumentation "
     "zu ProRen kopieren wollen, anzugeben."
))

(set #Registration
(cat "Die Installation von ProRen ist nun abgeschlossen\n"
     "ProRen ist EMailWare! Wenn Sie nicht registriert sind (kostenlos) "
     "nervt ProRen Sie mit einer Meldung, dies doch bitte zu tun. Wie Sie "
     "sich registrieren können, steht in der Anleitung!"
))

(set #bool-help "Ja für ja, nein für nein :-)")

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

;*** nach Ziel für Hauptdateien fragen ***

(set #maindir (askdir (prompt #main-query-text) (help #main-query-help) (default @default-dest)))

(set #maindir (tackon #maindir "ProRen"))
(makedir #maindir)

;*** Hauptdateien kopieren ***
(complete 20)
(if (= @user-level 2)
  (
    (if (= (askbool 1 (prompt "\nEs werden nun die Programmdateien nach "#maindir" kopiert.")
                      (help #bool-help)
                      (choices "Weitermachen" "Überspringen")))
      (
        (complete 40)
        (copyfiles (source "ProRen") (dest #maindir) (infos) (noposition))
      ))
  )(
    (complete 40)
    (copyfiles (source "ProRen") (dest #maindir) (infos) (noposition))
  )
)

(complete 60)

;*** Doku kopieren ***

(set #thedir (askdir (prompt #docs-query-text) (help #docs-query-help) (default #maindir)))
(complete 70)
(copyfiles (source "docs/ProRenDeutsch.guide") (dest #thedir) (newname "ProRen.guide") (infos))
(complete 80)

;*** Catalog kopieren ***

(if (= @user-level 2)
  (
    (if (= 1 (askbool (prompt "\nSoll der Katalog für deutsche Texte installiert werden?")
                      (help #bool-help)))
      (
        (copyfiles (source "catalogs/deutsch/proren.catalog") (dest "locale:catalogs/deutsch"))
      )
    )
  )(
    (copyfiles (source "catalogs/deutsch/proren.catalog") (dest "locale:catalogs/deutsch"))
  )
)

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

(set @default-dest #maindir)