From 25b001b7b9da1f14fffad31e137b5fda61a671ed Mon Sep 17 00:00:00 2001
From: Leandro Lucarella <llucax@gmail.com>
Date: Fri, 4 Feb 2005 15:19:47 +0000
Subject: [PATCH] =?utf8?q?-=20Nuevo=20nivel=20de=20logging=20CRITICAL=20(L?=
 =?utf8?q?=5FCRI)=20para=20concordar=20con=20python.=20-=20M=C3=ADnimo=20c?=
 =?utf8?q?ambio=20en=20el=20formato=20de=20logging.=20-=20Cambio=20de=20se?=
 =?utf8?q?cci=C3=B3n=20de=20configuraci=C3=B3n=20de=20DB=5FDataObject=20a?=
 =?utf8?q?=20DBO.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 doc/sercom.ini         |  4 ++--
 src/T/general.php      |  2 +-
 src/T/log.php          | 42 ++++++++++++++++++++++++++++++++++++++++++
 src/T/logconstants.php | 12 ++++++++++++
 4 files changed, 57 insertions(+), 3 deletions(-)
 create mode 100644 src/T/log.php
 create mode 100644 src/T/logconstants.php

diff --git a/doc/sercom.ini b/doc/sercom.ini
index 09f8e9a..c1d5946 100644
--- a/doc/sercom.ini
+++ b/doc/sercom.ini
@@ -3,7 +3,7 @@
 [general]
 ; Nivel de reporte de errores.
 error_reporting = E_COMPILE_ERROR|E_ERROR|E_CORE_ERROR
-; Nivel de loggeo: L_NON, L_ERR, L_WRN, L_INF, L_DBG, L_ALL
+; Nivel de loggeo: L_NON, L_CRI, L_ERR, L_WRN, L_INF, L_DBG, L_ALL
 ; (ver T/logconstants.php)
 loglevel = L_ALL & ~L_DBG
 ; Archivo de log (si no se especifica, se usa STDERR)
@@ -55,7 +55,7 @@ protocol = imap
 options  = novalidate-cert/ssl
 
 
-[DB_DataObject]
+[DBO]
 database = sqlite:////var/lib/sercom/corrector.sqlite
 schema_location = T/DBO/schema/
 class_location = T/DBO/
diff --git a/src/T/general.php b/src/T/general.php
index d2abd94..5121354 100644
--- a/src/T/general.php
+++ b/src/T/general.php
@@ -29,7 +29,7 @@ $DBO_options = &PEAR::getStaticProperty('DB_DataObject', 'options');
 
 // because PEAR::getstaticProperty was called with and & (get by reference)
 // this will actually set the variable inside that method (a quasi static variable)
-$DBO_options = $CONF['DB_DataObject'];
+$DBO_options = $CONF['DBO'];
 
 //unset($DBO_options);
 
diff --git a/src/T/log.php b/src/T/log.php
new file mode 100644
index 0000000..151b909
--- /dev/null
+++ b/src/T/log.php
@@ -0,0 +1,42 @@
+<?php // vim: set binary noeol et sw=4 sts=4:
+
+function logserr($str, $level = L_ERR) {
+    global $php_errormsg;
+    logs("$str ($php_errormsg)", $level);
+}
+
+function logs($str, $level = L_INF) {
+    global $LOGLEVEL, $LOGFP, $argv;
+    if ($str and $LOGLEVEL & $level) {
+        fputs($LOGFP, sprintf("%s %s[%d] %-8s %s\n", strftime('%c'),
+                basename($argv[0]), getmypid(), loglevel2str($level), $str));
+    }
+}
+
+function loglevel2str($level) {
+    $ret = array();
+    if ($level & L_CRI) {
+        $ret[] = 'CRITICAL';
+    }
+    if ($level & L_ERR) {
+        $ret[] = 'ERROR';
+    }
+    if ($level & L_WRN) {
+        $ret[] = 'WARNING';
+    }
+    if ($level & L_INF) {
+        $ret[] = 'INFO';
+    }
+    if ($level & L_DBG) {
+        $ret[] = 'DEBUG';
+    }
+    if (count($ret) == 1) {
+        return reset($ret);
+    }
+    if ($ret) {
+        return '['.join(',', $ret).']';
+    }
+    return '';
+}
+
+?>
\ No newline at end of file
diff --git a/src/T/logconstants.php b/src/T/logconstants.php
new file mode 100644
index 0000000..ba1706f
--- /dev/null
+++ b/src/T/logconstants.php
@@ -0,0 +1,12 @@
+<?php // vim: set binary noeol et sw=4 sts=4:
+
+define('L_NON', 0);
+define('L_CRI', 1);
+define('L_ERR', 1 << 1);
+define('L_WRN', 1 << 2);
+define('L_INF', 1 << 3);
+define('L_DBG', 1 << 4 );
+define('L_ALL', 0xFFFF);
+#define('L_', );
+
+?>
\ No newline at end of file
-- 
2.43.0