; *****************************************
; *                                       *
; *  Installationsskript für "DialName    *
; *                                       *
; *  $VER: 0.1 (15.11.99) by J.Reinert    *
; *                                       *
; *****************************************


; *************************************************************************
; Definition der globalen Konstanten
; *************************************************************************

(set #liesmichtext     "Lies_mich.TXT")       ; Schlusswort
(set #progssource      "DialName")            ; Programm

; *************************************************************************
; Definition der deutschen Texte
; *************************************************************************

(set #askprgdirmsg "Bitte wählen Sie die 'DragonTools'-Schublade aus.")

(set #askprgdirhelp
  (cat "Es ist sehr wichtig, dass Sie die Schublade auswählen, in der "
       "sich das Programm 'DragonTools' befindet. "
       "DialName findet sonst die Datei 'Phonelist.TXT' nicht."
  )
)

(set #error_dtinstall1
  (cat "\nAnscheinend haben Sie die falsche Schublade ausgewählt. "
       "Starten Sie die Installation daher erneut.\n\n"
       "Falls Sie 'DragonTools' noch nicht installiert haben, sollten Sie "
       "dies jetzt nachholen"
  )
)

(set #askuserstartup
  (cat "Wenn Sie die Programme Dial, ShowCounter, DialNumber und DialName "
       "in einem Shellfenster nutzen möchten, können Sie jetzt einen "
       "Suchpfad zu den Programmen eintragen lassen. Dazu wird Ihre "
       "'User-Startup' verändert.\n\n"
       "Soll die User-Startup geändert werden?"
  )
) 

(set #nodaemon
  (cat "Aus irgend einem Grund wurde das Programm nicht "
       "umkopiert. Wiederholen Sie bitte den Installationsvorgang"
  )
)

; *************************************************************************
; Beginn der Installation
; *************************************************************************

(complete 0)

(welcome)

; *************************************************************************
; DragonTools-Pfad ermitteln, falls Icon in SYS:WBStart vorhanden ist
; *************************************************************************

(if (exists "SYS:WBStartup/DragonDaemonStart.info")
  (
    (iconinfo (dest "SYS:WBStartup/DragonDaemonStart")
              (getdefaulttool "testdir")
    )
    (set @default-dest (pathonly testdir))
  )
)

; *************************************************************************
; Zielverzeichnis auswählen lassen
; *************************************************************************

(set #destname
  (askdir
    (prompt  #askprgdirmsg)
    (help    #askprgdirhelp)
    (default @default-dest)
  )
)

(if (= #destname "")
  (
    (abort "Fehler bei Auswahl!")
  )
)

; *************************************************************************
; DragonTools-Installation prüfen
; *************************************************************************

(if (not(exists (tackon #destname "DragonTools.wizard") (noreq)))
  (
    (abort #error_dtinstall1)
  )
)

(complete 5)

; *************************************************************************
; Kopieren der Programme
; *************************************************************************

(if (exists #progssource (noreq))
  (
    (copyfiles (prompt "Programm kopieren")
               (source #progssource)
               (dest #destname) 
               (help "")
               (confirm "EXPERT")
    )
  )
)

(complete 50)

; *************************************************************************
; Suchpfad in User-Startup einbinden
; *************************************************************************

(set cmd (cat "Path "#destname" add"))

(if (askbool (prompt (cat #askuserstartup "\n\nEinzufügender Befehl:\n" cmd)) (help "") (default 0) (choices "Ja" "Nein"))
  (
    (startup "DragonDaemon-Tools" 
             (prompt (cat "Zeile\n'" cmd "'\nin User-Startup einfügen"))
             (command cmd)
             (help "")
    )
  )
)

(complete 90)

; *************************************************************************
; Falls vorhanden, einen LiesMich-Text anzeigen
; *************************************************************************

(if (exists #liesmichtext)
  (run (cat "sys:utilities/Multiview " #liesmichtext))
)

; *************************************************************************
; Aktuelles Verzeichnis setzen
; *************************************************************************

(if (exists (tackon #destname "DialName"))
  (
    (set @default-dest #destname)
  )
  (
    (message #nodaemon)
    (set @default-dest "")
  )
)
(complete 100)

; *************************************************************************
; Ende der Installation
; *************************************************************************