From: Leandro Lucarella <llucax@gmail.com>
Date: Fri, 4 Feb 2005 20:10:15 +0000 (+0000)
Subject: - Nuevas constantes de logging compatibles con las de python (CRITICAL, ERROR,
X-Git-Tag: svn_import~108
X-Git-Url: https://git.llucax.com/software/sercom-old.git/commitdiff_plain/5174fa9bd71e4f671d9788707e106296638a3c63?ds=inline

- Nuevas constantes de logging compatibles con las de python (CRITICAL, ERROR,
  WARNING, INFO y DEBUG).
- Mejora de algunos mensajes de error.
- Reestructuración del archivo de configuración. Nueva sección [log] y
  eliminación de algunas variables de configuración.
---

diff --git a/doc/sercom.ini b/doc/sercom.ini
index c1d5946..c8cc2d1 100644
--- a/doc/sercom.ini
+++ b/doc/sercom.ini
@@ -3,11 +3,6 @@
 [general]
 ; Nivel de reporte de errores.
 error_reporting = E_COMPILE_ERROR|E_ERROR|E_CORE_ERROR
-; 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)
-logfile = /var/log/sercom.log
 ; Directorio base en donde almacenar los archivos de datos (entregas, intentos)
 data_dir = /var/lib/sercom
 ; Claves para validar la identidad del alumno (a usar para crear el código)
@@ -17,15 +12,18 @@ intervalo = 5
 ; Usuario con el cual ejecutar las pruebas
 user = sercom
 
+[log]
+; Nivel de loggeo: CRITICAL, ERROR, WARNING, INFO, DEBUG
+; (ver T/logconstants.php)
+level = INFO
+; Archivo de log (si no se especifica, se usa la salida de error)
+file = 
+
 [mail]
 ; E-Mail del administrador, a donde enviar errores graves, avisos, etc
-mail_admin = luca@llucax.hn.org
+admin   = 7542@fi.uba.ar
 ; Dirección desde la cual enviar mails
-from    = "TALLER DE PROGRAMACION I <mat7542@fi.uba.ar>"
-; Descripción del programa de mail (X-Mailer)
-mailer  = "sercom v0.2"
-; Prefijo a poner en el subject
-prefijo = "[CORRECTOR]"
+from    = "TALLER DE PROGRAMACION I <7542@fi.uba.ar>"
 ; Mailbox local en donde hacer backup de los mails entregados
 ; (si está vacío no se hace backup)
 mbox_bak = /var/lib/sercom/entregas.mbox
diff --git a/src/T/Intento.php b/src/T/Intento.php
index f2716a5..6a09a07 100644
--- a/src/T/Intento.php
+++ b/src/T/Intento.php
@@ -84,14 +84,6 @@ EOT;
         $date = date('Y-m-d H:i:s', $this->llegada);
         $entrega = DB_DataObject::factory('entrega');
         $entrega->getFrom($inscripto->curso_id, $this->ejercicio, $this->entrega);
-var_dump($this);
-var_dump($inscripto->id);
-var_dump($inscripto->curso_id);
-var_dump($entrega->id);
-# 2005-01-06, 2005-02-26 20:00:00, 2005-02-03 19:48:15
-var_dump($entrega->desde, $entrega->hasta, $date);
-var_dump($entrega->desde <= $date);
-var_dump($entrega->hasta >= $date);
         if (!($entrega->desde <= $date and $entrega->hasta >= $date)) return 'El ejercicio está siendo entregado fuera de fecha';
         $intento = DB_DataObject::factory('intento');
         $intento->id_entrega = $entrega->id;
diff --git a/src/T/general.php b/src/T/general.php
index 5121354..d56d841 100644
--- a/src/T/general.php
+++ b/src/T/general.php
@@ -1,5 +1,8 @@
 <?php // vim: set binary noeol et sw=4 sts=4:
 
+$VERSION = 0.2;
+$NAME = 'sercom';
+
 define('DB_DATAOBJECT_NO_OVERLOAD', 0);
 
 // Seteo umask para que el grupo pueda leer.
@@ -9,8 +12,8 @@ umask(00027);
 require_once 'T/logconstants.php';
 
 // obtengo configuración
