git://git.onelab.eu
/
vsys.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7698e46
)
Policy change. If a script doesn't have an acl, then it doesn't show up anywhere.
author
Sapan Bhatia
<sapanb@cs.princeton.edu>
Wed, 18 Jun 2008 16:59:00 +0000
(16:59 +0000)
committer
Sapan Bhatia
<sapanb@cs.princeton.edu>
Wed, 18 Jun 2008 16:59:00 +0000
(16:59 +0000)
backend.ml
patch
|
blob
|
history
diff --git
a/backend.ml
b/backend.ml
index
4d24326
..
fd648bb
100644
(file)
--- a/
backend.ml
+++ b/
backend.ml
@@
-109,7
+109,7
@@
class backendHandler dir_root (frontend_lst: frontendHandler list) =
let acl_filter = this#make_filter acl_fqp in
let slice_list =
match acl_filter with
let acl_filter = this#make_filter acl_fqp in
let slice_list =
match acl_filter with
- | None ->
frontend_lst
+ | None ->
[] (* No ACL *)
| Some(filter) -> List.filter (fun fe->Hashtbl.mem filter (fe#get_slice_name ())) frontend_lst
in
let is_event = list_check evlist in
| Some(filter) -> List.filter (fun fe->Hashtbl.mem filter (fe#get_slice_name ())) frontend_lst
in
let is_event = list_check evlist in
@@
-162,7
+162,7
@@
class backendHandler dir_root (frontend_lst: frontendHandler list) =
let acl_filter = this#make_filter acl_fqp in
let slice_list =
match acl_filter with
let acl_filter = this#make_filter acl_fqp in
let slice_list =
match acl_filter with
- | None ->
frontend_lst
+ | None ->
[] (*frontend_lst -> No ACL => No Show *)
| Some(filter) -> List.filter (fun fe->Hashtbl.mem filter (fe#get_slice_name ())) frontend_lst
in
if (Str.string_match file_regexp curfile 0) then
| Some(filter) -> List.filter (fun fe->Hashtbl.mem filter (fe#get_slice_name ())) frontend_lst
in
if (Str.string_match file_regexp curfile 0) then