; Update Install-Script für Diavolo-Backup
;
; © 1993/1994 Martin Korndörfer
;
; $VER:DiavoloUpdate 1.18 (22-Jun-93)
;
; Version 1.18
;
;   Initial Release

(set @abort-button "Installation abbrechen")

(set @app-name "Diavolo Backup Update 1.18")

(set @language "deutsch")

(welcome "Willkommen zur Installation des Updates auf Diavolo Backup 1.18!")

(set Ok 0)

(complete 0)

(set savedest @default-dest)

     (set newdest (askdir (prompt "Bitte geben Sie an, in welchem Verzeichnis Diavolo Backup installiert wurde.")
                          (help (cat "Für die Installation des Updates ist es notwendig, daß der genaue Pfad angegeben \
wird, in dem sich die alte Version befindet.\n\n" @askdir-help))
                          (default (tackon savedest "Diavolo")))
     )

     (set @default-dest newdest)

     (complete 5)

     (copyfiles (prompt "Kopiere Diavolo Backup...")
                (source "")
                (dest @default-dest)
                (pattern "(Diavolo|Handbuch-Ergänzungen|Probleme&Lösungen|Streamer-Anleitung|Texte_Drucken|LIESMICH_1.18|ALS#?)")
                (infos))

     (if (= (exists (tackon @default-dest "Tape Catalogs") (noreq)) 0)
         (makedir (tackon @default-dest "Tape Catalogs") (prompt ("Erstelle Verzeichnis 'Tape Catalogs'!" newdest))
                          (infos))
     )

     (complete 15)

     (copyfiles (prompt "Kopiere Sprachdateien...")
                (help (cat "Die Sprachdateien werden kopiert.\n\n" @copyfiles-help))
                (source "catalogs")
                (dest (tackon @default-dest "catalogs"))
                (all))

     (complete 18)

     (if (<> (exists "locale:catalogs/deutsch" (noreq)) 0)
         (copyfiles (prompt "Kopiere Sprachdateien...")
                (help (cat "Die Sprachdateien werden kopiert.\n\n" @copyfiles-help))
                (source "catalogs")
                (dest "locale:catalogs")
                (all))
     )

     (complete 35)

     (foreach "libs/compressors" "xpk#?.library"
      (copylib (prompt ("Installiere %s" @each-name))
               (help (cat "Vergleichen Sie die angezeigten Versionsnummern. Wenn auf Ihrem Rechner eine ältere Version \
installiert ist, als in diesem Updatepaket, dann können Sie die neue Version kopieren lassen.\n\n" @copylib-help))
               (source (tackon "libs/compressors" @each-name))
               (dest "libs:compressors")
               (confirm)
               (optional nofail askuser))
     )

    (complete 50)

    
(exit)