监控数据库中的DDL事件

监控数据库中的DDL事件，直接获取终端的IP地址和终端名称，让你确切的知道谁在操作你的数据库！
他到底想做什么！

drop trigger LogDDLActions;
/
drop table ddl_actions;
/

-----------------------------------------------------------------
create table ddl_actions
(who varchar2(100),
what varchar2(2000),
when date,
ip_address varchar2(100),
terminal varchar2(100)
);
/

-------------------------------------------------------------------
CREATE OR REPLACE TRIGGER LogDDLActions
BEFORE DDL ON DATABASE
DECLARE
   executor     ddl_actions.who%TYPE;
   action       ddl_actions.what%TYPE;
   ipaddr       ddl_actions.ip_address%TYPE;
   tterminal    ddl_actions.terminal%TYPE;
   
BEGIN
   executor := LOGIN_USER;
   action   := SYSEVENT||' '||DICTIONARY_OBJ_TYPE||' '
      ||DICTIONARY_OBJ_OWNER||'.'||DICTIONARY_OBJ_NAME;
      
   SELECT DISTINCT TRIM(SYS_CONTEXT('userenv','ip_address')), terminal INTO ipaddr, tterminal
     FROM V_$SESSION 
    WHERE NVL(USERNAME,'NULL') = USER 
      AND TERMINAL = USERENV('TERMINAL'); 
  
   INSERT INTO ddl_actions VALUES (executor, action, SYSDATE, ipaddr, tterminal);
   
   EXCEPTION
            WHEN OTHERS THEN
            INSERT INTO ddl_actions VALUES (executor, action, SYSDATE, null, null);  
END;
/