Bugfix (se corrige bien el bug del from).

[software/sercom-old.git] / src / sc_fetch

diff --git a/src/sc_fetch b/src/sc_fetch
index e4e6021733f4ed6e0e0d71026574c37b7c29d9a2..0d63fde80958b176d2f1a7bca21b45823588a640 100755 (executable)
--- a/src/sc_fetch
+++ b/src/sc_fetch
@@ -90,7 +90,7 @@ while (1) {
     $mbox_errcount = 0;
     logs('Conectado como '.@$mconf['user']." a $mailbox", DEBUG);
     if (imap_num_msg($mbox) and $hdr = imap_headerinfo($mbox, 1)) {
-        logs(sprintf("Nuevo mail '%s' de %s", decode_header($hdr->subject), decode_header($hdr->subject)));
+        logs(sprintf("Nuevo mail '%s' de %s", decode_header($hdr->subject), decode_header($hdr->fromaddress)));
         @list($padron, $ej, $ent, $codigo) = validar_cabecera($hdr);
         if ($padron) {
             logs('Cabecera válida', DEBUG);
@@ -186,7 +186,7 @@ EOT;
 function validar_cabecera($hdr) {
     // Subject: padron nro_ej nro_entrega clave_alumno
     $subject = decode_header($hdr->subject);
-    if (preg_match('/^\s*(\d{5})\s+([1-4])\.([12])\s+(.*)$/', $subject, $m)) {
+    if (preg_match('/^\s*(\d{5})\s+(\d)\.(\d)\s+(.*)$/', $subject, $m)) {
         return array_slice($m, 1, 5);
     }
     return false;