aboutsummaryrefslogtreecommitdiffstats
path: root/tools/ocaml
diff options
context:
space:
mode:
authorIan Campbell <ian.campbell@citrix.com>2011-12-15 16:53:52 +0000
committerIan Campbell <ian.campbell@citrix.com>2011-12-15 16:53:52 +0000
commitac5298f260edaf5c07f8eb9ec329a1ee104bd664 (patch)
tree91e0451d93840ec1d91fffe581d31fa3551d5f87 /tools/ocaml
parent90299f2abd2cbb855448510138023eba3e1a4614 (diff)
downloadxen-ac5298f260edaf5c07f8eb9ec329a1ee104bd664.tar.gz
xen-ac5298f260edaf5c07f8eb9ec329a1ee104bd664.tar.bz2
xen-ac5298f260edaf5c07f8eb9ec329a1ee104bd664.zip
oxenstored: Always log something at start of day (if logging enabled at all)
Otherwise at the default level we rarely log anything at all. A completely empty log file is a good sign, but only if you know you are looking in the right place... Signed-off-by: Ian Campbell <ian.campbell@citrix.com> Acked-by: Ian Jackson <ian.jackson@eu.citrix.com> Committed-by: Ian Jackson <ian.jackson@eu.citrix.com>
Diffstat (limited to 'tools/ocaml')
-rw-r--r--tools/ocaml/xenstored/logging.ml3
-rw-r--r--tools/ocaml/xenstored/xenstored.ml3
2 files changed, 3 insertions, 3 deletions
diff --git a/tools/ocaml/xenstored/logging.ml b/tools/ocaml/xenstored/logging.ml
index 7152b4ec6c..bc3a2ea01b 100644
--- a/tools/ocaml/xenstored/logging.ml
+++ b/tools/ocaml/xenstored/logging.ml
@@ -117,6 +117,9 @@ let init_xenstored_log () =
make_logger
!xenstored_log_file !xenstored_log_nb_files !xenstored_log_nb_lines
!xenstored_log_nb_chars ignore in
+ let date = string_of_date() in
+ logger.write ("[%s|%5s|%s] Xen Storage Daemon, version %d.%d") date "" "startup"
+ Define.xenstored_major Define.xenstored_minor;
xenstored_logger := Some logger
let xenstored_logging level key (fmt: (_,_,_,_) format4) =
diff --git a/tools/ocaml/xenstored/xenstored.ml b/tools/ocaml/xenstored/xenstored.ml
index a86d558df7..fdea41a3bb 100644
--- a/tools/ocaml/xenstored/xenstored.ml
+++ b/tools/ocaml/xenstored/xenstored.ml
@@ -284,9 +284,6 @@ let _ =
Logging.init_access_log post_rotate
end;
- info "Xen Storage Daemon, version %d.%d"
- Define.xenstored_major Define.xenstored_minor;
-
let spec_fds =
(match rw_sock with None -> [] | Some x -> [ x ]) @
(match ro_sock with None -> [] | Some x -> [ x ]) @