(** 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 *)
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
| 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 _