Trapping ora- errors in alert.log

Question

hello everyone,
A classical question that I think every DBA has encountered.
We have about 40 oracle database servers, some with 9i, others with 10g, still others with both. Some on Linux, others on Solaris.
My question is, how to trap ora- errors in the alert.log of these database and having them being sent as an email.
It's not an easy question to answer, I know. But I'd like to get ideas from your experiences in implementing the same thing in your environments.
Many thnx.
Hiruya

Answer 1

Hi,
this let you look for errors :
utl_file.get_line(vInHandle, vNewLine);
IF vNewLine like ('%ORA-%') then
Then this let you to mail the errors :
utl_smtp.mail
Here is my complete script :
SET SERVEROUT ON
DECLARE
c utl_smtp.connection;
vInHandle utl_file.file_type;
vNewLine VARCHAR2(250);
vMessage VARCHAR2(250);
I pls_integer := 0;
LC$Fic_in Varchar2(128) := 'db1ALRT.LOG'; -- a adapter sur votre configuration
LC$Dir_in Varchar(30) := 'C:\oracle\admin\db1\bdump';
PROCEDURE send_header(name VARCHAR2, header VARCHAR2) AS
BEGIN
utl_smtp.write_data(c,name ||':'|| header || UTL_TCP.CRLF);
END;
BEGIN
vInHandle := utl_file.fopen(LC$Dir_in, LC$Fic_in, 'R');
LOOP
BEGIN
utl_file.get_line(vInHandle, vNewLine);
IF vNewLine like ('%ORA-%') then
vMessage:=vMessage||chr(10)||vNewLine;
END IF;
EXCEPTION
WHEN OTHERS THEN
EXIT;
END;
END LOOP;
utl_file.fclose(vInHandle);
-----------------------SEND A MAIL---------------------------
c := utl_smtp.open_connection(‘smtpserver’,25);
utl_smtp.helo(c, ‘something.com');
utl_smtp.mail(c, [email protected]');
utl_smtp.rcpt(c, ‘[email protected]');
utl_smtp.open_data(c);
send_header('From', '"someone" <[email protected]>');
send_header('To', '"Recipient" < [email protected] >');
send_header('Subject', 'DB1 ERREUR ALERT LOG');
utl_smtp.write_data(c, UTL_TCP.CRLF ||vMessage);
utl_smtp.close_data(c);
utl_smtp.quit(c);
EXCEPTION
WHEN utl_smtp.transient_error OR utl_smtp.permanent_error THEN
BEGIN
utl_smtp.quit(c);
EXCEPTION
WHEN utl_smtp.transient_error
OR utl_smtp.permanent_error THEN
NULL;
END;
raise_application_error(-20000, SQLERRM);
END fopen;
/