From 2b257a6c56d4fc35c28deb9aabd3cff4d888d450 Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Mon, 20 Jul 2009 10:54:59 +0100 Subject: [PATCH] allow to set debug with a environment variable --- xenvm/xenvm.ml | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) diff --git a/xenvm/xenvm.ml b/xenvm/xenvm.ml index ec01fc9..27033b3 100644 --- a/xenvm/xenvm.ml +++ b/xenvm/xenvm.ml @@ -783,12 +783,19 @@ let () = if !daemonize then Unixext.daemonize (); - if state.vm_cfg.debug then ( + let glob_debug = try Some (Sys.getenv "XENVM_DEBUG") with Not_found -> None in + if state.vm_cfg.debug || glob_debug <> None then ( let a = - if state.vm_cfg.output = "" then - sprintf "file:/tmp/xenvm-debug-%s" uuid - else - "file:/" ^ state.vm_cfg.output + if state.vm_cfg.debug then ( + if state.vm_cfg.output = "" then + sprintf "file:/tmp/xenvm-debug-%s" uuid + else + "file:/" ^ state.vm_cfg.output + ) else ( + match glob_debug with + | None -> assert false + | Some dbg -> dbg + ) in Logs.set_default Log.Debug [ a ]; Logs.set_default Log.Info [ a ]; -- 2.39.5