From: Leandro Lucarella <llucax@gmail.com>
Date: Fri, 4 Feb 2005 15:19:47 +0000 (+0000)
Subject: - Nuevo nivel de logging CRITICAL (L_CRI) para concordar con python.
X-Git-Tag: svn_import~109
X-Git-Url: https://git.llucax.com/software/sercom-old.git/commitdiff_plain/25b001b7b9da1f14fffad31e137b5fda61a671ed?ds=sidebyside

- Nuevo nivel de logging CRITICAL (L_CRI) para concordar con python.
- Mínimo cambio en el formato de logging.
- Cambio de sección de configuración de DB_DataObject a DBO.
---

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