git://git.onelab.eu
/
vsys.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
oops
[vsys.git]
/
backend.ml
diff --git
a/backend.ml
b/backend.ml
index
b2c3d24
..
3d1122a
100644
(file)
--- a/
backend.ml
+++ b/
backend.ml
@@
-41,7
+41,7
@@
class backendHandler dir_root (frontend_lst: frontendHandler list) =
(** Regular expression that defines a legal script name. Filter out
* temporary files using it *)
(** Regular expression that defines a legal script name. Filter out
* temporary files using it *)
- val file_regexp = Str.regexp "^[a-zA-Z][a-zA-Z0-9_
'.''-'
]*$"
+ val file_regexp = Str.regexp "^[a-zA-Z][a-zA-Z0-9_
\.\-
]*$"
val acl_file_regexp = Str.regexp ".*acl$"
(** Somebody created a new directory *)
val acl_file_regexp = Str.regexp ".*acl$"
(** Somebody created a new directory *)
@@
-84,7
+84,7
@@
class backendHandler dir_root (frontend_lst: frontendHandler list) =
with _ ->
None
with _ ->
None
- method is_acl fname = Str.string_match acl_file_regexp fname
1
+ method is_acl fname = Str.string_match acl_file_regexp fname
0
(** Gets called every time there's an inotify event at the backend
@param dirname Name of the backend directory
(** Gets called every time there's an inotify event at the backend
@param dirname Name of the backend directory
@@
-131,7
+131,7
@@
class backendHandler dir_root (frontend_lst: frontendHandler list) =
end
end
else (* regex not matched *)
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
(** Initializer - build the initial tree based on the contents of /vsys *)
initializer