home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Backup / diavolo_131_reg.lha / Install_Update < prev   
Encoding:
Text File  |  1995-02-23  |  2.5 KB  |  84 lines
  1. ; Update Install-Script für Diavolo-Backup
  2. ;
  3. ; © 1993/1994 Martin Korndörfer
  4. ;
  5. ; $VER:DiavoloUpdate 1.28 (17-Okt-94)
  6. ;
  7. ; Version 1.28
  8. ;   Auf neue Version angepasst. Kopiert nun auch Diavolo... Files.
  9. ;
  10. ; Version 1.18
  11. ;
  12. ;   Initial Release
  13.  
  14. (set @abort-button "Installation abbrechen")
  15.  
  16. (set @app-name "Diavolo Backup Update 1.28")
  17.  
  18. (set @language "deutsch")
  19.  
  20. (welcome "Willkommen zur Installation des Updates auf Diavolo Backup 1.28!")
  21.  
  22. (set Ok 0)
  23.  
  24. (complete 0)
  25.  
  26. (set savedest @default-dest)
  27.  
  28.      (set newdest (askdir (prompt "Bitte geben Sie an, in welchem Verzeichnis Diavolo Backup installiert wurde.")
  29.                           (help (cat "Für die Installation des Updates ist es notwendig, daß der genaue Pfad angegeben \
  30. wird, in dem sich die alte Version befindet.\n\n" @askdir-help))
  31.                           (default (tackon savedest "Diavolo")))
  32.      )
  33.  
  34.      (set @default-dest newdest)
  35.  
  36.      (complete 5)
  37.  
  38.      (copyfiles (prompt "Kopiere Diavolo Backup...")
  39.                 (source "")
  40.                 (dest @default-dest)
  41.                 (pattern "(Diavolo#?|Handbuch-Ergänzungen|Probleme&Lösungen|Streamer-Anleitung|Texte_Drucken|LIESMICH_1.28|ALS#?)")
  42.                 (infos))
  43.  
  44.      (if (= (exists (tackon @default-dest "Tape Catalogs") (noreq)) 0)
  45.          (makedir (tackon @default-dest "Tape Catalogs") (prompt ("Erstelle Verzeichnis 'Tape Catalogs'!" newdest))
  46.                           (infos))
  47.      )
  48.  
  49.      (complete 15)
  50.  
  51.      (copyfiles (prompt "Kopiere Sprachdateien...")
  52.                 (help (cat "Die Sprachdateien werden kopiert.\n\n" @copyfiles-help))
  53.                 (source "catalogs")
  54.                 (dest (tackon @default-dest "catalogs"))
  55.                 (all))
  56.  
  57.      (complete 18)
  58.  
  59.      (if (<> (exists "locale:catalogs/deutsch" (noreq)) 0)
  60.          (copyfiles (prompt "Kopiere Sprachdateien...")
  61.                 (help (cat "Die Sprachdateien werden kopiert.\n\n" @copyfiles-help))
  62.                 (source "catalogs")
  63.                 (dest "locale:catalogs")
  64.                 (all))
  65.      )
  66.  
  67.      (complete 35)
  68.  
  69.      (foreach "libs/compressors" "xpk#?.library"
  70.       (copylib (prompt ("Installiere %s" @each-name))
  71.                (help (cat "Vergleichen Sie die angezeigten Versionsnummern. Wenn auf Ihrem Rechner eine ältere Version \
  72. installiert ist, als in diesem Updatepaket, dann können Sie die neue Version kopieren lassen.\n\n" @copylib-help))
  73.                (source (tackon "libs/compressors" @each-name))
  74.                (dest "libs:compressors")
  75.                (confirm)
  76.                (optional nofail askuser))
  77.      )
  78.  
  79.     (complete 50)
  80.  
  81.     
  82. (exit)
  83.  
  84.