根据 dba_errors 制定 数据库报警邮件

一. dba_errors 表

官网对这个表的说明如下：

ALL_ERRORS：describes the current errors on the stored objects accessible to the current user.

DBA_ERRORS：describes the current errors on all stored objects in the database.

USER_ERRORS： describes the current errors on the stored objects owned by the current user. This view does not display the OWNER column.

示例：

SQL> select owner,name,type,text,attribute from dba_errors;

OWNER NAME TYPE TEXT ATTRIBUTE

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

SYS PROC_ALARM_KC_SCB PROCEDURE PL/SQL: ORA-00942: table or view does not exist ERROR

SYS PROC_ALARM_KC_SCB PROCEDURE PL/SQL: SQL Statement ignored ERROR

SYS PROC_ALARM_KC_SCB PROCEDURE PLS-00201: identifier 'JOBLOG.WRITELOG' must be de ERROR

SYS PROC_ALARM_KC_SCB PROCEDURE PL/SQL: Statement ignored ERROR

SYS PROC_ALARM_KC_SCB PROCEDURE PLS-00201: identifier 'RUNLOG.ERRORLOG' must be de ERROR

SYS PROC_ALARM_KC_SCB PROCEDURE PL/SQL: Statement ignored ERROR

从这个表里面，我们可以看到数据库当前存在的错误，这些错误信息包含对象名称，类型，所有者，错误类型和错误原因。

如果该表里有这些错误，就可以调用Oracle 的发送邮件的存储过程，将这些信息发送到相关邮箱或者移动的139邮箱，该邮箱可以直接将邮件发送到手机。 这样就可以起到一个及时通知的作用。

发送邮件的存储过程参考Blog：

Oracle 发送邮件 存储过程

http://blog.csdn.net/tianlesoftware/archive/2010/08/27/5842754.aspx

二. 存储过程

/* Formatted on 2011/5/19 20:48:30 (QP5 v5.163.1008.3004) */

CREATE OR REPLACE PROCEDURE getsenterrlog

AS

email_title VARCHAR2 (100); --email 标题

email_content VARCHAR2 (1000); --email 内容

email_server VARCHAR2 (20); -- email 服务器

email_sender VARCHAR2 (20); --email 发送邮箱

email_user VARCHAR2 (20); --email 用户

email_pwd VARCHAR2 (20); --emai 密码

email_receiver1 VARCHAR2 (100); --email 接收人

email_receiver2 VARCHAR2 (100); --email 接收人

email_receiver3 VARCHAR2 (100); --email 接收人

CURSOR c1

IS

SELECT * FROM dba_errors;

BEGIN

/**

过程内容： 查询dba_errors 表，如果有错误，就发送到139邮箱

作者： Dave

时间：2011-5-19

*/

email_server := '192.168.1.100';

email_sender := '[e-mail]';

email_user := 'tianlesoftware';

email_pwd := 'pwd';

email_receiver1 :=

'[e-mail];[e-mail]';

email_receiver2 :=

'[e-mail];[e-mail]';

email_receiver3 :=

'[e-mail];[e-mail]';

FOR x IN c1

LOOP

IF x.owner = 'SYS'

THEN

email_title := x.owner|| ',s '|| x.TYPE|| ': '|| x.name|| ' report ' || x.attribute || '!';

email_content := x.text;

-- DBMS_OUTPUT.put_line (email_title);

--DBMS_OUTPUT.put_line (email_content);

procsendemail (email_content,email_title, email_sender,email_receiver1, email_server,25,1,email_user,email_pwd, '', 'bit 7');

ELSIF x.owner = 'SYSTEM'

THEN

email_title := x.owner|| ',s '|| x.TYPE|| ': '|| x.name|| ' report ' || x.attribute || '!';

email_content := x.text;

-- DBMS_OUTPUT.put_line (email_title);

--DBMS_OUTPUT.put_line (email_content);

--调用发送邮件过程

procsendemail (email_content,email_title, email_sender,email_receiver2, email_server,25,1,email_user,email_pwd, '', 'bit 7');

ELSE

email_title := x.owner|| ',s '|| x.TYPE|| ': '|| x.name|| ' report ' || x.attribute || '!';

email_content := x.text;

-- DBMS_OUTPUT.put_line (email_title);

--DBMS_OUTPUT.put_line (email_content);

procsendemail (email_content,email_title, email_sender,email_receiver3, email_server,25,1,email_user,email_pwd, '', 'bit 7');

END IF;

END LOOP;

EXCEPTION

WHEN NO_DATA_FOUND

THEN

RETURN;

WHEN OTHERS

THEN

RETURN;

END;

不同用户的错误，发送到相关的责任人，当然DBA 肯定都要收到。

三. 使用Scheduler Job 部署

Oracle 10g Scheduler 特性

http://blog.csdn.net/tianlesoftware/archive/2009/10/22/4715218.aspx

3.1 创建Job：

BEGIN

DBMS_SCHEDULER.CREATE_JOB (

job_name => 'Jobgetsenterrlog',

job_type => 'STORED_PROCEDURE',

job_action => 'GETSENTERRLOG', --调用的过程名称

start_date => sysdate,

repeat_interval => 'FREQ=MINUTELY;INTERVAL=1'); -- 每个一分钟执行一次

END;

/

关于这些参数的说明，参考上面的链接。

注意：

JOB 虽然成功创建了，但却并未执行.因为ENABLED 参数当不显式指定时，该参数的默认值为false。

3.2 启用Job

exec dbms_scheduler.enable('Jobgetsenterrlog');

3.3 停止Job

exec dbms_scheduler.disable(' Jobgetsenterrlog');

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

Blog： http://blog.csdn.net/tianlesoftware

Email: [e-mail]

DBA1 群：62697716(满); DBA2 群：62697977(满) DBA3 群：62697850(满)

DBA 超级群：63306533(满); DBA4 群： 83829929 DBA5群： 142216823

DBA6 群：158654907 聊天 群：40132017 聊天2群：69087192

--加群需要在备注说明Oracle表空间和数据文件的关系，否则拒绝申请