home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Printer / TURBOPRINT3,0.DMS / in.adf / Install < prev    next >
Encoding:
Text File  |  1994-06-05  |  14.6 KB  |  586 lines
  1. ; Installation script for TURBOprint Professional 3.0
  2. ; (C) 1994 IrseeSoft
  3. ;
  4. ;
  5. ; $VER: TURBOprint Professional 3.00 (18.04.94)
  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 3.00 (18.04.94)" )
  32.  
  33.    (set #introduction
  34.       (cat "\nInstallation von TURBOprint Professional 3.0\n"
  35.              "    Copyright © 1988-1994 IrseeSoft SPCS\n\n"
  36.            "Bitte wählen Sie:\n\n"
  37.       )
  38.    )
  39.  
  40.    (set #introduction-help
  41.       (cat "Neu installieren von TURBOprint:\n"
  42.            "Die TURBOprint Software wird auf Ihre Festplatte kopiert. "
  43.            "Wählen Sie diese Option, falls noch keine ältere Version "
  44.            "von TURBOprint auf Ihrer Festplatte installiert war.\n\n"
  45.        "Update installieren:\n"
  46.            "Eine bereits auf der Platte befindliche alte Version von "
  47.            "TURBOprint wird durch TURBOprint Professional 3.0 ersetzt. "
  48.            "Dazu werden nicht mehr benötigte Dateien der alten Version "
  49.            "gelöscht.\n\n"
  50.            "Entfernen von der Platte:\n"
  51.            "Das TURBOprint Verzeichnis wird von der Platte gelöscht, "
  52.            "Einträge in der user-startup und im WBStartup-Verzeichnis "
  53.            "werden entfernt.\n\n"
  54.            "Version:\n"
  55.            "Die Versionsnummern von Kickstart, Workbench und TURBOprint "
  56.        "werden angezeigt.\n\n"
  57.       )
  58.    )
  59.  
  60.    (set #install "Neu installieren von TURBOprint")
  61.    (set #update  "Update installieren")
  62.    (set #remove  "Entfernen von der Platte")
  63.    (set #version "Versionsnummer anzeigen")
  64.  
  65. ; additional help to the built-in one
  66.    (set #generic-help
  67.       (cat "Bitte lesen Sie auch die LiesMich-Datei auf dieser Diskette!\n"
  68.       )
  69.    )
  70.  
  71.    (set #which-printer
  72.       (cat "Welche Druckertreiber sollen installiert werden?\n")
  73.    )
  74.    (set #all-printer
  75.       (cat "Sollen alle Druckertreiber installiert werden?\n")
  76.    )
  77.    (set #ask-pryes
  78.       (cat "Alle Treiber")
  79.    )
  80.    (set #ask-prno
  81.       (cat "Einzelne Treiber")
  82.    )
  83.  
  84.    (set #remove-drivers
  85.       (cat "\nSie haben 'TURBOprint von der Platte entfernen' gewählt.\n"
  86.            "Dabei wird die TURBOprint-Schublade komplett von der Festplatte "
  87.            "gelöscht. Bitte vergewissern Sie sich, ob sich darin noch "
  88.            "von Ihnen benötigte Programme oder Dateien befinden!\n"
  89.       )
  90.    )
  91.  
  92.    (set #update-drivers
  93.       (cat "\nBeim Update werden alle Dateien gelöscht, die "
  94.            "sich momentan in den Verzeichnissen "
  95.            "'Printers', 'Configs' und 'Turbo' innerhalb der TURBOprint "
  96.            "Schublade befinden.\n"
  97.            "z.B. auch alte Druckertreiber und Konfigurationsdateien.\n" 
  98.            "Falls Sie das nicht wollen, wählen Sie bitte "
  99.            "'Installation abbrechen'."
  100.       )
  101.    )
  102.  
  103.    (set #removing-drivers
  104.       (cat "\nTURBOprint wird von Ihrer Festplatte entfernt..."
  105.       )
  106.    )
  107.    (set #removing-turboprefs
  108.       (cat "Falls die startup-sequence/user-startup durch dieses "
  109.            "Installationsprogramm geändert wurde, wird dies nun "
  110.            "automatisch rückgängig gemacht."
  111.       )
  112.    )
  113.    (set #adding-turboprefs
  114.       (cat "Die user-startup Datei wird um die Befehle \n"
  115.            "'Assign TURBOprint: <pfad>:TURBOprint' und \n"
  116.            "'TURBOprint:TURBOprefs -q' erweitert."
  117.       )
  118.    )
  119.    (set #removing-startup
  120.       (cat "Falls Sie bei der letzten Installation von TURBOprint "
  121.        "Ihre startup-sequence geändert haben: \n"
  122.        "Die Befehle 'assign TURBOprint: ...' und 'TURBOprint:Turboprefs -q' sind "
  123.        "nicht mehr notwendig und sollten aus der "
  124.        "startup-sequence bzw. user-startup entfernt werden.\n"
  125.       )
  126.    )
  127.  
  128.    (set #ask-wbstart20
  129.     (cat "Sie können TURBOprint beim Rechnerstart automatisch installieren "
  130.          "lassen. Dazu wird ein Startprogramm in die WBStartup-Schublade "
  131.          "kopiert.\n")
  132.    )
  133.    (set #ask-wbstart13
  134.     (cat "Sie können TURBOprint beim Rechnerstart automatisch installieren "
  135.          "lassen. Dazu wird ein Aufruf in die User-Startup Datei "
  136.          "eingetragen.\n")
  137.    )
  138.  
  139.    (set #wbstart-help
  140.     (cat "Autostart installieren:\n"
  141.          "Beim Einschalten des Rechners oder nach einem Reset wird "
  142.          "TURBOprint automatisch geladen. Dies ist sinnvoll, wenn "
  143.          "Sie meistens TURBOprint-Treiber anstelle der Workbench-Druckertreiber "
  144.          "verwenden wollen. Um wieder auf die Workbench-Treiber "
  145.          "zurückzuschalten, verwenden Sie das Programm 'NoTurbo'.\n\n"
  146.          "Kein Autostart:\n"
  147.          "TURBOprint muß nach dem Einschalten mit Hilfe von TURBOprefs "
  148.          "geladen werden. Diese Option ist sinnvoll, wenn Sie "
  149.          "in der Regel mit den Workbench-Treibern arbeiten und nur "
  150.          "bei Bedarf auf die TURBOprint-Treiber umschalten wollen.\n\n"
  151.     )
  152.    )
  153.  
  154.    (set #ask-wbyes "Autostart installieren" )
  155.  
  156.    (set #ask-wbno "Kein Autostart" )
  157.  
  158.    (set #ask-printmanager 
  159.     (cat "Wollen Sie das Grafik Anzeige- und Druckprogramm "
  160.          "DruckManager installieren?" 
  161.     )
  162.    )
  163.  
  164.    (set #ask-pmyes "DruckManager installieren" )
  165.  
  166.    (set #ask-pmno "Nicht installieren" )
  167.  
  168.    (set #ask-pictures 
  169.     (cat "Wollen Sie die Demo-Bilder auf die Festplatte kopieren?" )
  170.    )
  171.  
  172.    (set #ask-piyes "Bilder kopieren" )
  173.  
  174.    (set #ask-pino "Nicht kopieren" )
  175.  
  176.    (set #version-info "\nInformation über Ihr System:\n")
  177.    (set #system-version-info "Kickstart %ld.%ld, Workbench %ld.%ld\n")
  178.  
  179.  
  180.    (set #installation-done
  181.       (cat "Die Installation von TURBOprint ist abgeschlossen. "
  182.       )
  183.    )
  184.  
  185. ; General initialisation of internal states, options and pre-defined
  186. ; variables go here.
  187.  
  188. (delopts askuser)
  189.  
  190. ; Check whether this system is operating with at least Workbench 2.04 (V37).
  191. ; This is needed for the WBStartup feature and the Printmanager
  192.  
  193. (set kickVersion (shiftright (getversion) 16))
  194.  
  195. (set wbVersion (shiftright (getversion "LIBS:version.library") 16))
  196.  
  197. ; set source directory
  198.  
  199. (set sourcedir (pathonly @icon))
  200.  
  201. ; remember current user level
  202.  
  203. (set old-level @user-level)
  204.  
  205. ;
  206.  
  207. (welcome)
  208.  
  209. ; Introduce ourself to the user. Query whether the software shall be
  210. ; installed/updated or removed altogether.
  211.  
  212. (set operationMode
  213.    (askchoice
  214.       (prompt #introduction)
  215.       (choices #install #update #remove #version)
  216.       (help #generic-help #introduction-help @askchoice-help)
  217.    )
  218. )
  219.  
  220. ; Show version number
  221.  
  222. (if (= operationMode 3)
  223.    (
  224.    ; Find out the version of the Kickstart and Workbench and append it to the
  225.    ; version information string.
  226.  
  227.    (run (cat (tackon sourcedir "c/Version") " >ENV:VERINFO"))
  228.    (set #version-info (cat #version-info (getenv "VERINFO")))
  229.    (delete "ENV:VERINFO")
  230.  
  231.    ; Get the version string from this installer script itself!
  232.  
  233.    (set #version-info (cat #version-info #tp-version))
  234.    (delete "ENV:TPINFO")
  235.  
  236.  
  237.    (message #version-info)
  238.    (exit (quiet))
  239.    )
  240. )
  241.  
  242. ; Get path of turboprint
  243. ; Set the prompt depending on operationMode
  244.  
  245. (if (= operationMode 0)
  246.  
  247.    (set #path-prompt (cat "In welchem Verzeichnis soll das TURBOprint-Verzeichnis "
  248.               "erstellt werden?")
  249.    )
  250. )
  251.  
  252. (if (= operationMode 1)
  253.  
  254.    (set #path-prompt (cat "Wo befindet sich das TURBOprint-Verzeichnis, "
  255.               "in welches das Update installiert werden soll?")
  256.    )
  257. )
  258.  
  259. (if (= operationMode 2)
  260.  
  261.    (set #path-prompt (cat "Wo befindet sich das TURBOprint-Verzeichnis, "
  262.               "das entfernt werden soll?")
  263.    )
  264. )
  265.  
  266.  
  267. ; ask for the destination directory
  268.  
  269. (if (not (exists "SYS:"))
  270.    (user 1)
  271. )
  272.  
  273. (set target
  274.    (askdir (prompt #path-prompt)
  275.    (help #generic-help @askdir-help)
  276.    (default "SYS:") )
  277. )
  278.  
  279. (user old-level)
  280.  
  281. ; do some cleanup if there was an old version of tp installed
  282. ; - no questions aked -
  283. ; try to remove turboprint
  284.  
  285. (run "TURBOprint:NoTurbo -q")
  286.  
  287. ; Update TURBOprint => remove contents of Printers, Configs and Turbo drawers
  288.  
  289. (if (= operationMode 1)
  290.  (
  291.    (message #update-drivers)
  292.    
  293.       (delete (tackon target "TURBOprint/TURBOprefs"))
  294.       (delete (tackon target "TURBOprint/TURBOprefs.info"))
  295.       (delete (tackon target "TURBOprint/NoTurbo"))
  296.       (delete (tackon target "TURBOprint/NoTurbo.info"))
  297.  
  298.       (run (cat (tackon sourcedir "c/Delete") " >nil: \"" (tackon target "TURBOprint/Printers/#?") "\" all"))
  299.       (run (cat (tackon sourcedir "c/Delete") " >nil: \"" (tackon target "TURBOprint/Configs/#?") "\""))
  300.       (run (cat (tackon sourcedir "c/Delete") " >nil: \"" (tackon target "TURBOprint/Turbo/#?") "\""))
  301.  )
  302. )
  303.  
  304. ; Remove TURBOprint => remove TURBOprint drawer completely
  305.  
  306. (if (= operationMode 2)
  307.  (
  308.    (message #remove-drivers)
  309.    (working #removing-drivers)
  310.  
  311.    (run (cat (tackon sourcedir "c/Delete") " >nil: \"" (tackon target "TURBOprint") "\" all"))
  312.  
  313.    ;Remove TURBOstart in WBStartup
  314.    ;if version >= 37
  315.  
  316.    (if (>= wbVersion 37)
  317.      (
  318.       (delete "sys:WBStartup/TURBOstart.info")
  319.      )
  320.    )
  321.  )
  322. )
  323.  
  324. ;If update or remove: care about startup files
  325.  
  326. (if (or (= operationMode 2) (and (= operationMode 1) (>= wbVersion 37)))
  327.  (
  328.    ;Remove startup-sequence & user-startup commands
  329.    ;if (update and version >= 37) or remove
  330.  
  331.    ;Inform user
  332.  
  333.    (message #removing-startup)
  334.  
  335.    (startup "TURBOprint"
  336.          (prompt #removing-turboprefs)
  337.          (help #generic-help @startup-help)
  338.    )
  339.  )
  340. )
  341.  
  342. ;if install or update
  343.  
  344. (if (or (= operationMode 0) (= operationMode 1) )
  345.   (
  346.  
  347. ;Make TURBOprint drawer
  348.    (makedir   (tackon target "TURBOprint") (infos))
  349.  
  350. ;Copy some stuff
  351.    (copyfiles
  352.           (help   #generic-help @copyfiles-help)
  353.           (source (tackon sourcedir "TURBOprefs"))
  354.              (dest   (tackon target "TURBOprint") )
  355.           (infos)
  356.    )
  357.  
  358.    (copyfiles
  359.           (help   #generic-help @copyfiles-help)
  360.           (source (tackon sourcedir "NoTurbo"))
  361.              (dest   (tackon target "TURBOprint") )
  362.           (infos)
  363.    )
  364.  
  365.    (copyfiles
  366.           (help   #generic-help @copyfiles-help)
  367.           (source (tackon sourcedir "LiesMich"))
  368.              (dest   (tackon target "TURBOprint") )
  369.           (infos)
  370.    )
  371.  
  372.    (copyfiles
  373.           (help   #generic-help @copyfiles-help)
  374.           (source (tackon sourcedir "Zu_Install"))
  375.              (dest   (tackon target "TURBOprint") )
  376.           (infos)
  377.    )
  378.  
  379.    (copyfiles
  380.           (help   #generic-help @copyfiles-help)
  381.           (source (tackon sourcedir "c/More"))
  382.              (dest   (tackon target "TURBOprint/c") )
  383.           (infos)
  384.    )
  385.  
  386. (run (cat (tackon sourcedir "c/Delete") " >nil: \"" (tackon target "TURBOprint/c.info") "\""))
  387.  
  388.    (copyfiles
  389.           (help   #generic-help @copyfiles-help)
  390.           (source (tackon sourcedir "Turbo"))
  391.              (dest   (tackon target "TURBOprint/Turbo"))
  392.               (all)
  393.    )
  394.    (copyfiles
  395.           (help   #generic-help @copyfiles-help)
  396.           (source (tackon sourcedir "Configs"))
  397.              (dest   (tackon target "TURBOprint/Configs"))
  398.               (all)
  399.    )
  400.  
  401. ;default: copy all printers
  402.  
  403. (set prt -1)
  404.  
  405. ;aks user if (s)he wants to copy all printers
  406.  
  407. (if (askchoice (prompt #all-printer)
  408.          (help @askchoice-help)
  409.          (choices #ask-pryes #ask-prno)
  410.          (default 0)
  411.     )
  412.  (
  413.   ;ask him which printers to copy
  414.  
  415.   (set prt (askoptions (prompt #which-printer)
  416.              (help @askoption-help)
  417.              (choices "Brother"
  418.                   "Canon"
  419.                   "Citizen"
  420.                   "Epson"
  421.                   "Facit"
  422.                   "Fargo"
  423.                   "Fujitsu"
  424.                   "Hewlett-Packard"
  425.                   "Mannesmann-Tally"
  426.                   "Nec"
  427.                   "Oki"
  428.                   "Panasonic"
  429.                   "Seikosha"
  430.                   "Siemens"
  431.                   "Star"
  432.              )
  433.              (default 0)
  434.       )
  435. )))
  436.  
  437. ;set pattern for printers
  438.  
  439. (set n 0)
  440. (set printerpat "(%")
  441. (while (set printer (select n 
  442.                       "Brother"
  443.                   "Canon"
  444.                   "Citizen"
  445.                   "Epson"
  446.                   "Facit"
  447.                   "Fargo"
  448.                   "Fujitsu"
  449.                   "HP"
  450.                   "Mannesmann-Tally"
  451.                   "Nec"
  452.                   "Oki"
  453.                   "Panasonic"
  454.                   "Seikosha"
  455.                   "Siemens"
  456.                   "Star"
  457.                   ""
  458.              )
  459.        )
  460. (
  461.     (if (IN prt n)
  462.     (
  463.     (set printerpat (cat printerpat "|" printer))
  464.     ))
  465.     (set n (+ n 1))
  466. ))
  467.  
  468. ;finally, copy the printers
  469.  
  470. (copyfiles 
  471.           (help   #generic-help @copyfiles-help)
  472.           (source (tackon sourcedir "Printers"))
  473.              (dest   (tackon target "TURBOprint/Printers"))
  474.            (pattern (cat printerpat ")"))
  475. )
  476.  
  477. ;install the print manager?
  478.  
  479. (if (>= wbVersion 37)
  480.  (if (= 0 (askchoice (prompt #ask-printmanager)
  481.          (help @askchoice-help)
  482.          (choices #ask-pmyes #ask-pmno)
  483.          (default 0)
  484.          )
  485.     )
  486.   (
  487.    (copyfiles
  488.           (help   #generic-help @copyfiles-help)
  489.           (source (tackon sourcedir "DruckManager"))
  490.              (dest   (tackon target "TURBOprint") )
  491.           (infos)
  492.    )
  493.  
  494.   )
  495.  )
  496. )
  497.  
  498. ;install the pictures?
  499.  
  500. (if (= 0 (askchoice (prompt #ask-pictures)
  501.          (help @askchoice-help)
  502.          (choices #ask-piyes #ask-pino)
  503.          (default 0)
  504.          )
  505.     )
  506.  (
  507.    (copyfiles
  508.           (help   #generic-help @copyfiles-help)
  509.           (source (tackon sourcedir "Pictures"))
  510.              (dest   (tackon target "TURBOprint/Pictures"))
  511.               (all)
  512.           (infos)
  513.    )
  514.  )
  515. )
  516.  
  517. ;install one of the two autostart options
  518.  
  519. (if (>= wbVersion 37)
  520.  (
  521.    ;OS 2.x/3.0 => wbstartup drawer
  522.    ;ask user if he/she wants to have the autostart option installed
  523.  
  524.    (if (= 0 (askchoice (prompt #ask-wbstart20)
  525.          (help #wbstart-help @askchoice-help)
  526.          (choices #ask-wbyes #ask-wbno)
  527.          (default 0)
  528.        )    )
  529.  (
  530.  ;Copy TURBOstart icon to WBStartup-drawer
  531.  
  532.    (copyfiles
  533.           (help   #generic-help @copyfiles-help)
  534.           (source (tackon sourcedir "extra/TURBOstart.info"))
  535.              (dest   "sys:WBStartup" )
  536.    )
  537.  
  538.    ;Put correct paths into TURBOstart icon
  539.  
  540.    (tooltype
  541.       (help   @tooltype-help)
  542.       (settooltype "PATH" (tackon target "TURBOprint") )
  543.           (settooltype "QUICK")
  544.           (setdefaulttool (tackon target "TURBOprint/TURBOprefs") )
  545.       (noposition)
  546.       (dest   "sys:WBStartup/TURBOstart")
  547.    )
  548.  
  549.  )
  550.  
  551.  
  552. )
  553.  )
  554. )
  555. (if (< wbVersion 37)
  556.  (
  557.    ;OS 1.2/1.3 => user-startup
  558.    ;the installer creates a user-startup if it doesn't already exist
  559.    ;ask user
  560.  
  561.    (if (= 0 (askchoice (prompt #ask-wbstart13)
  562.          (help #wbstart-help @askchoice-help)
  563.          (choices #ask-wbyes #ask-wbno)
  564.          (default 0)
  565.        )    )
  566.  (
  567.  ;Add commands to user-startup
  568.  
  569.       (startup "TURBOprint"
  570.          (command (cat "Assign TURBOprint: " (tackon target "TURBOprint") "\n"
  571.                        "TURBOprint:TURBOprefs -q")
  572.          )
  573.          (prompt #adding-turboprefs)
  574.          (help #generic-help @startup-help)
  575.       )
  576.  
  577.  )
  578. )
  579.  )
  580. )
  581.  
  582. ))
  583.  
  584. (message #installation-done)
  585. (exit (quiet))
  586.