X-Git-Url: http://git.onelab.eu/?p=vsys.git;a=blobdiff_plain;f=backend.ml;h=3d1122a9a7edf57de241feb961c9c40c03d4a39e;hp=34dde6b5f383c11758cc3eecb45b5f5c631a6e49;hb=c83cc6c663566b82531b670f8b492c6ff1e1f18f;hpb=acbdd1601fcfb161089d326e7e32b74b76f441e3 diff --git a/backend.ml b/backend.ml index 34dde6b..3d1122a 100644 --- a/backend.ml +++ b/backend.ml @@ -54,7 +54,7 @@ class backendHandler dir_root (frontend_lst: frontendHandler list) = Dirwatcher.add_watch fqp [S_Create;S_Delete] func end with _ -> - fprintf logfd "Could not create %s. Looks like a slice shot itself in the foot\n" fqp;flush logfd; + logprint "Could not create %s. Looks like a slice shot itself in the foot\n" fqp; ) slice_list @@ -131,7 +131,7 @@ class backendHandler dir_root (frontend_lst: frontendHandler list) = end end else (* regex not matched *) - fprintf logfd "Rejected weird entry %s\n" fname + logprint "Rejected weird entry %s\n" fname (** Initializer - build the initial tree based on the contents of /vsys *) initializer @@ -163,7 +163,7 @@ class backendHandler dir_root (frontend_lst: frontendHandler list) = | S_REG -> this#new_script slice_list fqp | _ -> - fprintf logfd "Don't know what to do with %s\n" curfile;flush logfd + logprint "Don't know what to do with %s\n" curfile end end with _