Create wiznotes folder only when necessary

Author: hgouraud

bin/gwc/db1link.ml

@@ -1222,8 +1222,6 @@ let write_file_contents fname text =
 
 let output_wizard_notes bdir wiznotes =
   let wizdir = Filename.concat bdir "wiznotes" in
-  Mutil.remove_dir wizdir;
-  Unix.mkdir wizdir 0o755 ;
   if wiznotes <> [] then begin
     List.iter begin fun (wizid, text) ->
       let fname = Filename.concat wizdir wizid ^ ".txt" in

lib/wiznotesDisplay.ml

@@ -634,6 +634,7 @@ let connected_wizards conf base =
 
 let do_change_wizard_visibility conf base x set_vis =
   let wddir = dir conf base in
+  if not @@ Sys.file_exists wddir then Unix.mkdir wddir 0o755;
   let denying = wizard_denying wddir in
   let is_visible = not (List.mem conf.user denying) in
   if not set_vis && not is_visible || set_vis && is_visible then ()