-foreach (array('.', '/etc', '/etc/sercom') as $dir) {
-    $cf = "$dir/sercom.ini";
+foreach (array('.', '/etc', '/etc/'.$NAME) as $dir) {
+    $cf = "$dir/$NAME.ini";
     if (is_readable($cf)) {
         if (!($CONF = @parse_ini_file($cf, true))) {
             fputs(STDERR, "No se pudo abrir archivo de configuración '$cf' ($php_errormsg)!\n");
@@ -43,18 +46,18 @@ if (isset($gconf['error_reporting'])) error_reporting($gconf['error_reporting'])
 ini_set('track_errors', true);
 
 // locale
-$lang = getenv('LANG');
-setlocale(LC_ALL, $lang);
+#$lang = getenv('LANG');
+setlocale(LC_ALL, '');
 
 // si no está seteado el nivel de logueo, uso el del archivo de config
-if (!isset($LOGLEVEL)) $LOGLEVEL = isset($gconf['loglevel']) ? $gconf['loglevel'] : L_INF;
+if (!isset($LOGLEVEL)) $LOGLEVEL = isset($CONF['log']['level']) ? $CONF['log']['level'] : INFO;
 
 // Abro file pointer para loguear.
 if (!isset($LOGFP)) {
-    if (@$gconf['logfile']) {
-        $LOGFP = fopen($gconf['logfile'], 'a');
+    if (@$CONF['log']['file']) {
+        $LOGFP = fopen($CONF['log']['file'], 'a');
         if (!$LOGFP) {
-            fputs(STDERR, "No se pudo abrir archivo de log '{$gconf['logfile']}' ($php_errormsg)!\n");
+            fputs(STDERR, "No se pudo abrir archivo de log '{$CONF['log']['file']}' ($php_errormsg)!\n");
             exit(2);
         }
     } else {
diff --git a/src/T/log.php b/src/T/log.php
index 151b909..e7c5c2d 100644
--- a/src/T/log.php
+++ b/src/T/log.php
@@ -1,11 +1,18 @@
 <?php // vim: set binary noeol et sw=4 sts=4:
 
-function logserr($str, $level = L_ERR) {
+require_once 'T/logconstants.php';
+
+function logserr($str, $level = ERROR) {
     global $php_errormsg;
     logs("$str ($php_errormsg)", $level);
 }
 
-function logs($str, $level = L_INF) {
+function logsdie($str, $level = CRITICAL) {
+    logs($str, $level);
+    die("$str.\n");
+}
+
+function logs($str, $level = INFO) {
     global $LOGLEVEL, $LOGFP, $argv;
     if ($str and $LOGLEVEL & $level) {
         fputs($LOGFP, sprintf("%s %s[%d] %-8s %s\n", strftime('%c'),
@@ -14,29 +21,22 @@ function logs($str, $level = L_INF) {
 }
 
 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 == CRITICAL) {
+        return 'CRITICAL';
     }
-    if ($level & L_INF) {
-        $ret[] = 'INFO';
+    if ($level == ERROR) {
+        return 'ERROR';
     }
-    if ($level & L_DBG) {
-        $ret[] = 'DEBUG';
+    if ($level == WARNING) {
+        return 'WARNING';
     }
-    if (count($ret) == 1) {
-        return reset($ret);
+    if ($level == INFO) {
+        return 'INFO';
     }
-    if ($ret) {
-        return '['.join(',', $ret).']';
+    if ($level == DEBUG) {
+        return 'DEBUG';
     }
-    return '';
+    return 'UNKNOWN!';
 }
 
 ?>
\ No newline at end of file
diff --git a/src/T/logconstants.php b/src/T/logconstants.php
index ba1706f..2508997 100644
--- a/src/T/logconstants.php
+++ b/src/T/logconstants.php
@@ -1,12 +1,10 @@
 <?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_', );
+// Constantes
+define('CRITICAL',  1);
+define('ERROR',     CRITICAL + 1 << 1);
+define('WARNING',   ERROR + 1 << 2);
+define('INFO',      WARNING + 1 << 3);
+define('DEBUG',     INFO + 1 << 4 );
 
 ?>
\ No newline at end of file
diff --git a/src/sc_codegen b/src/sc_codegen
new file mode 100755
index 0000000..ddf1708
--- /dev/null
+++ b/src/sc_codegen
@@ -0,0 +1,17 @@
+#!/usr/bin/php
+<?php // vim: set binary noeol et sw=4 sts=4:
+
+$LOGLEVEL = ERROR;
+
+require_once 'T/general.php';
+
+if ($argc < 2) {
+    echo "Uso: {$argv[0]} padron [clave]\n";
+    exit(1);
+}
+$claves = $CONF['general']['claves'];
+if ($argc > 2) $claves = $argv[2];
+
+echo T_generar_codigo($argv[1], $claves) . "\n";
+
+?>
\ No newline at end of file
diff --git a/src/sc_fetch b/src/sc_fetch
index 2f31525..3b569f7 100755
--- a/src/sc_fetch
+++ b/src/sc_fetch
@@ -25,7 +25,7 @@ switch (@$mconf['protocol'] ? $mconf['protocol'] : 'mbox') {
         $mailbox = "{{$mconf['server']}$port/{$mconf['protocol']}$options}$mailbox";
         break;
     default:
-        die("Error: el protocolo {$mconf['protocol']} no está soportado.\n");
+        logsdie("Error: el protocolo {$mconf['protocol']} no está soportado");
 }
 
 #$mbox = imap_open($mailbox, @$mconf['user'], @$mconf['pass']);
@@ -65,47 +65,58 @@ for ($i = 1; $i <= imap_num_msg($mbox); $i++)
 
 $claves = $gconf['claves'];
 
+// Errores tratando de conectar al mail
+$mbox_errcount = 0;
+
 // Sin cesar.
 while (1) {
     // Reseteo intervalo
     $intervalo = $gconf['intervalo'];
     // Abro mailbox o chillo.
     if (!($mbox = imap_open($mailbox, @$mconf['user'], @$mconf['pass']))) {
-        logs('No se pudo conectar al servidor ('.imap_last_error().')', L_ERR);
+        if ($mbox_errcount * $intervalo > 120) { // 2 horas sin poder conectarse
+            logs('Hace 2 horas que no se puede conectar al servidor ('.imap_last_error().')', ERROR);
+            $mbox_errcount = 0;
+        } else {
+            logs('No se pudo conectar al servidor ('.imap_last_error().')', WARNING);
+        }
+        $mbox_errcount++;
         sleep($intervalo);
+        continue;
     }
-    logs('Conectado como '.@$mconf['user']." a $mailbox", L_DBG);
+    $mbox_errcount = 0;
+    logs('Conectado como '.@$mconf['user']." a $mailbox", DEBUG);
     if (imap_num_msg($mbox) and $hdr = imap_headerinfo($mbox, 1)) {
         logs("Nuevo mail '{$hdr->subject}' de {$hdr->fromaddress}");
         @list($padron, $ej, $ent, $codigo) = validar_cabecera($hdr);
         if ($padron) {
-            logs('Cabecera válida', L_DBG);
+            logs('Cabecera válida', DEBUG);
             $intento = new T_Intento($padron, $ej, $ent);
             if (!($err = $intento->validar_entrega($codigo, $claves))) {
                 logs('Entrega aceptada ('.$intento->to_line().')');
                 if (!($err = preparar_entrega($intento, $mbox, 1, $gconf['data_dir']))) {
-                    logs('Intento preparado', L_DBG);
+                    logs('Intento preparado', DEBUG);
                     $res = $intento->hacer_entrega($hdr->fromaddress);
                     if (PEAR::isError($res)) {
-                        logs('Error al hacer entrega (' . $res->getMessage() . ')', L_ERR);
-                        enviar_respuesta(R_ERR, $hdr->fromaddress, "Error al preparar entrega:\nError en la base de datos.\n\nSe envió un mensaje al administrador avisando del problema.", $intento);
-                        enviar_respuesta(R_ERR, $mconf['mail_admin'], "Error al preparar entrega:\n" . $res->getMessage(), $intento);
+                        logs('Error al hacer entrega (' . $res->getMessage() . ')', ERROR);
+                        enviar_respuesta(R_ERR, $hdr->fromaddress, "Error interno al preparar entrega.\n\nSe envió un mensaje al administrador avisando del problema.", $intento);
+                        enviar_respuesta(R_ERR, $mconf['admin'], "Error de la DB al preparar entrega:\n" . $res->getMessage(), $intento);
                     } else {
-                        logs('Intento encolado para compilar');
+                        logs('Intento encolado para compilar', DEBUG);
                         enviar_respuesta(R_OK, $hdr->fromaddress, null, $intento);
                         guardar_mbox($mbox, 1, $hdr, @$mconf['mbox_bak']);
                     }
                 } else {
-                    logs("Error al preparar entrega ($err)", L_ERR);
-                    enviar_respuesta(R_ERR, $hdr->fromaddress, "Error al preparar entrega:\n$err", $intento);
-                    enviar_respuesta(R_ERR, $mconf['mail_admin'], "Error al preparar entrega:\n$err.\n\nSe envió un mensaje al administrador avisando del problema.", $intento);
+                    logs("Error al preparar entrega ($err)", ERROR);
+                    enviar_respuesta(R_ERR, $hdr->fromaddress, "Error interno al preparar entrega.\n\nSe envió un mensaje al administrador avisando del problema.", $intento);
+                    enviar_respuesta(R_ERR, $mconf['admin'], "Error al preparar entrega:\n$err", $intento);
                 }
             } else {
-                logs("Entrega rechazada ($err)");
+                logs("Entrega rechazada ($err)", WARNING);
                 enviar_respuesta(R_ERR, $hdr->fromaddress, $err, $intento);
             }
         } else {
-            logs('Entrega rechazada (subject inválido)');
+            logs('Entrega rechazada (subject inválido)', WARNING);
             enviar_respuesta(R_ERR, $hdr->fromaddress, "Asunto (subject) inválido.\n\n"
                     . "Recuerde que el formato del asunto es estricto:\n"
                     . "[padrón] [ejercicio].[entrega] [código]\n\n"
@@ -115,14 +126,14 @@ while (1) {
             );
         }
         imap_delete($mbox, 1);
-        logs('Mail borrado');
+        logs('Mail borrado', DEBUG);
         imap_expunge($mbox);
-        logs('Mensajes purgandos', L_DBG);
+        logs('Mensajes purgandos', DEBUG);
         $intervalo = 0; // Que tome el próximo mail enseguida.
     } else {
-        logs('No hay mail nuevo', L_DBG);
+        logs('No hay mail nuevo', DEBUG);
     }
-    logs('Cerrando conexión', L_DBG);
+    logs('Cerrando conexión', DEBUG);
     imap_close($mbox);
     sleep($intervalo);
 }
@@ -147,18 +158,18 @@ imap_close($mbox);
 
 function enviar_respuesta($tipo, $to, $mensaje = '', $intento = null) {
     global $mconf;
-    $subject = $mconf['prefijo'] . ' Entrega ';
+    $subject = '[' . strtoupper($NAME) . '] Entrega ';
     if ($tipo == R_OK) $estado = 'ACEPTADA';
     else               $estado = 'RECHAZADA';
     $subject .= $estado;
     $body .= "Estado: $estado\n";
     if ($mensaje) $body .= "\n$mensaje\n";
     if ($intento) $body .= "\n" . $intento->__toString() . "\n";
-    logs("Envío de mail '$subject' a '$to'\n$body\n", L_DBG);
+    logs("Envío de mail '$subject' a '$to'\n$body\n", DEBUG);
     $headers = <<<EOT
 From: {$mconf['from']}
-Reply-To: {$mconf['mail_admin']}
-X-Mailer: {$mconf['mailer']}
+Reply-To: {$mconf['admin']}
+X-Mailer: $NAME $VERSION
 X-Priority: 5
 EOT;
     mail($to, $subject, $body, $headers);
@@ -177,12 +188,12 @@ function validar_cabecera($hdr) {
 }
 
 function preparar_entrega($intento, $mbox, $msgid, $dir) {
-    logs('Acá debería verificar el cuerpo del mensaje', L_DBG);
+    logs('Acá debería verificar el cuerpo del mensaje', DEBUG);
     $mail = imap_fetchstructure($mbox, $msgid);
     foreach ($mail->parts as $id => $part) {
         $fname = part_filename($part);
         if ($fname) {
-            logs("Escribiendo archivo '$fname' [enc={$part->encoding}]", L_DBG);
+            logs("Escribiendo archivo '$fname' [enc={$part->encoding}]", DEBUG);
             $body = imap_fetchbody($mbox, $msgid, $id + 1);
             $path = "$dir/" . $intento->path();
             if (!mkdir_p($path)) return 'No se pudo crear el directorio';
@@ -247,7 +258,7 @@ function decode_body($body, $encoding) {
         case ENCQUOTEDPRINTABLE: return imap_qprint($body);
         case ENCOTHER:           return $body;
     }
-    logs('Encoding no reconocido.', L_ERR);
+    logs('Encoding no reconocido.', WARNING);
     return $body;
 }
 
diff --git a/src/sc_test b/src/sc_test
index 26074ed..24d2369 100755
--- a/src/sc_test
+++ b/src/sc_test
@@ -6,7 +6,7 @@ require_once 'T/general.php';
 define('R_ERR', 0);
 define('R_OK',  1);
 
-$LOGLEVEL = L_ALL;
+$LOGLEVEL = DEBUG;
 
 $gconf = $CONF['general'];
 
@@ -27,7 +27,7 @@ $intento = new T_Intento;
 // Sin cesar.
 while (1) {
     if (!($mail = $intento->proximo_a_probar())) {
-        logs('No hay intento para probar', L_DBG);
+        logs('No hay intento para probar', DEBUG);
         sleep($gconf['intervalo']);
         continue;
     }
@@ -54,12 +54,12 @@ while (1) {
         enviar_respuesta_error_log($mail, 'Error al cambiar al directorio del tp', $intento);
         continue;
     }
-    logs("Cambio de directorio '$currdir' -> '$intento_dir'", L_DBG);
-    logs('Ejecutando el comando: make -f '.escapeshellarg($makefile), L_DBG);
+    logs("Cambio de directorio '$currdir' -> '$intento_dir'", DEBUG);
+    logs('Ejecutando el comando: make -f '.escapeshellarg($makefile), DEBUG);
     if (exec_get_info('make -f '.escapeshellarg($makefile), $ret, $err, $out)) {
         if ($ret) {
             logs('Error al compilar');
-            logs("Código de retorno: $ret, mensaje: $err)", L_DBG);
+            logs("Código de retorno: $ret, mensaje: $err)", DEBUG);
             //XXX $intento->informar_compilacion(false);
             enviar_respuesta(R_ERR, $mail, "ERROR AL COMPILAR!\n\n$err\n\nCódigo de retorno: $ret\n", $intento);
             continue;
@@ -101,7 +101,7 @@ while (1) {
 
     // comienza la ejecución de casos de prueba
     while ($prueba = $intento->pedir_caso_de_prueba()) {
-        logs('Prueba: ' . $prueba->to_line(), L_DBG);
+        logs('Prueba: ' . $prueba->to_line(), DEBUG);
         // ejecuta con fork
         $pid = pcntl_fork();
         if ($pid == -1) {
@@ -111,29 +111,29 @@ while (1) {
             continue 2;
         } elseif ($pid) {
             // Estamos en el padre, controlamos el tiempo.
-            logs("En el padre (hijo: $pid)", L_DBG);
+            logs("En el padre (hijo: $pid)", DEBUG);
             // TODO controlar tiempo.
             pcntl_waitpid($pid, $exitcode);
-            logs("Fin de ejecución de caso de prueba (hijo: $pid, ret: $exitcode)", L_DBG);
+            logs("Fin de ejecución de caso de prueba (hijo: $pid, ret: $exitcode)", DEBUG);
             $stderr = false; // FIXME ver si salida de error es vacia.
             if ($exitcode or $stderr) {
-                logs('Comando ejecutado ERROR', L_DBG);
+                logs('Comando ejecutado ERROR', DEBUG);
                 if ($ret) {
                     $msg = "El programa salió con código de error $ret";
                     $msgs[] = $msg;
-                    logs($msg, L_DBG);
+                    logs($msg, DEBUG);
                 }
                 if ($stderr) {
                     $msg = "El programa imprimió mensajes en la salida de error: '$stderr'";
                     $msgs[] = $msg;
-                    logs($msg, L_DBG);
+                    logs($msg, DEBUG);
                 }
                 $msg = join("\n", $msgs);
                 $intento->resultado_de_prueba($prueba, false, $msg);
                 enviar_respuesta(R_ERR, $mail, $msg, $intento);
                 exit(0); // salgo ok del hijo
             } else { // Sin errores en la ejecución.
-                logs('Comando ejecutado OK', L_DBG);
+                logs('Comando ejecutado OK', DEBUG);
                 // TODO
                 $salidas = array();
                 foreach ($prueba->salidas as $salida) {
@@ -144,21 +144,21 @@ while (1) {
                         $salidas[$salida] = file_get_contents($salida);
                     }
                 }
-                logs('Salidas: ' . var_export($salidas, true), L_DBG);
+                logs('Salidas: ' . var_export($salidas, true), DEBUG);
                 $intento->resultado_de_prueba($prueba, true, 'Salidas: ' . var_export($salidas, true));
                 enviar_respuesta(R_ERR, $mail, 'Salidas: ' . var_export($salidas, true), $intento);
                 exit(0); // salgo ok del hijo
             }
         } else {
             // Estamos en el hijo, corremos en chroot.
-            logs('En el hijo', L_DBG);
+            logs('En el hijo', DEBUG);
             // Hago chroot.
             if (!@chroot('chroot')) {
                 $intento->resultado_de_prueba($prueba, false, 'Error al hacer chroot');
                 enviar_respuesta_error_log($mail, 'Error al hacer chroot', $intento);
                 exit(1); // salgo del hijo
             }
-            logs('Chrooteado, cwd = '.getcwd(), L_DBG);
+            logs('Chrooteado, cwd = '.getcwd(), DEBUG);
             if (!@posix_setuid($usrinfo['uid'])) {
                 $intento->resultado_de_prueba($prueba, false, "Error al cambiar al uid '{$usrinfo['uid']}'");
                 enviar_respuesta_error_log($mail, "Error al cambiar al uid '{$usrinfo['uid']}'", $intento);
@@ -167,7 +167,7 @@ while (1) {
             // TODO poner stdout y stderr en archivos para hacer diff o hacer diffs en memoria
             $stdout = null;
             if (in_array('stdout', $prueba->salidas)) $stdout = '';
-            logs('Se ejecutará: chroot chroot /tp ' . escapeshellarg($prueba->params), L_DBG);
+            logs('Se ejecutará: chroot chroot /tp ' . escapeshellarg($prueba->params), DEBUG);
             if (!pcntl_exec('/redir', array('tp', 'stdin', 'stdout', 'stderr', '/tp', '0', $prueba->params))) {
                 logserr('No se pudo ejecutar el comando');
                 $intento->resultado_de_prueba($prueba, false, 'No se pudo ejecutar el tp');
@@ -259,22 +259,22 @@ function exec_get_info($cmd, &$ret, &$err, &$out, $in = null) {
 
 function enviar_respuesta($tipo, $to, $mensaje = '', $intento = null) {
     $mconf = $GLOBALS['CONF']['mail'];
-    $subject = $mconf['prefijo'] . ' Prueba ';
+    $subject = '[' . $NAME . '] Prueba ';
     if ($tipo == R_OK) $estado = 'OK';
     else               $estado = 'ERROR';
     $subject .= $estado;
     $body .= "Estado: $estado\n";
     if ($mensaje) $body .= "\n$mensaje\n";
     if ($intento) $body .= "\n" . $intento->__toString() . "\n";
-    logs("Envío de mail '$subject' a '$to'\n$body\n", L_DBG);
+    logs("Envío de mail '$subject' a '$to'\n$body\n", DEBUG);
     $headers = <<<EOT
 From: {$mconf['from']}
-Reply-To: {$mconf['mail_admin']}
-X-Mailer: {$mconf['mailer']}
+Reply-To: {$mconf['admin']}
+X-Mailer: $NAME $VERSION
 X-Priority: 5
 EOT;
     mail($to, $subject, $body, $headers);
-    mail($GLOBALS['CONF']['mail_admin'], $subject, $body, $headers);
+    //mail($mconf['admin'], $subject, $body, $headers);
     return true;
 }
 
@@ -292,7 +292,7 @@ function chmod_own_grp($file, $mod, $own, $grp) {
 function enviar_respuesta_error_log($to, $msg = '', $intento = null) {
     logserr($msg);
     enviar_respuesta(R_ERR, $to, "ERROR: $msg\n\nSe envió un mail al administrador para revisar el problema.\n", $intento);
-    enviar_respuesta(R_ERR, $GLOBALS['CONF']['mail']['mail_admin'], $msg, $intento);
+    enviar_respuesta(R_ERR, $GLOBALS['CONF']['mail']['admin'], $msg, $intento);
 }
 
 ?>
\ No newline at end of file