home *** CD-ROM | disk | FTP | other *** search
/ Dream 41 / Amiga_Dream_41.iso / Amiga / Programmation / envWWW26.lha / envWWW26 / Install < prev    next >
Text File  |  1997-05-13  |  8KB  |  336 lines
  1. ; $VER: 1.0 All rights reserved.
  2.  
  3. (delopts "oknodelete" "force" "askuser")
  4. (complete 0)
  5.  
  6. (if (exists "GOLDED:" (NOREQ))
  7.  
  8.     (
  9.         (set vernum (getversion "golded:golded"))
  10.  
  11.         (set ver (/ vernum 65536))
  12.         (set rev (- vernum (* ver 65536)))
  13.  
  14.         (set version (+ (* 10 ver) rev))
  15.  
  16.         (if (< version 47)
  17.  
  18.             (
  19.                 (message "\nSorry, GoldED 4.7.0 or better required")
  20.  
  21.                 (exit (quiet))
  22.             )
  23.         )
  24.  
  25.         (message (cat "\n"
  26.  
  27.             "                                            \n"
  28.             "WWW Publishing Extensions                   \n"
  29.             "                                            \n"
  30.             "⌐1997 Dietmar Eilert                        \n"
  31.             "      All Rights Reserved.                  \n"
  32.             "                                            \n"
  33.             "      E-Mail: dietmar@tomate.tng.oche.de    \n"
  34.             "                                            \n"
  35.             "GoldED Release 4.7.0+ required.             \n"
  36.         ))
  37.  
  38.         (if (not (exists "golded:api"))
  39.  
  40.             (makedir "golded:api")
  41.         )
  42.  
  43.         (if (not (exists "golded:syntax"))
  44.  
  45.             (makedir "golded:syntax")
  46.         )
  47.  
  48.         (copylib
  49.  
  50.             (prompt "Install syntax parser ?")
  51.             (source "syntax/warpHTML.parser")
  52.             (dest   "golded:syntax")
  53.             (confirm)
  54.             (help @copylib-help)
  55.         )
  56.  
  57.         ; install API clients
  58.  
  59.         (copylib
  60.  
  61.             (prompt "Install API client "gifinfo.api" ?")
  62.             (source "api/gifinfo.api")
  63.             (dest   "golded:api")
  64.             (confirm)
  65.             (help @copylib-help)
  66.         )
  67.  
  68.         (copylib
  69.  
  70.             (prompt "Install API client "ISO8859.api" ?")
  71.             (source "api/ISO8859.api")
  72.             (dest   "golded:api")
  73.             (confirm)
  74.             (help @copylib-help)
  75.         )
  76.  
  77.         (copylib
  78.  
  79.             (prompt "Install API client "w3color.api" ?")
  80.             (source "api/w3color.api")
  81.             (dest   "golded:api")
  82.             (confirm)
  83.             (help @copylib-help)
  84.         )
  85.  
  86.         ; install registry editor (if not yet installed)
  87.  
  88.         (if (not (exists "golded:tools"))
  89.  
  90.             (makedir "golded:tools")
  91.         )
  92.  
  93.         (if (not (exists "golded:tools/regedit"))
  94.  
  95.             (makedir "golded:tools/regedit")
  96.         )
  97.  
  98.         (copylib
  99.  
  100.             (prompt "Install registry editor ?")
  101.             (source "bin/regedit" )
  102.             (dest   "golded:tools/regedit")
  103.             (confirm)
  104.             (help @copylib-help)
  105.         )
  106.  
  107.         ; install basic files
  108.  
  109.         (if (not (exists "golded:tools/www"))
  110.  
  111.             (makedir "golded:tools/www")
  112.         )
  113.  
  114.         (copyfiles
  115.  
  116.             (source "www")
  117.             (dest   "golded:tools/www")
  118.             (all)
  119.         )
  120.  
  121.         (set menu 0)
  122.  
  123.         (if (= @language "deutsch")
  124.  
  125.             (set menu 1)
  126.         )
  127.  
  128.         (if (= @language "svenska")
  129.  
  130.             (set menu 2)
  131.         )
  132.  
  133.         (if (= @language "espa±ol")
  134.  
  135.             (set menu 3)
  136.         )
  137.  
  138.         (set menu (askchoice
  139.  
  140.             (prompt "\nHTML menu\n")
  141.  
  142.             (choices
  143.  
  144.                 "English"
  145.                 "Deutsch"
  146.                 "Senska"
  147.                 "Espa±ol"
  148.             )
  149.  
  150.             (default menu)
  151.  
  152.             (help @askchoice-help)
  153.         ))
  154.  
  155.         (set browser (askchoice
  156.  
  157.             (prompt "\nWhat browser do you use ?\n")
  158.  
  159.             (choices
  160.  
  161.                 "None"
  162.                 "AWeb 1.2 demo     (or 100% compatible)"
  163.                 "IBrowse 1.02 demo (or 100% compatible)"
  164.                 "Voyager 1.0 demo  (or 100% compatible)"
  165.                 "Voyager-NG demo   (or 100% compatible)"
  166.                 "Other"
  167.             )
  168.  
  169.             (help (cat "\n"
  170.  
  171.                 " The browser preview function of this software   \n"
  172.                 " may not work with all browsers. It requires     \n"
  173.                 " that your browser supports a 'reload page'      \n"
  174.                 " ARexx command. List of compatible browsers:     \n"
  175.                 "                                                 \n"
  176.                 " IBrowse 1.02 demo  Supported                    \n"
  177.                 " AWeb 1.2b demo     Supported                    \n"
  178.                 " AWeb-II 2.1 demo   Not supported (no ARexx port)\n"
  179.                 " Voyager 1.0        Some support  (no reload cmd)\n"
  180.                 " Voyager-NG demo    Some support  (no reload cmd)\n"
  181.             ))
  182.         ))
  183.  
  184.         (if (= browser 0)
  185.  
  186.             (copyfiles
  187.  
  188.                 (source  "support/preview_none.ged")
  189.                 (dest    "golded:tools/www/arexx")
  190.                 (newname "preview.ged")
  191.             )
  192.         )
  193.  
  194.         (if (= browser 1)
  195.  
  196.             (copyfiles
  197.  
  198.                 (source  "support/preview_aweb.ged")
  199.                 (dest    "golded:tools/www/arexx")
  200.                 (newname "preview.ged")
  201.             )
  202.         )
  203.  
  204.         (if (= browser 2)
  205.  
  206.             (copyfiles
  207.  
  208.                 (source  "support/preview_ibrowse.ged")
  209.                 (dest    "golded:tools/www/arexx")
  210.                 (newname "preview.ged")
  211.             )
  212.         )
  213.  
  214.         (if (= browser 3)
  215.  
  216.             (copyfiles
  217.  
  218.                 (source  "support/preview_mindwalker.ged")
  219.                 (dest    "golded:tools/www/arexx")
  220.                 (newname "preview.ged")
  221.             )
  222.         )
  223.  
  224.         (if (= browser 4)
  225.  
  226.             (copyfiles
  227.  
  228.                 (source  "support/preview_voyager.ged")
  229.                 (dest    "golded:tools/www/arexx")
  230.                 (newname "preview.ged")
  231.             )
  232.         )
  233.  
  234.         (if (> browser 4)
  235.  
  236.             (copyfiles
  237.  
  238.                 (source  "support/preview_other.ged")
  239.                 (dest    "golded:tools/www/arexx")
  240.                 (newname "preview.ged")
  241.             )
  242.         )
  243.  
  244.         ; install toolbar images
  245.  
  246.         (if (exists "toolbar") (
  247.  
  248.             (set hicolor
  249.  
  250.                 (askchoice
  251.  
  252.                     (prompt "\nSelect toolbar style:\n")
  253.  
  254.                     (choices
  255.  
  256.                         "4  colors"
  257.                         "8+ colors"
  258.                     )
  259.  
  260.                     (default 1)
  261.  
  262.                     (help (cat "\n"
  263.  
  264.                         " You can use both styles on all screens. The 4\n"
  265.                         " color style has been optimized for 4-color   \n"
  266.                         " screens. The 8+ style has been optimized for \n"
  267.                         " screens with eight or more colors.           \n"
  268.                     ))
  269.                 )
  270.             )
  271.  
  272.             (if (not (exists "golded:toolbar"))
  273.  
  274.                 (makedir "golded:toolbar")
  275.             )
  276.  
  277.             (if (not (exists "golded:toolbar/words"))
  278.  
  279.                 (makedir "golded:toolbar/words")
  280.             )
  281.  
  282.             (copyfiles
  283.  
  284.                 (source "toolbar")
  285.                 (dest   "golded:toolbar")
  286.                 (all)
  287.             )
  288.  
  289.             (if (= hicolor 1)
  290.  
  291.                 (copyfiles
  292.  
  293.                     (source "toolbar16")
  294.                     (dest   "golded:toolbar")
  295.                     (nogauge)
  296.                     (all)
  297.                 )
  298.             )
  299.         ))
  300.  
  301.         ; update registry
  302.  
  303.         (working "Updating registry...")
  304.  
  305.         (if (= menu 0)
  306.  
  307.             (run "golded:tools/regedit/regedit script=install_e.bat")
  308.         )
  309.  
  310.         (if (= menu 1)
  311.  
  312.             (run "golded:tools/regedit/regedit script=install_d.bat")
  313.         )
  314.  
  315.         (if (= menu 2)
  316.  
  317.             (run "golded:tools/regedit/regedit script=install_s.bat")
  318.         )
  319.  
  320.         (if (= menu 3)
  321.  
  322.             (run "golded:tools/regedit/regedit script=install_es.bat")
  323.         )
  324.     )
  325.  
  326.     (message (cat "\n"
  327.  
  328.         "Please install GoldED before attempting to\n"
  329.         "install this client.                      \n"
  330.     ))
  331. )
  332.  
  333. (exit (quiet))
  334.  
  335. (welcome)
  336.