From 800c304d9ace52d7aa3a1c3398ac043e021da985 Mon Sep 17 00:00:00 2001 From: Sapan Bhatia Date: Wed, 18 Jun 2008 16:59:00 +0000 Subject: [PATCH] Policy change. If a script doesn't have an acl, then it doesn't show up anywhere. --- backend.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/backend.ml b/backend.ml index 4d24326..fd648bb 100644 --- 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 - | 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 @@ -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 - | 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 -- 2.43.0