Commit dbd6c7ce authored by gerd's avatar gerd

higher log levels for some dangerous messages


git-svn-id: https://gps.dynxs.de/private/svn/app-plasma/trunk@632 55289a75-7b90-4627-9e07-ffb4263930b2
parent 47ff1ed3
......@@ -153,7 +153,7 @@ let commit_phase1 commit_id journal shared_state t rev_id =
(fun e ->
Uq_engines.when_state (* OK *)
~is_error:(fun err ->
Netlog.logf `Err
Netlog.logf `Crit
"Exception from slave: %s"
(Netexn.to_string err
)
......@@ -292,7 +292,7 @@ let commit_e get_journal get_journal_mon post_commit
else (
(* If we already have too few slaves do not even start: *)
if not(shared_state#enough_slaves) then (
Netlog.logf `Err
Netlog.logf `Alert
"Transaction %s: Aborting commit because the number of slaves is \
below the minimum" name;
pc_e inodes false
......
......@@ -191,7 +191,7 @@ let monitor_next_e cm uc f =
eps_e (`Error err) cm.cm_esys in
Uq_engines.when_state (* OK *)
~is_error:(fun err ->
Netlog.logf `Err
Netlog.logf `Crit
"Exception in commit: %s" (Netexn.to_string err)
)
e1;
......
......@@ -478,7 +478,7 @@ let fs_rpc_srv_reply procname sess emit te =
"Error in %s: %s" procname (Netexn.to_string err);
`Done(`Done(code :> [Nn_state.errno | `ok of _] ))
| `Done(`Error err) ->
Netlog.logf `Err
Netlog.logf `Crit
"Error in %s: %s" procname (Netexn.to_string err);
`Done(`Done `efailed)
| `Done `Aborted ->
......@@ -505,7 +505,7 @@ let fs_rpc_srv_reply_unit ?(anyway=fun()->()) procname sess emit te =
"Error in %s: %s" procname (Netexn.to_string err);
`Done(`Done(code :> [Nn_state.errno | `ok ] ))
| `Done(`Error err) ->
Netlog.logf `Err
Netlog.logf `Crit
"Error in %s: %s" procname (Netexn.to_string err);
`Done(`Done `efailed)
| `Done `Aborted ->
......@@ -2252,7 +2252,7 @@ let proc_write_admin_table sess (key,contents) emit =
fs_rpc_srv_reply_unit "write_admin_table" sess emit e
with
| error ->
Netlog.logf `Err
Netlog.logf `Crit
"Exception in proc_write_admin_table: %s"
(Netexn.to_string error);
emit `efailed
......
......@@ -208,7 +208,7 @@ class async_exec (conn : _ async_connection) esys
f arg
with
| error ->
Netlog.logf `Err "Exception sending SQL %s: %s"
Netlog.logf `Crit "Exception sending SQL %s: %s"
query (Netexn.to_string error);
raise error in
let flush() =
......@@ -251,7 +251,7 @@ class async_exec (conn : _ async_connection) esys
self # wr_poll None None
with
| error ->
Netlog.logf `Err "Exception sending SQL %s: %s"
Netlog.logf `Crit "Exception sending SQL %s: %s"
query (Netexn.to_string error)
)
else
......@@ -368,7 +368,7 @@ class async_exec (conn : _ async_connection) esys
try
match conn#get_result with
| None ->
Netlog.logf `Err "Missing SQL result";
Netlog.logf `Crit "Missing SQL result";
final_state <-
Some(`Error (Failure "Db.async_exec: out of sync"));
self # propagate_final_state()
......@@ -411,7 +411,7 @@ class async_exec (conn : _ async_connection) esys
dlog "Last SQL result";
self # propagate_final_state()
| Some _ ->
Netlog.logf `Err "More than one SQL result!";
Netlog.logf `Crit "More than one SQL result!";
final_state <-
Some
(`Error
......@@ -422,7 +422,7 @@ class async_exec (conn : _ async_connection) esys
)
with
| error ->
Netlog.logf `Err "Db.async_exec: pg exception %s"
Netlog.logf `Crit "Db.async_exec: pg exception %s"
(Netexn.to_string error);
rd_pe # abort();
( match wr_pe_opt with
......@@ -433,7 +433,7 @@ class async_exec (conn : _ async_connection) esys
self # propagate_final_state()
method private pe_is_error error =
Netlog.logf `Err "Db.async_exec: pe exception %s"
Netlog.logf `Crit "Db.async_exec: pe exception %s"
(Netexn.to_string error);
final_state <- Some(`Error error);
self # propagate_final_state()
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment