Thanks to visit codestin.com
Credit goes to github.com

Skip to content

fix check_object_grants bug on all_tab_privs. #713

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
jgebal merged 3 commits into from
Jul 16, 2018
Merged

fix check_object_grants bug on all_tab_privs. #713

Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
429760b
fix check_object_grants bug on all_tab_privs.
Pazus Jul 14, 2018
f0b2ddf
Fixed issue with case statement.
jgebal Jul 15, 2018
4ee9e7c
Merge branch 'develop' into bugfix/check_object_grants
jgebal Jul 16, 2018
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
9 changes: 6 additions & 3 deletions source/check_object_grants.sql
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2,6 +2,8 @@ declare
c_expected_grants constant dbmsoutput_linesarray := dbmsoutput_linesarray('DBMS_LOCK','DBMS_CRYPTO');

l_missing_grants varchar2(4000);
l_target_table varchar2(128);
l_owner_column varchar2(128);

function get_view(a_dba_view_name varchar2) return varchar2 is
l_invalid_object_name exception;
Expand All @@ -16,16 +18,18 @@ declare
end;

begin
l_target_table := get_view('dba_tab_privs');
l_owner_column := case when l_target_table like 'dba%' then 'owner' else 'table_schema' end;
execute immediate q'[
select listagg(' - '||object_name,CHR(10)) within group(order by object_name)
from (
select column_value as object_name
from table(:l_expected_grants)
minus
select table_name as object_name
from ]'||get_view('dba_tab_privs')||q'[
from ]'||l_target_table||q'[
where grantee = SYS_CONTEXT('userenv','current_schema')
and owner = 'SYS')]'
and ]'||l_owner_column||q'[ = 'SYS')]'
into l_missing_grants using c_expected_grants;
if l_missing_grants is not null then
raise_application_error(
Expand All @@ -37,4 +41,3 @@ begin
end if;
end;
/