; Scannertreiber Update

(set driver "ScanExpress_600CP_SQ4")
(set old_ver "4.17.2")
(set new_ver "4.18.3")


(if (patmatch @language "deutsch")
  (set deutsch 1)
  (set deutsch 0)
)

(if deutsch (set t_treiber_wird_akt " Der Scannertreiber wird aktualisiert.")
            (set t_treiber_wird_akt " Updating scanner driver.")
)
(if deutsch (set t_benoetige_ver_1 "Sie benötigen die Version ")
            (set t_benoetige_ver_1 "You need version ")
)
(if deutsch (set t_benoetige_ver_2 " des Scannertreibers, um dieses Update anzuwenden. Der auf der Festplatte befindliche Scannertreiber wird dabei durch die neue Version ")
            (set t_benoetige_ver_2 " of the scanner driver to apply this update. The driver on your harddisk will be replaced by the new version ")
)
(if deutsch (set t_benoetige_ver_3 " ersetzt.")
            (set t_benoetige_ver_3 ".")
)
(if deutsch (set t_neue_ver_wird_kopiert "Die neue Version des Scannertreibers wird an den alten Platz kopiert.")
            (set t_neue_ver_wird_kopiert "The new version of the scanner driver is copied to the old location.")
)
(if deutsch (set t_tempfile_wird_gel "Eine temporäre Datei wird gelöscht.")
            (set t_tempfile_wird_gel "A temporary file is deleted.")
)
(if deutsch (set t_del_tf_help "Eine vorübergehend angelegte Datei wird wieder entfernt.")
            (set t_del_tf_help "A temporyrily created file which was necessary to perform the update will be deleted.")
)
(if deutsch (set t_kopiere_cat "Die neue Catalog-Datei wird kopiert")
            (set t_kopiere_cat "The new catalog file is copied.")
)
(if deutsch (set t_entf_alte_treiber "Der alte Scannertreiber wird aus dem System entfernt.")
            (set t_entf_alte_treiber "The old scanner driver is removed from the system.")
)



(if (exists (cat "DEVS:Scanners/" driver))
  (
    (run (cat "spatch -oT:Driver_new -pdriver.pch DEVS:Scanners/" driver)
      (prompt (cat driver t_treiber_wird_akt))
      (help (cat t_benoetige_ver_1 old_ver t_benoetige_ver_2 new_ver t_benoetige_ver_3))
      (confirm)
    )

    (copyfiles
      (prompt t_neue_ver_wird_kopiert)
      (help @copyfiles-help)
      (source "T:Driver_new")
      (dest "DEVS:Scanners")
      (newname driver)
      (confirm)
    )

    (run "delete T:Driver_new"
      (prompt t_tempfile_wird_gel)
      (help t_del_tf_help)
      (confirm)
    )

    (if (exists "scannerdriver.catalog")
      (copyfiles
        (prompt t_kopiere_cat)
        (help @copyfiles-help)
        (source "scannerdriver.catalog")
        (dest "locale:Catalogs/deutsch/ScanQuix")
        (confirm)
      )
    )

    (run "avail flush"
      (prompt t_entf_alte_treiber)
      (help t_entf_alte_treiber)
      (confirm)
    )
  )
)