From 32e7bc18f8002f1f6bd4b348d397afe9d7b25642 Mon Sep 17 00:00:00 2001
From: Matthias Radestock <matthias@lshift.net>
Date: Sun, 30 Nov 2008 13:47:42 +0000
Subject: write script errors to stderr

---
 src/rabbit_control.erl | 2 +-
 src/rabbit_misc.erl    | 6 ++++++
 src/rabbit_multi.erl   | 2 +-
 3 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/rabbit_control.erl b/src/rabbit_control.erl
index 3540fa90..d266ff0b 100644
--- a/src/rabbit_control.erl
+++ b/src/rabbit_control.erl
@@ -67,7 +67,7 @@ start() ->
     end.
 
 error(Format, Args) ->
-    io:format("Error: " ++ Format ++"~n", Args).
+    rabbit_misc:format_stderr("Error: " ++ Format ++"~n", Args).
 
 parse_args(["-n", NodeS | Args], Params) ->
     Node = case lists:member($@, NodeS) of
diff --git a/src/rabbit_misc.erl b/src/rabbit_misc.erl
index c1c643d3..8e852431 100644
--- a/src/rabbit_misc.erl
+++ b/src/rabbit_misc.erl
@@ -43,6 +43,7 @@
 -export([guid/0, string_guid/1, binstring_guid/1]).
 -export([dirty_read_all/1, dirty_foreach_key/2, dirty_dump_log/1]).
 -export([append_file/2]).
+-export([format_stderr/2]).
 
 -import(mnesia).
 -import(lists).
@@ -369,3 +370,8 @@ append_file(File, _, Suffix) ->
         {ok, Data} -> file:write_file([File, Suffix], Data, [append]);
         Error      -> Error
     end.
+
+format_stderr(Fmt, Args) ->
+    Port = open_port({fd, 0, 2}, [out]),
+    port_command(Port, io_lib:format(Fmt, Args)),
+    port_close(Port).
diff --git a/src/rabbit_multi.erl b/src/rabbit_multi.erl
index e2dffa29..316c41a5 100644
--- a/src/rabbit_multi.erl
+++ b/src/rabbit_multi.erl
@@ -60,7 +60,7 @@ start() ->
     end.
 
 error(Format, Args) ->
-    io:format("Error: " ++ Format ++"~n", Args).
+    rabbit_misc:format_stderr("Error: " ++ Format ++"~n", Args).
 
 parse_args([Command | Args]) ->
     {list_to_atom(Command), Args}.
-- 
cgit v1.2.1


From 1af036b9dd4d000ce555a58aac16649a1ba04955 Mon Sep 17 00:00:00 2001
From: Matthias Radestock <matthias@lshift.net>
Date: Mon, 1 Dec 2008 22:48:03 +0000
Subject: add type spec

---
 src/rabbit_misc.erl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/rabbit_misc.erl b/src/rabbit_misc.erl
index 8e852431..3c67d225 100644
--- a/src/rabbit_misc.erl
+++ b/src/rabbit_misc.erl
@@ -99,6 +99,7 @@
              'ok' | 'aborted').
 -spec(dirty_dump_log/1 :: (string()) -> 'ok' | {'error', any()}).
 -spec(append_file/2 :: (string(), string()) -> 'ok' | {'error', any()}).
+-spec(format_stderr/2 :: (string(), [any()]) -> 'true').
 
 -endif.
 
-- 
cgit v1.2.1