Hi Francesco,
Could you explaine the problem. I don't see your problem.
Now this feature run (see and test whith TestISXXXXXXEnable.sql)
Regards,
Guillaume Moulard
[EMAIL PROTECTED]
Project : LOG4PLSQL : Oracle Database Loggin tools
see : http://log4plsql.sourceforge.net/
and : http://sourceforge.net/mailarchive/forum.php?forum=log4plsql-all-info or
http://www.mail-archive.com/[EMAIL PROTECTED]
for [EMAIL PROTECTED]
-----Message d'origine-----
De : [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Envoy� : mercredi 18 f�vrier 2004 10:37
� : [EMAIL PROTECTED]
Objet : [log4plsql] Bug in isFatalEnabled, ...isDebugEnabled functions.
I found a bug in this funcion, inside pblog.sql.
-------------------------------------------------------------------
(extracted from Log4plsqlV312.zip)
FUNCTION isFatalEnabled RETURN boolean is begin return
islevelEnabled(getLevelInText('FATAL')); end;
FUNCTION isErrorEnabled RETURN boolean is begin return
islevelEnabled(getLevelInText('ERROR')); end;
FUNCTION isWarnEnabled RETURN boolean is begin return
islevelEnabled(getLevelInText('WARN')) ; end;
FUNCTION isInfoEnabled RETURN boolean is begin return
islevelEnabled(getLevelInText('INFO')) ; end;
FUNCTION isDebugEnabled RETURN boolean is begin return
islevelEnabled(getLevelInText('DEBUG')); end;
FUNCTION isFatalEnabled ( pCTX IN LOG_CTX ) RETURN boolean is begin return
islevelEnabled(pCTX, getLevelInText('FATAL')); end;
FUNCTION isErrorEnabled ( pCTX IN LOG_CTX ) RETURN boolean is begin return
islevelEnabled(pCTX, getLevelInText('ERROR')); end;
FUNCTION isWarnEnabled ( pCTX IN LOG_CTX ) RETURN boolean is begin return
islevelEnabled(pCTX, getLevelInText('WARN')) ; end;
FUNCTION isInfoEnabled ( pCTX IN LOG_CTX ) RETURN boolean is begin return
islevelEnabled(pCTX, getLevelInText('INFO')) ; end;
FUNCTION isDebugEnabled ( pCTX IN LOG_CTX ) RETURN boolean is begin return
islevelEnabled(pCTX, getLevelInText('DEBUG')); end;
-------------------------------------------------------
The function to call should be getTextInLevel inside of getLevelInText.
Regards,
Francesco
-------------------------------------------------------
SF.Net is sponsored by: Speed Start Your Linux Apps Now.
Build and deploy apps & Web services for Linux with
a free DVD software kit from IBM. Click Now!
http://ads.osdn.com/?ad_id=1356&alloc_id=3438&op=click
_______________________________________________
Log4plsql-all-info mailing list [EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/log4plsql-all-info
log4plsq : http://log4plsql.sourceforge.net
/*
Feature tested
PLOG
isXxxxxEnabled
*/
exec PLOG.PURGE;
-- return the package version
select plog.getLOG4PLSQVersion as Version from dual ;
-- return the default level
select plog.getLevelInText(plog.getLevel) from dual;
DECLARE
pCTX PLOG.LOG_CTX := PLOG.init (PLEVEL => PLOG.LALL);
BEGIN
-- test without ctx
IF Plog.isFatalEnabled THEN
Plog.FATAL('FATAL mess') ;
END IF;
IF Plog.isErrorEnabled THEN
Plog.ERROR('ERROR mess') ;
END IF;
IF Plog.isWarnEnabled THEN
Plog.WARN('WARN mess') ;
END IF;
IF Plog.isInfoEnabled THEN
Plog.INFO('INFO mess') ;
END IF;
IF Plog.isDebugEnabled THEN
Plog.DEBUG('DEBUG mess') ;
END IF;
-- test with ctx
IF Plog.isFatalEnabled(pCTX) THEN
Plog.FATAL(pCTX, 'FATAL mess test2') ;
END IF;
IF Plog.isErrorEnabled(pCTX) THEN
Plog.ERROR(pCTX, 'ERROR mess test2') ;
END IF;
IF Plog.isWarnEnabled(pCTX) THEN
Plog.WARN(pCTX, 'WARN mess test2') ;
END IF;
IF Plog.isInfoEnabled(pCTX) THEN
Plog.INFO(pCTX, 'INFO mess test2') ;
END IF;
IF Plog.isDebugEnabled(pCTX) THEN
Plog.DEBUG(pCTX, 'DEBUG mess test2') ;
END IF;
END ;
/
select * from vlog;
/*
SQL> exec PLOG.PURGE;
Proc�dure PL/SQL termin�e avec succ�s.
SQL> select plog.getLOG4PLSQVersion as Version from dual ;
VERSION
--------------------------------------------------------------------------------
3.1.2.1
SQL> select plog.getLevelInText(plog.getLevel) from dual;
PLOG.GETLEVELINTEXT(PLOG.GETLEVEL)
--------------------------------------------------------------------------------
ERROR
SQL> DECLARE
2 pCTX PLOG.LOG_CTX := PLOG.init (PLEVEL => PLOG.LALL);
3 BEGIN
4
5 -- test without ctx
6 IF Plog.isFatalEnabled THEN
7 Plog.FATAL('FATAL mess') ;
8 END IF;
9 IF Plog.isErrorEnabled THEN
10 Plog.ERROR('ERROR mess') ;
11 END IF;
12 IF Plog.isWarnEnabled THEN
13 Plog.WARN('WARN mess') ;
14 END IF;
15 IF Plog.isInfoEnabled THEN
16 Plog.INFO('INFO mess') ;
17 END IF;
18 IF Plog.isDebugEnabled THEN
19 Plog.DEBUG('DEBUG mess') ;
20 END IF;
21
22 -- test with ctx
23 IF Plog.isFatalEnabled(pCTX) THEN
24 Plog.FATAL(pCTX, 'FATAL mess test2') ;
25 END IF;
26 IF Plog.isErrorEnabled(pCTX) THEN
27 Plog.ERROR(pCTX, 'ERROR mess test2') ;
28 END IF;
29 IF Plog.isWarnEnabled(pCTX) THEN
30 Plog.WARN(pCTX, 'WARN mess test2') ;
31 END IF;
32 IF Plog.isInfoEnabled(pCTX) THEN
33 Plog.INFO(pCTX, 'INFO mess test2') ;
34 END IF;
35 IF Plog.isDebugEnabled(pCTX) THEN
36 Plog.DEBUG(pCTX, 'DEBUG mess test2') ;
37 END IF;
38
39 END ;
40 /
Proc�dure PL/SQL termin�e avec succ�s.
SQL> select * from vlog;
LOG
--------------------------------------------------------------------------------
[Fev 23, 19:12:24:89][INFO][ULOG][plog.purge][Purge by user:ULOG]
[Fev 23, 19:12:36:06][FATAL][ULOG][ anonymous block][FATAL mess]
[Fev 23, 19:12:36:06][ERROR][ULOG][ anonymous block][ERROR mess]
[Fev 23, 19:12:36:06][FATAL][ULOG][ anonymous block][FATAL mess test2]
[Fev 23, 19:12:36:07][ERROR][ULOG][ anonymous block][ERROR mess test2]
[Fev 23, 19:12:36:07][WARN][ULOG][ anonymous block][WARN mess test2]
[Fev 23, 19:12:36:07][INFO][ULOG][ anonymous block][INFO mess test2]
[Fev 23, 19:12:36:07][DEBUG][ULOG][ anonymous block][DEBUG mess test2]
8 ligne(s) s�lectionn�e(s).
SQL>
*/
