From 5174fa9bd71e4f671d9788707e106296638a3c63 Mon Sep 17 00:00:00 2001 From: Leandro Lucarella Date: Fri, 4 Feb 2005 20:10:15 +0000 Subject: [PATCH] =?utf8?q?-=20Nuevas=20constantes=20de=20logging=20compati?= =?utf8?q?bles=20con=20las=20de=20python=20(CRITICAL,=20ERROR,=20=20=20WAR?= =?utf8?q?NING,=20INFO=20y=20DEBUG).=20-=20Mejora=20de=20algunos=20mensaje?= =?utf8?q?s=20de=20error.=20-=20Reestructuraci=C3=B3n=20del=20archivo=20de?= =?utf8?q?=20configuraci=C3=B3n.=20Nueva=20secci=C3=B3n=20[log]=20y=20=20?= =?utf8?q?=20eliminaci=C3=B3n=20de=20algunas=20variables=20de=20configurac?= =?utf8?q?i=C3=B3n.?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- doc/sercom.ini | 20 +++++++------- src/T/Intento.php | 8 ------ src/T/general.php | 19 +++++++------ src/T/log.php | 40 +++++++++++++-------------- src/T/logconstants.php | 14 +++++----- src/sc_codegen | 17 ++++++++++++ src/sc_fetch | 61 +++++++++++++++++++++++++----------------- src/sc_test | 44 +++++++++++++++--------------- 8 files changed, 121 insertions(+), 102 deletions(-) create mode 100755 src/sc_codegen 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 " -; 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 @@ \ 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 @@ \ 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 + 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 = <<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 = << \ No newline at end of file -- 2.43.0