mirror of
https://github.com/netsurf-browser/netsurf
synced 2024-12-21 03:32:35 +03:00
7733ece472
NetSurf is a lot more liberal now in accepting files, so the mimetype guessing routines are sufficient without forcing CSS files to be recognised as text/css. The ability to add a tooltype to troublesome files remains.
381 lines
8.6 KiB
Plaintext
Executable File
381 lines
8.6 KiB
Plaintext
Executable File
; Installation script for NetSurf
|
|
|
|
(procedure p_append #filename #text
|
|
(set #file-path (tackon "ENVARC:launch-handler/URL" #protocol))
|
|
(set #def-file-path (tackon "ENVARC:launch-handler/URL/defaults" #protocol))
|
|
|
|
(if (exists #file-path)
|
|
(
|
|
(set #inc #file-path)
|
|
)
|
|
;else
|
|
(
|
|
(set #inc #def-file-path)
|
|
)
|
|
)
|
|
|
|
(textfile
|
|
(dest #file-path)
|
|
(include #inc)
|
|
(append #text)
|
|
)
|
|
)
|
|
|
|
(procedure p_chk_launch-handler #protocol
|
|
(if (exists (tackon "ENVARC:launch-handler/URL" #protocol))
|
|
(
|
|
(run "C:Search >T:NS_Install.tmp " (tackon "ENVARC:launch-handler/URL" #protocol) " NetSurf" (safe))
|
|
)
|
|
;else
|
|
(
|
|
(run "C:Search >T:NS_Install.tmp " (tackon "ENVARC:launch-handler/URL/defaults" #protocol) " NetSurf" (safe))
|
|
)
|
|
)
|
|
|
|
(set #has_entry (getsize "T:NS_Install.tmp"))
|
|
)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;; Script execution starts here ;;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(if (= @app-name "NetSurfAutoInstall") (set #AutoInstall 1))
|
|
(set @app-name "NetSurf")
|
|
|
|
(if (<> #AutoInstall 1) (welcome))
|
|
|
|
; (hopefully temporary) workaround for a bug in Installer:
|
|
(if (= @language "dutch") (set @askdir-help ""))
|
|
|
|
(complete 0)
|
|
|
|
(set @default-dest (getenv "AppPaths/NetSurf"))
|
|
|
|
; If env-var did not exist, this is a first time install.
|
|
; For novice users we must take care to put the files somewhere sensible.
|
|
(if (= @default-dest "")
|
|
(
|
|
; Workaround for Installer bug picking TEXTCLIP: as a sensible location
|
|
(if (= @default-dest "TextClip:") (set @default-dest "SYS:Internet"))
|
|
|
|
(if (= @user-level 0)
|
|
(
|
|
(makedir (tackon @default-dest "NetSurf") (infos))
|
|
(set @default-dest (tackon @default-dest "NetSurf"))
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(set @default-dest
|
|
(askdir
|
|
(prompt "Where would you like to install NetSurf?\n"
|
|
"(a drawer WILL NOT be created)")
|
|
(help @askdir-help)
|
|
(default @default-dest)
|
|
)
|
|
)
|
|
|
|
(complete 5)
|
|
|
|
(working "Checking existing installation...")
|
|
(set #icon-exists (exists (tackon @default-dest "NetSurf.info")))
|
|
(set osver (getversion))
|
|
(set osver (/ osver 65536))
|
|
|
|
(complete 10)
|
|
|
|
(set #user (getenv "user"))
|
|
(if (= #user "") (set #user "Default"))
|
|
|
|
(set #user-dir (tackon (tackon @default-dest "Users") #user))
|
|
(set #user-options (tackon #user-dir "Choices"))
|
|
(set #options-exist (exists #user-options))
|
|
(set #searchengines-exist (exists (tackon @default-dest "Resources/SearchEngines")))
|
|
(set #user-hotlist (tackon #user-dir "Hotlist"))
|
|
(set #hotlist-exist (exists #user-hotlist))
|
|
(set #old-hotlist (tackon @default-dest "Resources/Hotlist"))
|
|
(set #old-hotlist-exist (exists #old-hotlist))
|
|
(set #aiss-theme "")
|
|
|
|
(if (= #options-exist 0)
|
|
(
|
|
(if (exists "TBimages:" (noreq))
|
|
(set #aiss-theme "AISS")
|
|
)
|
|
|
|
(set #themename
|
|
(askchoice
|
|
(prompt "Please select theme")
|
|
(help "AISS theme requires AISS (and def_pointers for 32-bit "
|
|
"pointers), and will only be shown as an option if "
|
|
"AISS is installed.\n\n"
|
|
@askchoice-help)
|
|
(choices "Default" #aiss-theme)
|
|
(default 0)
|
|
)
|
|
)
|
|
|
|
(select #themename
|
|
(set #themeshort "Default")
|
|
(set #themeshort "AISS")
|
|
)
|
|
|
|
(set #theme (tackon "PROGDIR:Resources/Themes/" #themeshort))
|
|
)
|
|
)
|
|
|
|
(complete 15)
|
|
|
|
(if (>= osver 53)
|
|
(
|
|
(if (= #AutoInstall 1)
|
|
(
|
|
(set #addlaunchhandler 0)
|
|
)
|
|
;else
|
|
(
|
|
(set #addlaunchhandler
|
|
(askbool
|
|
(prompt "Add NetSurf to launch-handler? (recommended)")
|
|
(help "launch-handler is part of OS4.1 which opens URLs "
|
|
" by launching a web browser.\n\n"
|
|
"The installation will update the configuration of "
|
|
"OS4.1 to allow URLs to be opened by NetSurf.")
|
|
(default 1)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
;else
|
|
(
|
|
(set #addlaunchhandler 0)
|
|
)
|
|
)
|
|
|
|
(complete 20)
|
|
|
|
(set #runfixfonts
|
|
(askbool
|
|
(prompt "Installer will run FixFonts after NetSurf is installed. "
|
|
"Unless you have a *very* good reason you should not skip this step.")
|
|
(help "FixFonts corrects inconsistencies in the Amiga FONTS: structure. "
|
|
"Running it will prevent NetSurf hitting problems when the fonts are scanned.")
|
|
(default 1)
|
|
(choices "Run FixFonts" "Skip")
|
|
)
|
|
)
|
|
|
|
(complete 25)
|
|
|
|
(working "Installing NetSurf")
|
|
|
|
(if (= #AutoInstall 0)
|
|
(
|
|
(copyfiles
|
|
(prompt "Copying NetSurf...")
|
|
(help @copyfiles-help)
|
|
(source "NetSurf")
|
|
(dest @default-dest)
|
|
(newname "NetSurf")
|
|
(optional "askuser" "force" "oknodelete")
|
|
(confirm "expert")
|
|
)
|
|
)
|
|
;else
|
|
(
|
|
(run "CopyStore NetSurf" @default-dest)
|
|
)
|
|
)
|
|
|
|
(complete 40)
|
|
|
|
(if #searchengines-exist
|
|
(rename (tackon @default-dest "Resources/SearchEngines") (tackon @default-dest "Resources/SearchEngines.backup"))
|
|
)
|
|
|
|
(run "c:filenote Rexx/CloseTabs.nsrx \"Close other tabs\"")
|
|
(run "c:filenote Rexx/ViewSource.nsrx \"View source\"")
|
|
|
|
(complete 50)
|
|
|
|
(copyfiles
|
|
(prompt "Copying files")
|
|
(source "")
|
|
(choices "Resources" "Rexx" "NetSurf.guide" "NetSurf.readme")
|
|
(help @copyfiles-help)
|
|
(dest @default-dest)
|
|
(infos)
|
|
(optional "nofail")
|
|
; (all)
|
|
)
|
|
|
|
(complete 65)
|
|
|
|
(copyfiles
|
|
(prompt "Copying additional documentation")
|
|
(source "")
|
|
(pattern "(COPYING|ChangeLog)")
|
|
(help @copyfiles-help)
|
|
(dest @default-dest)
|
|
(infos)
|
|
(optional "nofail")
|
|
)
|
|
|
|
(complete 70)
|
|
|
|
(if #themeshort
|
|
(
|
|
(set #theme-icon
|
|
(tackon "Resources/Themes"
|
|
(tackon #themeshort "NetSurf.info")
|
|
)
|
|
)
|
|
|
|
(if (exists #theme-icon)
|
|
(
|
|
(copyfiles
|
|
(prompt "Copying theme icon")
|
|
(help @copyfiles-help)
|
|
(source #theme-icon)
|
|
(dest @default-dest)
|
|
)
|
|
)
|
|
)
|
|
|
|
(makedir #user-dir)
|
|
|
|
(textfile
|
|
(prompt "Setting default options")
|
|
(help @textfile-help)
|
|
(dest #user-options)
|
|
(append "theme:" #theme "\n")
|
|
(append "pubscreen_name:Workbench\n")
|
|
)
|
|
|
|
(if (= #hotlist-exist 0)
|
|
(if (= #old-hotlist-exist 1)
|
|
(
|
|
(copyfiles
|
|
(prompt "Migrating NetSurf 2.x Hotlist")
|
|
(help @copyfiles-help)
|
|
(source #old-hotlist)
|
|
(dest #user-dir)
|
|
(optional "askuser" "force" "oknodelete")
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(complete 75)
|
|
|
|
(if (= (exists "ENVARC:Sys/def_css.info") 0)
|
|
(copyfiles
|
|
(prompt "Copying default CSS icon")
|
|
(source "Resources/default.css.info")
|
|
(newname "def_css.info")
|
|
(help @copyfiles-help)
|
|
(dest "ENVARC:Sys")
|
|
(optional "nofail")
|
|
)
|
|
)
|
|
|
|
(complete 80)
|
|
|
|
(if (>= osver 53)
|
|
(if (= (exists "Rexx:NetSurf") 0)
|
|
(
|
|
(textfile
|
|
(prompt "Creating NetSurf launch helper")
|
|
(help @textfile-help)
|
|
(dest "Rexx:NetSurf")
|
|
(append "/*\n"
|
|
" * Copyright 2013 Chris Young <chris@unsatisfactorysoftware.co.uk>\n"
|
|
" *\n"
|
|
" * This file is part of NetSurf, http://www.netsurf-browser.org/\n"
|
|
" *\n"
|
|
" * NetSurf is free software; you can redistribute it and/or modify\n"
|
|
" * it under the terms of the GNU General Public License as published by\n"
|
|
" * the Free Software Foundation; version 2 of the License.\n"
|
|
" *\n"
|
|
" * NetSurf is distributed in the hope that it will be useful,\n"
|
|
" * but WITHOUT ANY WARRANTY; without even the implied warranty of\n"
|
|
" * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n"
|
|
" * GNU General Public License for more details.\n"
|
|
" *\n"
|
|
" * You should have received a copy of the GNU General Public License\n"
|
|
" * along with this program. If not, see <http://www.gnu.org/licenses/>.\n"
|
|
" */\n"
|
|
"\n"
|
|
"/* This is a convenience script for launching NetSurf from the Shell.\n"
|
|
" * If NetSurf is already running it will open the supplied URL in a new tab.\n"
|
|
" * This can be used in URL Prefs in place of directly calling APPDIR:NetSurf.\n"
|
|
" */\n"
|
|
"\n"
|
|
"options results\n"
|
|
"parse arg url\n"
|
|
"\n"
|
|
"if show('P', 'NETSURF') then do\n"
|
|
" address NETSURF 'OPEN' url 'NEWTAB'\n"
|
|
" address NETSURF 'TOFRONT'\n"
|
|
"end\n"
|
|
"else do\n"
|
|
" address command 'APPDIR:NetSurf URL' url\n"
|
|
"end\n")
|
|
)
|
|
(protect "Rexx:NetSurf" "+se")
|
|
)
|
|
)
|
|
)
|
|
|
|
(complete 85)
|
|
|
|
(if (= #addlaunchhandler 1)
|
|
(
|
|
(working "Adding NetSurf to launch-handler config")
|
|
(if (= (p_chk_launch-handler "FILE.LH") 0)
|
|
(p_append "FILE.LH" "ClientName=\"NETSURF\" ClientPath=\"Rexx:NetSurf\" CMDFORMAT=\"*\"file:///%s*\"\"")
|
|
)
|
|
|
|
(if (= (p_chk_launch-handler "HTTP.LH") 0)
|
|
(p_append "HTTP.LH" "ClientName=\"NETSURF\" ClientPath=\"Rexx:NetSurf\" CMDFORMAT=\"*\"http://%s*\"\"")
|
|
)
|
|
|
|
(if (= (p_chk_launch-handler "HTTPS.LH") 0)
|
|
(p_append "HTTPS.LH" "ClientName=\"NETSURF\" ClientPath=\"Rexx:NetSurf\" CMDFORMAT=\"*\"https://%s*\"\"")
|
|
)
|
|
|
|
(if (= (p_chk_launch-handler "WWW.LH") 0)
|
|
(p_append "WWW.LH" "ClientName=\"NETSURF\" ClientPath=\"Rexx:NetSurf\" CMDFORMAT=\"*\"http://www.%s*\"\"")
|
|
)
|
|
|
|
; (if (= (p_chk_launch-handler "FTP.LH") 0)
|
|
; (p_append "FTP.LH" "ClientName=\"NETSURF\" ClientPath=\"Rexx:NetSurf\" CMDFORMAT=\"*\"ftp://%s*\"\"")
|
|
; )
|
|
)
|
|
)
|
|
|
|
(complete 90)
|
|
|
|
(working "Running FixFonts")
|
|
|
|
(if #runfixfonts
|
|
(
|
|
(run "SYS:System/FixFonts")
|
|
)
|
|
)
|
|
|
|
(complete 100)
|
|
|
|
(if (= #AutoInstall 1)
|
|
(
|
|
(exit (quiet))
|
|
)
|
|
(
|
|
(exit)
|
|
)
|
|
)
|