verbose flag only affects log levels of sections "ocsigenserver:*"

Author: Jan Rochel

src/baselib/ocsigen_config.ml.in

@@ -83,18 +83,18 @@ let set_mimefile s = mimefile := s
 let () = Lwt_log.add_rule "*" Lwt_log.Warning (* without --verbose *)
 let set_verbose () =
   verbose := true;
-  Lwt_log.add_rule "*" Lwt_log.Notice
+  Lwt_log.add_rule "ocsigen:*" Lwt_log.Notice
 let set_silent () = silent := true
 let set_daemon () = set_silent (); daemon := true
 let set_veryverbose () =
   verbose := true;
   veryverbose := true;
-  Lwt_log.add_rule "*" Lwt_log.Info
+  Lwt_log.add_rule "ocsigen:*" Lwt_log.Info
 let set_debug () =
   verbose := true;
   veryverbose := true;
   debug := true;
-  Lwt_log.add_rule "*" Lwt_log.Debug
+  Lwt_log.add_rule "ocsigen:*" Lwt_log.Debug
 
 let set_minthreads i = minthreads := i
 let set_maxthreads i = maxthreads := i

src/extensions/ocsipersist-dbm/ocsipersist.ml

@@ -25,7 +25,7 @@
 open Ocsidbmtypes
 open Lwt
 
-let section = Lwt_log.Section.make "ocsipersist:dbm"
+let section = Lwt_log.Section.make "ocsigen:ocsipersist:dbm"
 (** Data are divided into stores.
     Create one store for your project, where you will save all your data.
 *)

src/extensions/ocsipersist-pgsql/ocsipersist.ml

@@ -1,6 +1,6 @@
 (** PostgreSQL (>= 9.5) backend for Ocsipersist. *)
 
-let section = Lwt_log.Section.make "ocsipersist:pgsql"
+let section = Lwt_log.Section.make "ocsigen:ocsipersist:pgsql"
 
 module Lwt_thread = struct
   include Lwt

src/extensions/ocsipersist-sqlite/ocsipersist.ml

@@ -18,7 +18,7 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 *)
 
-let section = Lwt_log.Section.make "ocsipersist:sqlite"
+let section = Lwt_log.Section.make "ocsigen:ocsipersist:sqlite"
 
 (** Module Ocsipersist: persistent data *)