home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Printer / HP_CTRL.LHA / HP_Control / Install / HP_Control.install < prev   
Encoding:
Text File  |  1995-11-13  |  10.3 KB  |  379 lines
  1. ; $VER: HP_Control.install 1.00 (11.9.95)
  2. ; Script to install HP_Control
  3. ;
  4. (complete 0)
  5.  
  6. ; Install script for HP_Control (Workbench 2.0 or higher)
  7.  
  8. (set old_level @user-level)
  9.  
  10. (set SourceRoot "/")
  11. ;=============================================================================
  12. ; German strings
  13.  
  14. (if (= @language "deutsch")
  15. (
  16. (set default_lang 2)
  17.  
  18. (set #bad-kick "Sie benötigen Workbench 2.0 oder größer")
  19.  
  20. (set #HP_Control-InstallMsg
  21. (cat "\n\HP_Control Installationsskript.\n"
  22.         "Diese Skript installiert HP_Control auf Ihrem Amiga.\n\n"
  23.         "Lesen Sie das Anleitungs-File für weitere Informationen\n"
  24.         " über den Vertrieb von HP_Control.\n\n"
  25.         "HP_Control © 1995 Guido Mersmann\n"
  26.         "All Rechte reserviert."
  27. ))
  28.  
  29. (set #HP_Control-Where
  30. (cat "Wo möchten Sie HP_Control installieren ?\n"
  31.         "(Ein Verzeichnis wird angelegt)"
  32. ))
  33.  
  34. (set #HP_Control-Update
  35. (cat "\nEin HP_Control-Verzeichnis existiert im ausgewählen"
  36.         " Verzeichnis. Wenn Sie fortfahren,"
  37.         " bestätigen Sie, daß Sie die alte HP_Control-Installation"
  38.         " mit der neuesten Version updaten wollen."
  39.         " Verschiedene HP_Control-Dateien (z.B Prefs) werden falls nötig"
  40.         " überschrieben!"
  41. ))
  42.  
  43. (set #HP_Control-Main "Welche Version von HP_Control möchten Sie installieren?")
  44. (set #HP_Control-Main-help
  45. (cat "Die OS2.0+ Version läuft unter allen Systemen ab OS2.0."
  46.      " Die OS2.1+ Version hat den Nutzen, daß sie weniger Resourcen"
  47.      " benutzt, wenn sich HP_Control im Hintergrund befindet. Dazu MUß"
  48.      " die Locale.library eingebunden sein. Für die OS3.0+ gilt das selbe"
  49.      " wie für die OS2.1 Verison. Es werden OS3.0+ Routinen benutzt, die"
  50.      " weiteren Speicher sparen."
  51. ))
  52.  
  53. (set #HP_Control-copying-Main "\nKopiere HP_Control nach HP_Control/...")
  54. (set #HP_Control-copying-Catalogs "\nKopiere Kataloge nach ...HP_Control/Locale/...")
  55.  
  56. (set #HP_Control-Language "\nWelche Sprachen sollen installiert werden ?")
  57. (set #HP_Control-Language-help
  58. (cat "\nDer Amiga kann in vielen verschiedenen Sprachen"
  59.          " arbeiten. Um Plattenkapazität zu sparen können Sie"
  60.          " nur die Sprachen anwählen, die sie benötigen"
  61.          " Haken Sie also einfach die Sprachen ab, die Sie"
  62.          " Ihrem System zugänglich machen wollen."
  63. ))
  64. (set #HP_Control-Docs "\nWelche Anleitungs- und Informationsdateien wollen Sie installieren ?")
  65.  
  66.  
  67. (set #HP_Control-Printer "\nWelcher Druckertyp soll installiert werden ?")
  68. (set #HP_Control-Printer-Help
  69. (cat  "\nHP_Control unterstützt viele Drucker. Sie wählen ihren"
  70.       " Druckertyp aus und HP_Control paßt sich automatisch an."
  71.       " Sie können natürlich später mit dem Printer - Tooltype"
  72.       " diese Einstellung ändern."
  73. ))
  74.  
  75. (set #HP_Control-WBStartup
  76. (cat "\nWollen Sie das HP_Control bei jedem System start"
  77.      " automatisch gestartet wird ?"
  78. ))
  79.  
  80. (set #HP_Control-Exit
  81. (cat "\nHP_Control installaliert !!\n\n"
  82.      "Bitte reseten Sie ihren Rechner bevor Sie HP_Control"
  83.      " das erste Mal benutzen. Dadurch werden Problem mit den"
  84.      " Sprachenkatalogen des Systems vermieden !!"
  85. ))
  86.  
  87.  
  88. ))
  89.  
  90. ;=============================================================================
  91. ; English strings
  92.  
  93. (if (<> @language "deutsch")
  94. (
  95. (set default_lang 4)
  96.  
  97. (set #bad-kick "You must have at least Workbench 2.0+")
  98.  
  99. (set #HP_Control-InstallMsg
  100. (cat "\n\HP_Control installation script.\n"
  101.         "This script installs HP_Control on your Amiga.\n\n"
  102.         "Read the DOK-file for more information\n"
  103.         " on the distribution of HP_Control.\n\n"
  104.         "HP_Control © 1995 Guido Mersmann\n"
  105.         "All rights reserved."
  106. ))
  107.  
  108. (set #HP_Control-Where
  109. (cat "Where would you like to install HP_Control ?\n"
  110.         "(A drawer will be created)"
  111. ))
  112.  
  113. (set #HP_Control-Update
  114. (cat "\nA HP_Control drawer does already exist in the selected "
  115.         " directory. By selecting \"Proceed\", you"
  116.         " indicate that you want to update the HP_Control"
  117.         " installation with the most recent version.\n"
  118.         "Several HP_Control specific files will be overwritten!"
  119. ))
  120.  
  121. (set #HP_Control-Main "Which HP_Control version should be installed ?")
  122. (set #HP_Control-Main-help
  123. (cat "The OS2.0+ version should only be used on Systems with OS2."
  124.      " The OS2.1+ and the OS3.0+ version need less Memory. Locale is required!"
  125.      " Special OS3.0+ functions are used to save more memory."
  126. ))
  127. (set #HP_Control-copying-Main          "Copying HP_Control to ...HP_Control/...")
  128. (set #HP_Control_copying-Catalogs      "Copying catalogs to ...HP_Control/Locale/...")
  129.  
  130. (set #HP_Control-Language "\nWhich languages should be installed ?")
  131. (set #HP_Control-Language-help
  132. (cat "\nThe Amiga can be operated in many different"
  133.           " languages."
  134.           "To reduce the amount of space consumed by the"
  135.           " language files, you can select to have only the"
  136.           " files of specific languages copied.\n\n"
  137.           "Simply check the boxes of the languages you wish"
  138.           " to have available on your system.\n\n"
  139. ))
  140.  
  141. (set #HP_Control-Docs "\nWhich text files should be installed in \"HP_Control:Docs\" ?")
  142.  
  143. (set #HP_Control-Printer "\nWhich Printertype should be installed ?")
  144. (set #HP_Control-Printer-Help
  145. (cat  "\nHP_Control supports many Printers. Select your Printer here."
  146.       " Later you can change this by modifing the printer tooltype"
  147. ))
  148.  
  149. (set #HP_Control-WBStartup
  150. (cat "\nStart HP_Control by using WBStartup-Drawer ?"
  151. ))
  152.  
  153.  
  154. (set #HP_Control-Exit
  155. (cat "\nHP_Control installed !!\n\n"
  156.      "Please reset your computer before starting HP_Control"
  157. ))
  158.  
  159.  
  160. ))
  161. ;=============================================================================
  162. (set #version (/ (getversion) 65536))
  163.  
  164. (if (< #version 37)
  165.     (
  166.     (abort #bad-kick)
  167.     )
  168. )
  169.  
  170. (if (= #version 37) (set Binary 0))
  171. (if (= #version 38) (set Binary 1))
  172. (if (> #version 38) (set Binary 2))
  173.  
  174.  
  175. (set @default-dest "SYS:Tools/")
  176.  
  177.  
  178. (message #HP_Control-installmsg)
  179.  
  180. (welcome)
  181.  
  182.  
  183.  
  184. (set HP_Controldestdir
  185.         (tackon
  186.                 (askdir
  187.                         (prompt #HP_Control-Where)
  188.                         (help @askdir-help)
  189.                         (default @default-dest)
  190.                 )
  191.                 "HP_Control"
  192.         )
  193. )
  194.  
  195. (if (= (exists HP_Controldestdir) 2)
  196.         (message #HP_Control-Update)
  197. )
  198. (
  199.         (makedir HP_Controldestdir
  200.                 (help @makedir-help)
  201.                 (infos)
  202.         )
  203. )
  204. (set @default-dest HP_Controldestdir)
  205.  
  206. ;***** Create dirs
  207. (complete 20)
  208.  
  209. (makedir (tackon HP_Controldestdir "Catalogs"))
  210. (makedir (tackon HP_Controldestdir "Docs"))
  211. (makedir (tackon HP_Controldestdir "Prefs"))
  212. (makedir (tackon HP_Controldestdir "Docs/Deutsch"))
  213.  
  214. ;***** Delete old Data and Prefs
  215. (delete (tackon HP_Controldestdir "HP_Control"))
  216. (delete (tackon HP_Controldestdir "HPControl"))
  217. ;***** Icons
  218. (complete 30)
  219.  
  220. (copyfiles
  221.         (source (tackon SourceRoot "Docs.info"))
  222.         (dest HP_Controldestdir)
  223. )
  224. (copyfiles
  225.         (source (tackon SourceRoot "HP_Control.info"))
  226.         (dest HP_Controldestdir)
  227. )
  228.  
  229. ;***** HP_Control_Main
  230. (complete 40)
  231.  
  232. (set Binary (askchoice
  233.     (prompt #HP_Control-Main)
  234.     (help #HP_Control-Main-help)
  235.     (choices
  236.     "OS2.0+"
  237.                            "OS2.1+"
  238.                            "OS3.0+"
  239.                         )
  240.     (default Binary)
  241.             )
  242. )
  243. (set Binary (Select Binary "OS20" "OS21" "OS30"))
  244.  
  245.  
  246. (copyfiles
  247.         (prompt "\n" #HP_Control-copying-Main)
  248.         (source (tackon (tackon SourceRoot "Bin") Binary) (infos))
  249.         (dest HP_Controldestdir)
  250.         (help @copyfiles-help)
  251.         (optional <force>)
  252. )
  253. (Rename (tackon HP_Controldestdir Binary) (tackon HP_Controldestdir "HPControl"))
  254. ;***** Catalogs
  255. (complete 50)
  256. (set lang (askoptions
  257.                 (prompt #HP_Control-Language)
  258.                 (help #HP_Control-Language-help)
  259.                 (choices
  260.                         "English"
  261.                         "Deutsch")
  262.                 (default -1)
  263.         )
  264. )
  265. ;***** Copy Catalogs
  266. (set n 0)
  267. (while (< n 2)
  268.         (set language (select n "english" "deutsch"))
  269.         (
  270.                 (if (IN lang n)
  271.                 (
  272.                         (makedir (cat (tackon HP_Controldestdir "Catalogs/") language))
  273.                         (copyfiles
  274.                                 (source (cat (tackon SourceRoot "Catalogs/") language))
  275.                                 (dest (cat (tackon HP_Controldestdir "Catalogs/") language))
  276.                                 (help @copyfiles-help)
  277.                                 (all)
  278.                         )
  279.                 )
  280.                 )
  281.         )
  282. (set n (+ n 1))
  283. )
  284.  
  285. ;***** DOCS
  286. (complete 60)
  287. (set docs (askoptions
  288.                         (prompt #HP_Control-Docs)
  289.                         (help @askoptions-help)
  290.                         (choices
  291.                         "Guide"
  292.                             "ASCII"
  293.  
  294.                                 )
  295.                         (default -1)
  296.                   )
  297. )
  298.  
  299. (set n 0)
  300. (while (< n 2)
  301.         (set documents (select n "HP_Control.Guide" "HP_Control.Dok"))
  302.         (
  303.                 (if (IN docs n)
  304.                 (
  305.                         (copyfiles
  306.                                 (source (cat (tackon SourceRoot "Docs/Deutsch/") documents))
  307.                                 (dest (tackon HP_Controldestdir "Docs/Deutsch/"))
  308.                                 (help @copyfiles-help)
  309. ;                               (infos)
  310.                         )
  311.                 )
  312.                 )
  313.         )
  314. (set n (+ n 1))
  315. )
  316. ;***** Select Printer
  317. (complete 70)
  318. (set Printer (askchoice
  319.     (prompt #HP_Control-Printer)
  320.     (help @askchoice-help)
  321.     (choices
  322.     "Hewlett Packard 4L"
  323.                            "Hewlett Packard 5L"
  324.     "Hewlett Packard 4"
  325.     "Hewlett Packard 4M"
  326.     "Hewlett Packard 4Si"
  327.     "Hewlett Packard 4SiMx"
  328.     "Hewlett Packard 4ML"
  329.     "Future Printer"
  330.                         )
  331.             )
  332. )
  333.  
  334. (set Printer    (Select Printer
  335.                         "HP4L"
  336.                            "HP5L"
  337.     "HP4"
  338.     "HP4M"
  339.     "HP4Si"
  340.     "HP4SiMx"
  341.     "HP4ML"
  342.     "BEST"
  343.     )
  344. )
  345. ;*+** WB_Startup ?
  346. (complete 80)
  347. (Set WBStartup (askbool
  348.     (prompt #HP_Control-WBStartup)
  349.     (help #HP_Control-Printer-help)
  350.     (Default 1)
  351.                )
  352. )
  353. ;**** ToolTypes
  354. (complete 90)
  355. (tooltype
  356.    (dest (tackon HP_Controldestdir "HP_Control"))
  357.    (noposition)
  358.    (SetDefaultTool (tackon HP_ControldestDir "HPControl"))
  359.    (SetToolType "PRINTER" Printer)
  360. )
  361. ;**** WBStartup
  362. (complete 95)
  363.  
  364.  (IF (= WBStartup 1)
  365.   (copyfiles (source (tackon HP_ControldestDir "HP_Control.info"))
  366.              (dest "SYS:WBStartup")
  367.   )
  368.  )
  369. ;***** KEYFILE
  370. (complete 97)
  371.  
  372. ;***** Startup-Sequence
  373. (complete 99)
  374.  
  375. ;***** Finished
  376. (complete 100)
  377.  
  378. (exit #HP_Control-exit)
  379.