home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / t / turboprintv4.1update.dms / turboprintv4.1update.adf / Install < prev    next >
Text File  |  1995-11-05  |  5KB  |  188 lines
  1. ; Installation script for TurboPrint Professional 4.x Update-Disk
  2. ; (C) 1995 IrseeSoft
  3. ;
  4. ;
  5. ; $VER: TurboPrint Professional 4.10 (05.11.95)
  6. ;
  7. ;
  8. ;   "Install TurboPrint"         operationMode = 0
  9. ;   "Update TurboPrint"          operationMode = 1
  10. ;   "Remove TurboPrint"          operationMode = 2
  11. ;   "Query TurboPrint Version"   operationMode = 3
  12. ;
  13. ; TODO
  14. ;
  15. ; String constants section. All messages and strings appear in this section
  16. ; for easier translation into foreign languages.
  17.  
  18. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  19. ;
  20. ; LANGUAGE SECTION
  21. ;
  22. ; to support more than only one language, there is a special section for
  23. ; each supported language.
  24. ;
  25.  
  26. (if (<> @language "english")
  27. ((if (<> @language "deutsch")
  28.  ( set @language "english")
  29.  )
  30. ))
  31.    (set #tp-version "TurboPrint Professional 4.10 (05.11.95)" )
  32.  
  33.    (set #introduction
  34.       (cat "\nInstallation des Updates auf\n"
  35.          "TurboPrint Professional 4.10\n"
  36.              "    Copyright © 1988-1995 IrseeSoft SPCS\n\n"
  37.       )
  38.    )
  39.  
  40.    (set #need-os2
  41.       (cat "\nTurboPrint Professional 4 benötigt Kickstart 2.04 oder höher\n"
  42.            "Um TurboPrint Professional 4 zu verwenden, müssen Sie Ihren "
  43.            "Amiga auf Betriebssystem 2.04 (oder 3.1) umrüsten.\n"
  44.            "Umrüstkits (Kickstart-ROM + Workbench-Disketten) "
  45.        "sind im Fachhandel oder Versandhandel erhältlich.\n"
  46.        "Als Übergangslösung empfehlen wir die Verwendung von "
  47.            "TurboPrint 3.0.\n"
  48.       )
  49.    )
  50.  
  51.    (set #installation-done
  52.       (cat "Die Installation von TurboPrint ist abgeschlossen.\n"
  53.     "Entfernen Sie nun bitte Ihre TurboPrint-Diskette und Starten "
  54.     "Sie Ihren Amiga neu."
  55.     )
  56.    )
  57.  
  58. ; General initialisation of internal states, options and pre-defined
  59. ; variables go here.
  60.  
  61. (delopts askuser)
  62.  
  63. ; Check whether this system is operating with at least Workbench 2.04 (V37).
  64. ; This is needed for the WBStartup feature and the Printmanager
  65.  
  66. (set kickVersion (shiftright (getversion) 16))
  67.  
  68. (set wbVersion (shiftright (getversion "LIBS:version.library") 16))
  69.  
  70. ; set source directory
  71.  
  72. (set sourcedir (pathonly @icon))
  73.  
  74. ;
  75. (if (< kickVersion 37)
  76.   (
  77.    (message #need-os2)
  78.    (exit (quiet))
  79.   )
  80. )
  81. ;
  82. (welcome)
  83.  
  84. ; remember current user level
  85.  
  86. (set old-level @user-level)
  87.  
  88. ; Introduce ourself to the user.
  89.  
  90. (set operationMode 1)
  91.  
  92. (message #introduction)
  93.  
  94.  
  95.    (set #path-prompt (cat "Wo befindet sich das TurboPrint-Verzeichnis, "
  96.               "in welches das Update installiert werden soll?")
  97.    )
  98.  
  99. ; ask for the destination directory
  100.  
  101. (if (not (exists "Work:"))
  102.    (user 1)
  103. )
  104.  
  105. (set target
  106.    (askdir (prompt #path-prompt)
  107.    (help #generic-help @askdir-help)
  108.    (default "Work:") )
  109. )
  110.  
  111. (user old-level)
  112.  
  113. ;Copy printer stuff
  114.    (copyfiles
  115.           (help   #generic-help @copyfiles-help)
  116.           (source (tackon sourcedir "Printers"))
  117.              (dest   (tackon target "TurboPrint/Printers"))
  118.               (all)
  119.    )
  120.  
  121.    (copyfiles
  122.           (help   #generic-help @copyfiles-help)
  123.           (source (tackon sourcedir "DruckManager"))
  124.              (dest   (tackon target "TurboPrint") )
  125.           (infos)
  126.    )
  127.    (copylib
  128.          (source (tackon sourcedir "libs/multipic.library"))
  129.          (dest   "LIBS:")
  130.    )
  131.  
  132.    (copyfiles
  133.           (help   #generic-help @copyfiles-help)
  134.           (source (tackon sourcedir "LiesMich"))
  135.              (dest   (tackon target "TurboPrint") )
  136.           (infos)
  137.    )
  138.  
  139.    (copyfiles
  140.           (help   #generic-help @copyfiles-help)
  141.           (source (tackon sourcedir "Turbo"))
  142.              (dest   (tackon target "TurboPrint/Turbo"))
  143.               (all)
  144.    )
  145.    (copyfiles
  146.           (help   #generic-help @copyfiles-help)
  147.           (source (tackon sourcedir "Extra"))
  148.              (dest   (tackon target "TurboPrint/Extra"))
  149.           (infos)
  150.               (all)
  151.    )
  152.    (copyfiles
  153.           (help   #generic-help @copyfiles-help)
  154.           (source (tackon sourcedir "Configs/_Default_"))
  155.              (dest   (tackon target "TurboPrint/Configs"))
  156.    )
  157.    (copyfiles
  158.           (help   #generic-help @copyfiles-help)
  159.           (source (tackon sourcedir "Colors"))
  160.              (dest   (tackon target "TurboPrint/Colors"))
  161.               (all)
  162.    )
  163.    (copyfiles
  164.           (help   #generic-help @copyfiles-help)
  165.           (source (tackon sourcedir "Drivers"))
  166.              (dest   (tackon target "TurboPrint/Drivers"))
  167.               (all)
  168.    )
  169.  
  170. ;Update Personalization
  171.  
  172.    (run (cat (tackon sourcedir "c/Update") " >nil: \"" 
  173.          (tackon target "TurboPrint/Turboprefs") "\" \"" 
  174.          (tackon target "TurboPrint/turbo/tpr") "\"")
  175.    )
  176.  
  177.    (copyfiles
  178.           (help   #generic-help @copyfiles-help)
  179.           (source (tackon target "TurboPrint/turbo/tpr"))
  180.              (dest   (tackon target "TurboPrint"))
  181.              (newname "Turboprefs")
  182.    )
  183.  
  184. (user 1)
  185. (message #installation-done)
  186. (exit (quiet))
  187.  
  188.