94ab33f7d1
systems. Let it look for some browsers that support the openURL command line protocol (using netscape by default). The BROWSER environment variable is used if set.
88 lines
2.6 KiB
Erlang
88 lines
2.6 KiB
Erlang
|
|
$FreeBSD$
|
|
|
|
--- lib/gs/src/tool_utils.erl.orig Thu Sep 4 23:01:37 2003
|
|
+++ lib/gs/src/tool_utils.erl Fri Sep 5 00:16:20 2003
|
|
@@ -27,6 +27,9 @@
|
|
-export([file_dialog/1]).
|
|
-export([notify/2, confirm/2, confirm_yesno/2, request/2]).
|
|
|
|
+%% Browser executable list (openURL command line protocol required)
|
|
+-define(BROWSERS, ["netscape", "mozilla", "MozillaFirebird", "opera"]).
|
|
+
|
|
%%----------------------------------------------------------------------
|
|
%% open_help(GS, File)
|
|
%% GS = gsobj() (GS root object returned by gs:start/0,1)
|
|
@@ -51,7 +54,7 @@
|
|
local ->
|
|
Cmd = case os:type() of
|
|
{unix,_AnyType} ->
|
|
- "netscape -remote \"openURL(file:" ++ File ++ ")\"";
|
|
+ unix_url_command("file:" ++ File);
|
|
|
|
{win32,_AnyType} ->
|
|
"start " ++ filename:nativename(File)
|
|
@@ -62,7 +65,7 @@
|
|
remote ->
|
|
Cmd = case os:type() of
|
|
{unix,_AnyType} ->
|
|
- "netscape -remote \"openURL(" ++ File ++ ")\"";
|
|
+ unix_url_command(File);
|
|
|
|
{win32,_AnyType} ->
|
|
"netscape.exe -h " ++ regexp:gsub(File,"\\\\","/")
|
|
@@ -307,3 +310,54 @@
|
|
[Last];
|
|
insert_newlines(Other) ->
|
|
Other.
|
|
+
|
|
+%% find_browser(BrowserList) => string() | false
|
|
+%% BrowserList - [string()]
|
|
+%% Given a list of basenames, find the first available executable.
|
|
+
|
|
+find_browser([]) ->
|
|
+ false;
|
|
+
|
|
+find_browser([H | T]) ->
|
|
+ case os:find_executable(H) of
|
|
+ false ->
|
|
+ find_browser(T);
|
|
+ Browser ->
|
|
+ Browser
|
|
+ end.
|
|
+
|
|
+%% unix_url_command(URL) => string()
|
|
+%% URL - string()
|
|
+%% Open an URL, using a browser which supports the openURL command
|
|
+%% line protocol. If no browser is found, the empty string will be
|
|
+%% returned.
|
|
+
|
|
+unix_url_command(URL) ->
|
|
+ Template = "BROWSER -remote \"openURL(" ++ URL ++ ")\" || BROWSER " ++ URL ++ "&",
|
|
+
|
|
+ case os:getenv("BROWSER") of
|
|
+ false ->
|
|
+ %% look for a compatible browser
|
|
+ case find_browser(?BROWSERS) of
|
|
+ false ->
|
|
+ "";
|
|
+ Browser ->
|
|
+ case regexp:gsub(Template, "BROWSER", Browser) of
|
|
+ {ok, Command, 0} ->
|
|
+ %% Template does not contain "BROWSER" placeholder
|
|
+ "";
|
|
+ {ok, Command, _} ->
|
|
+ Command
|
|
+ end
|
|
+ end;
|
|
+
|
|
+ Value ->
|
|
+ case regexp:gsub(Template, "BROWSER", Value) of
|
|
+ {ok, Command2, 0} ->
|
|
+ %% no placeholder
|
|
+ "";
|
|
+ {ok, Command2, _} ->
|
|
+ Command2
|
|
+ end
|
|
+ end.
|
|
+
|