# HG changeset patch
# User Thomas Gazagnaire <[email protected]>
# Date 1260356736 0
# Node ID b8fefebee7bf9a9127b67af37e68741e72c35919
# Parent 5f26cdb61a6b90a1c4e8da3126ae6f01b1de7c44
[mq]: xenstore-do-not-log-enoent
diff -r 5f26cdb61a6b -r b8fefebee7bf ocaml/xenstored/logging.ml
--- a/ocaml/xenstored/logging.ml Wed Dec 09 10:52:47 2009 +0000
+++ b/ocaml/xenstored/logging.ml Wed Dec 09 11:05:36 2009 +0000
@@ -222,9 +222,12 @@
if !log_transaction_ops && tid <> 0
then write_access_log ~tid ~con (XbOp Xb.Op.Transaction_end)
+let is_error_kind kind data =
+ Stringext.String.startswith kind data
+
let xb_answer ~tid ~con ~ty data =
let print = match ty with
- | Xb.Op.Error when data="ENOENT " -> !log_read_ops
+ | Xb.Op.Error when is_error_kind data "ENOENT" -> !log_read_ops
| Xb.Op.Error -> !log_special_ops
| Xb.Op.Watchevent -> true
| _ -> false
1 file changed, 4 insertions(+), 1 deletion(-)
ocaml/xenstored/logging.ml | 5 ++++-
# HG changeset patch
# User Thomas Gazagnaire <[email protected]>
# Date 1260356736 0
# Node ID b8fefebee7bf9a9127b67af37e68741e72c35919
# Parent 5f26cdb61a6b90a1c4e8da3126ae6f01b1de7c44
[mq]: xenstore-do-not-log-enoent
diff -r 5f26cdb61a6b -r b8fefebee7bf ocaml/xenstored/logging.ml
--- a/ocaml/xenstored/logging.ml Wed Dec 09 10:52:47 2009 +0000
+++ b/ocaml/xenstored/logging.ml Wed Dec 09 11:05:36 2009 +0000
@@ -222,9 +222,12 @@
if !log_transaction_ops && tid <> 0
then write_access_log ~tid ~con (XbOp Xb.Op.Transaction_end)
+let is_error_kind kind data =
+ Stringext.String.startswith kind data
+
let xb_answer ~tid ~con ~ty data =
let print = match ty with
- | Xb.Op.Error when data="ENOENT " -> !log_read_ops
+ | Xb.Op.Error when is_error_kind data "ENOENT" -> !log_read_ops
| Xb.Op.Error -> !log_special_ops
| Xb.Op.Watchevent -> true
| _ -> false
_______________________________________________
xen-api mailing list
[email protected]
http://lists.xensource.com/mailman/listinfo/xen-api
