nullnullOracle 审计audit 的技巧使用，追踪oracle后台数据库的DML动作

新手发帖，很多方面都是刚入门，有错误的地方请大家见谅，欢迎批评指正

create or replace package aa_pkg_monitor_business_sql is

procedure pro_monitor_drop_policy(object_schema in varchar2);
procedure pro_monitor_add_policy(object_schema in varchar2);

procedure pro_monitor_drop_main;
procedure pro_monitor_add_main;

end;
/
create or replace package body aa_pkg_monitor_business_sql is

/*
truncate table sys.fga_log$ ;
select t.* from dba_fga_audit_trail t;
*/
procedure pro_monitor_drop_policy(object_schema in varchar2) is

    cursor cur_del is
      select owner, table_name from dba_tables a where owner = object_schema;

begin
    for v_cur in cur_del
    loop
      begin
        dbms_fga.drop_policy(object_schema => v_cur.owner, ---
                             object_name => v_cur.table_name, ---
                             policy_name => v_cur.table_name);
      exception
        when others then
          null;
      end;
    end loop;
end pro_monitor_drop_policy;
--------------------------------------------------------------------

--------------------------------------------------------------------
procedure pro_monitor_add_policy(object_schema in varchar2) is

    cursor cur_del is
      select owner, table_name
      from   dba_tables a
      where owner = object_schema and
             a.table_name not like 'SRP%';

begin
    for v_cur in cur_del
    loop
      begin
        dbms_fga.add_policy(object_schema => v_cur.owner, --
                            object_name => v_cur.table_name, --
                            policy_name => v_cur.table_name,
                            statement_types => 'SELECT,UPDATE,DELETE,INSERT',
                            enable => true);

      exception
        when others then
          null;
      end;
    end loop;
end pro_monitor_add_policy;

每日一道理
爱，有的时候不需要山盟海誓的承诺，但她一定需要细致入微的关怀与问候；爱，有的时候不需要梁祝化蝶的悲壮，但她一定需要心有灵犀的默契与投合；爱，有的时候不需要雄飞雌从的追随，但她一定需要相濡以沫的支持与理解。

--------------------------------------------------------------------

--------------------------------------------------------------------
procedure pro_monitor_drop_main is
begin
    pro_monitor_drop_policy('CCARE');
    pro_monitor_drop_policy('CRMPUB');
    pro_monitor_drop_policy('INVENTORY');
    pro_monitor_drop_policy('ISAP');
    pro_monitor_drop_policy('OSMS');
    pro_monitor_drop_policy('ECARE');
    pro_monitor_drop_policy('CHANNEL');
end pro_monitor_drop_main;

--------------------------------------------------------------------

--------------------------------------------------------------------
--------------------------------------------------------------------

--------------------------------------------------------------------
procedure pro_monitor_add_main is
begin

    pro_monitor_drop_main;

    pro_monitor_add_policy('CCARE');
   -- pro_monitor_add_policy('CRMPUB');
    pro_monitor_add_policy('INVENTORY');
    --pro_monitor_add_policy('ISAP');
    ---pro_monitor_add_policy('OSMS');

end pro_monitor_add_main;

end;
/

文章结束给大家分享下程序员的一些笑话语录：联想——对内高价，补贴对外倾销的伟大“民族”企业。