89 lines
2.6 KiB
Erlang
89 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.
|
||
|
|
+
|