home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / utilities / rawbinfo / install < prev    next >
Encoding:
Text File  |  2000-06-13  |  2.0 KB  |  96 lines
  1. ; $VER: Installer script for RAWInfo 1.3 (13.06.00) © 1999/2000 by Stephan Rupprecht
  2.  
  3. ;--- localize strings ----
  4. (if (= @language "deutsch")
  5. (
  6.     (set #wrongver "RAWBInfo benötigt mindestens AmigaOS3.5.\nInstallation kann nicht durchgeführt werden.")
  7.     (set #askdir_prompt "Bitte wählen Sie das Zielverzeichnis für den RAWBInfo")
  8.     (set #nocatalog "Keinen deutschen Katalog gefunden!?")
  9. )
  10. (
  11.     ;--- spanish strings (13.2.00) by © 2000 Dámaso D. Estévez <amidde@arrakis.es>
  12.     (if (= @language "español")
  13.     (
  14.         (set #wrongver "RAWBInfo requiere al menos la versión 3.5 del S.O.\nInstalación abortada.")
  15.         (set #askdir_prompt "Por favor, elija el cajón donde debe ser instalado RAWBInfo")
  16.         (set #nocatalog "Lo siento, pero el catálogo español ¡no está disponible en este momento!")
  17.     )
  18.     (
  19.         (set #wrongver "RAWBInfo requires at least AmigaOS3.5\nInstallation aborted.")
  20.         (set #askdir_prompt "Please select the drawer where RAWBInfo should be installed")
  21.         (set #nocatalog "")
  22.     )
  23.     )
  24. )
  25. )
  26.  
  27. ;--- check os version ---
  28. (set #vernum (getversion "workbench.library" (resident)))
  29. (set #vernum (/ #vernum 65536))
  30.  
  31. (if(< #vernum 44)
  32.     (abort #wrongver)
  33. )
  34.  
  35. ;--- copy main program ---
  36. (set @default-dest
  37.     (askdir
  38.         (prompt #askdir_prompt)
  39.         (help @askdir-help)
  40.         (default "SYS:WBStartup")
  41.     )
  42. )
  43.  
  44. (copyfiles
  45.     (help @copyfiles-help)
  46.     (source "RAWBInfo")
  47.     (dest @default-dest)
  48. )
  49.  
  50. (copyfiles
  51.     (help @copyfiles-help)
  52.     (source "wbinfo")
  53.     (dest "c:")
  54. )
  55.  
  56. ;--- copy .info file if neccessary ---
  57. (set #info_path (tackon @default-dest "RAWBInfo.info") )
  58.  
  59. (if (not (exists #info_path) )
  60.     (copyfiles
  61.         (help @copyfiles-help)
  62.         (source "RAWBInfo.info")
  63.         (dest @default-dest)
  64.     )
  65. )
  66.  
  67. ;--- copy catalog ---
  68. (if (<> @language "english")
  69. (
  70.     (set #src_name
  71.         (tackon "Catalogs/" @language)
  72.     )
  73.  
  74.     (set #dst_name
  75.         (tackon "LOCALE:" #src_name)
  76.     )
  77.  
  78.     (set #src_name
  79.         (tackon #src_name "rawbinfo.catalog")
  80.     )
  81.  
  82.     (if (exists #src_name (noreq))
  83.     (
  84.         (copyfiles
  85.             (help @copyfiles-help)
  86.             (source #src_name)
  87.             (dest #dst_name)
  88.         )
  89.     )
  90.         (message "Sorry, there's no "@language" catalog available")
  91.     ) 
  92. )
  93. )
  94.  
  95. ;--- eof ---
  96.