Language: PL/SQL Highlight Mode: PLSQL Last Modified: March 10th, 2009
CONNECT/AS SYSDBA;CREATEORREPLACETRIGGER block_tools_from_prod
AFTER LOGON ON DATABASE
DECLARE
v_prog sys.v_$session.program%TYPE;BEGINSELECT program INTO v_prog
FROM sys.v_$session
WHERE audsid =USERENV('SESSIONID')AND audsid !=0-- Don't Check SYS ConnectionsANDROWNUM=1;-- Parallel processes will have the same AUDSID'sIFUPPER(v_prog)LIKE'%TOAD%'ORUPPER(v_prog)LIKE'%T.O.A.D%'OR-- ToadUPPER(v_prog)LIKE'%SQLNAV%'OR-- SQL NavigatorUPPER(v_prog)LIKE'%PLSQLDEV%'OR-- PLSQL DeveloperUPPER(v_prog)LIKE'%BUSOBJ%'OR-- Business ObjectsUPPER(v_prog)LIKE'%EXCEL%'-- MS-Excel plug-inTHEN
RAISE_APPLICATION_ERROR(-20000,'Development tools are not allowed here.');ENDIF;END;/
SHOW ERRORS