home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 15 / MA_Cover_15.iso / internet / envwww50 / install < prev    next >
Encoding:
Text File  |  2000-05-01  |  9.1 KB  |  347 lines
  1. ; $VER: Webworld 4.4 (27.4.2000); installer script ©2000 Dietmar Eilert
  2.  
  3. (delopts "oknodelete" "force" "askuser")
  4.  
  5. (complete 0)
  6.  
  7. (onerror
  8.  
  9.     (if (> @ioerr 0)
  10.  
  11.         (
  12.             (delete "env:INSTALLOPTIONS")
  13.  
  14.             (message "An error has occurred. Please inform our support (golded@web.de)")
  15.         )
  16.     )
  17. )
  18.  
  19. ; initialize return code
  20.  
  21. (textfile (dest "env:COMPONENTINSTALL") (append "INCOMPLETE"))
  22.  
  23. ; initialize strings
  24.  
  25. (if (= @installer-version 0)
  26.  
  27.     (set #webworld_esc "")
  28.     (set #webworld_esc "p")
  29. )
  30.  
  31. (if (= @language "deutsch")
  32.  
  33.     (
  34.         (set #webworld_uninstalling    "Die Webworld-Erweiterung wird entfernt ...")
  35.  
  36.         (set #webworld_badversion      "Diese Software benötigt GoldED Studio 6 Service Pack 16+ !")
  37.  
  38.         (set #webworld_welcome         "Willkommen beim Setup für die Webworld-Erweiterung !")
  39.  
  40.         (set #webworld_install         "Installieren")
  41.  
  42.         (set #webworld_uninstall       "Entfernen")
  43.  
  44.         (set #webworld_golded          "Bitte installieren Sie GoldED, bevor Sie diese Installation ausführen !")
  45.  
  46.         (set #webworld_menu            "Sprache für Benutzeroberfläche wählen:")
  47.  
  48.         (set #webworld_bookmarks       "Favoriten werden erzeugt...")
  49.  
  50.         (set #webworld_copyright       "Mit den Webworld-Extensions wird urheberrechtlich geschützte Software und Dokumentation der folgenden Autoren installiert:\n\nTidy von Dave Raggett und Keith Blakemore-Noble (Amiga-Port), HTML 3.0 Dokumentation von Dave Raggett und Jérôme Louvel (AmigaGuide-Version) und der Bare Bones Guide to HTML von Kevin Werbach. Für die Nutzung dieser Komponenten gelten die Lizenzbedingungen der jeweiligen Autoren.")
  51.  
  52.         (set #webworld_registry        "Registry wird aktualisiert...")
  53.     )
  54.  
  55.     (
  56.         (set #webworld_uninstalling    "Uninstalling Webworld add-on ...")
  57.  
  58.         (set #webworld_badversion      "This software requires GoldED Studio 6 Service Pack 16+ !")
  59.  
  60.         (set #webworld_welcome         "Welcome to the setup for the Webworld add-on !")
  61.  
  62.         (set #webworld_install         "Install")
  63.  
  64.         (set #webworld_uninstall       "Uninstall")
  65.  
  66.         (set #webworld_golded          "Please install GoldED before you install this add-on !")
  67.  
  68.         (set #webworld_menu            "Choose language for user interface:")
  69.  
  70.         (set #webworld_bookmarks       "Generating favorites...")
  71.  
  72.         (set #webworld_copyright       "The Webworld setup installs copyrighted software and documentation by the following authors:\n\nTidy by Dave Raggett and Keith Blakemore-Noble (Amiga Port), HTML 3.0 documentation by Dave Raggett and Jérôme Louvel (AmigaGuide version) and the Bare Bones Guide to HTML by Kevin Werbach. For the use of these components, license conditions of the respective authors apply.")
  73.  
  74.         (set #webworld_registry        "Updating registry ...")
  75.     )
  76. )
  77.  
  78. (if (exists "golded:" (NOREQ))
  79.  
  80.     (
  81.         (set vernum (getversion "golded:golded"))
  82.  
  83.         (set ver (/ vernum 65536))
  84.         (set rev (- vernum (* ver 65536)))
  85.  
  86.         (set version (+ (* 1000 ver) rev))
  87.  
  88.         (if (< version 6016)
  89.  
  90.             (
  91.                 (message #webworld_badversion)
  92.             )
  93.         )
  94.  
  95.         ; read command passed in to our script in the env variable INSTALLOPTIONS
  96.  
  97.         (if (exists "env:INSTALLOPTIONS" (noreq))
  98.  
  99.             ; (getenv) may not be used without checking if var exists (installer bug)
  100.  
  101.             (
  102.                 (set webworld_installmode (getenv "INSTALLOPTIONS"))
  103.  
  104.                 (if (= webworld_installmode "UNINSTALL")
  105.  
  106.                     (working #webworld_uninstalling)
  107.  
  108.                     (message #webworld_welcome)
  109.                 )
  110.             )
  111.  
  112.             (set webworld_installmode "ASK")
  113.         )
  114.  
  115.         (if (= webworld_installmode "ASK")
  116.  
  117.             (if
  118.  
  119.                 (askbool
  120.  
  121.                     (prompt #webworld_welcome)
  122.  
  123.                     (choices
  124.  
  125.                         #webworld_install
  126.                         #webworld_uninstall
  127.                     )
  128.  
  129.                     (help @askbool_help)
  130.                 )
  131.  
  132.                 (set webworld_installmode "INSTALL")
  133.  
  134.                 (set webworld_installmode "UNINSTALL")
  135.             )
  136.         )
  137.  
  138.         (delete "env:INSTALLOPTIONS")
  139.  
  140.         ; verify directory structure
  141.  
  142.         (makedir "golded:etc")
  143.  
  144.         (makedir "golded:etc/api")
  145.  
  146.         (makedir "golded:etc/syntax")
  147.  
  148.         (makedir "golded:etc/images")
  149.  
  150.         (makedir "golded:etc/images/toolbar")
  151.  
  152.         (makedir "golded:etc/libs")
  153.  
  154.         (makedir "golded:etc/uninstall")
  155.  
  156.         (makedir "golded:add-ons")
  157.  
  158.         (if (= webworld_installmode "UNINSTALL")
  159.  
  160.             ; uninstall
  161.  
  162.             (
  163.                 ; update registry
  164.  
  165.                 (working #webworld_registry)
  166.  
  167.                 (if (exists ("golded:etc/uninstall/envWWW.bat"))
  168.  
  169.                     (
  170.                         (run "golded:add-ons/regedit/regedit script=golded:etc/uninstall/envWWW.bat label=uninstall")
  171.  
  172.                         (delete "golded:etc/uninstall/envWWW.bat")
  173.                     )
  174.  
  175.                     (run "golded:add-ons/regedit/regedit script=install.bat label=uninstall")
  176.                 )
  177.  
  178.                 (exit (quiet))
  179.             )
  180.  
  181.             ; install
  182.  
  183.             (
  184.                 (message #webworld_copyright)
  185.  
  186.                 (if (= webworld_installmode "ASK")
  187.  
  188.                     (welcome)
  189.                 )
  190.  
  191.                 (
  192.                     ; install basic files
  193.  
  194.                     (makedir "golded:add-ons/webworld")
  195.  
  196.                     (makedir "golded:add-ons/webworld/favorites")
  197.  
  198.                     ; delete obsolete files of previous installation
  199.  
  200.                     (delete "golded:add-ons/webworld/bookmarks")
  201.  
  202.                     (delete "golded:add-ons/webworld/reference")
  203.  
  204.                     (copyfiles
  205.  
  206.                         (source "webworld")
  207.  
  208.                         (dest "golded:add-ons/webworld")
  209.  
  210.                         (all)
  211.                     )
  212.  
  213.                     ; install ixemul.library (for tidy)
  214.  
  215.                     (copylib
  216.  
  217.                         (source "libs/ixemul.library")
  218.  
  219.                         (dest "golded:etc/libs")
  220.                     )
  221.  
  222.                     (if (= @language "deutsch")
  223.  
  224.                         (set language 1)
  225.                         (set language 0)
  226.                     )
  227.  
  228.                     (set language
  229.  
  230.                         (askchoice
  231.  
  232.                             (prompt #webworld_menu)
  233.  
  234.                             (choices
  235.  
  236.                                 (cat #webworld_esc "English")
  237.                                 (cat #webworld_esc "Deutsch")
  238.                             )
  239.  
  240.                             (default language)
  241.  
  242.                             (help @askchoice-help)
  243.                         )
  244.                     )
  245.  
  246.                     ; install toolbar images
  247.  
  248.                     (copyfiles
  249.  
  250.                         (source "toolbar")
  251.  
  252.                         (dest "golded:etc/images/toolbar")
  253.  
  254.                         (all)
  255.                     )
  256.  
  257.                     ; create temporary directory
  258.  
  259.                     (if (not (exists "t:" (noreq)))
  260.  
  261.                         (
  262.                             (makedir "ram:t")
  263.  
  264.                             (makeassign "t" "ram:t")
  265.                         )
  266.                     )
  267.  
  268.                     ; install languages
  269.  
  270.                     (if (= language 0)
  271.  
  272.                         (copyfiles
  273.  
  274.                             (source "presets/e/explorer.config")
  275.  
  276.                             (dest "golded:add-ons/webworld/api")
  277.                         )
  278.  
  279.                         (copyfiles
  280.  
  281.                             (source "presets/d/explorer.config")
  282.  
  283.                             (dest "golded:add-ons/webworld/api")
  284.                         )
  285.                     )
  286.  
  287.                     ; update registry
  288.  
  289.                     (working #webworld_registry)
  290.  
  291.                     (if (= language 0)
  292.  
  293.                         (run "golded:add-ons/regedit/regedit script=install.bat E")
  294.                         (run "golded:add-ons/regedit/regedit script=install.bat D")
  295.                     )
  296.  
  297.                     ; install autorun macro
  298.  
  299.                     (copyfiles
  300.  
  301.                         (source "autorun/webworld.rexx")
  302.  
  303.                         (dest "golded:etc/autorun")
  304.                     )
  305.  
  306.                     (run (cat "golded:add-ons/regedit/regedit autorunrexx golded:etc/autorun/webworld.rexx autodelete"))
  307.  
  308.                     ; prepare uninstallation
  309.  
  310.                     (copyfiles
  311.  
  312.                        (source "install.bat")
  313.  
  314.                        (dest "golded:etc/uninstall")
  315.  
  316.                        (newname "envWWW.bat")
  317.                     )
  318.  
  319.                     ; generate bookmarks
  320.  
  321.                     (working #webworld_bookmarks)
  322.  
  323.                     (run "execute golded:add-ons/webworld/developer/linklist.bat")
  324.                 )
  325.  
  326.                 ; installation completed
  327.  
  328.                 (textfile (dest "env:COMPONENTINSTALL") (append "OK"))
  329.  
  330.                 (complete 100)
  331.  
  332.                 (set @default-dest "golded:add-ons/webworld")
  333.  
  334.                 (if (= webworld_installmode "INSTALL")
  335.  
  336.                     (exit)
  337.                     (exit (quiet))
  338.                 )
  339.             )
  340.         )
  341.     )
  342.  
  343.     (message #webworld_golded)
  344. )
  345.  
  346. (exit (quiet))
  347.