imem_seco:seco_authorized/1 exported, used in imem_sec #276

K2InformaticsGmbH · Aug 5, 2019 · fa46149 · fa46149
1 parent da5cb30
commit fa46149
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 15 deletions.
diff --git a/src/imem_sec.erl b/src/imem_sec.erl
@@ -919,21 +919,8 @@ have_module_permission(SKey, Module, Operation) ->
 
 %% ------- local private security extension for sql and tables (do not export!!) ------------
 
-seco_authorized(SKey) -> 
-    case imem_meta:read(ddSeCo@, SKey) of
-        [#ddSeCo{pid=Pid, authState=authorized} = SeCo] when Pid == self() -> 
-            SeCo;
-        [#ddSeCo{pid=Pid, authState=authorized} = SeCo] ->
-            {links, Links} = erlang:process_info(self(), links),
-            case lists:member(Pid, Links) of
-                true ->
-                    SeCo;
-                false ->
-                    ?SecurityViolation({"Not logged in", SKey})
-            end;
-        [] ->               
-            ?SecurityException({"Not logged in", SKey})
-    end.   
+seco_authorized(SKey) ->
+    imem_seco:seco_authorized(SKey).
 
 % have_table_ownership(SKey, {Schema,Table,_Alias}) ->
 %     have_table_ownership(SKey, {Schema,Table});

diff --git a/src/imem_seco.erl b/src/imem_seco.erl
@@ -60,6 +60,7 @@
         , has_permission/3
         , has_permission/2
         , get_skey_pid/1
+        , seco_authorized/1
         ]).
 
 -export([ have_role/2