Se agrega un comentario sobre sc_dbq.

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

diff --git a/src/sc_fetch b/src/sc_fetch
index 3b569f7611e0d752bc441eeb28ade684f0126d50..5d3c16a7a3c419e07ddc8b0d2e87b57c2c1e5e01 100755 (executable)
--- a/src/sc_fetch
+++ b/src/sc_fetch
@@ -1,6 +1,9 @@
 #!/usr/bin/php4
 <?php // vim: set binary noeol et sw=4 sts=4:
 
 #!/usr/bin/php4
 <?php // vim: set binary noeol et sw=4 sts=4:
 

+// Incluyo directorio del ejecutable como posible directorio de bibliotecas
+set_include_path(get_include_path().':'.dirname($argv[0]));
+

 require_once 'T/general.php';
 
 define('R_ERR', 0);
 require_once 'T/general.php';
 
 define('R_ERR', 0);


@@ -13,7 +16,7 @@ $mconf = $CONF['mail'];
 $gconf = $CONF['general'];
 
 $mailbox = @$mconf['mailbox'];
 $gconf = $CONF['general'];
 
 $mailbox = @$mconf['mailbox'];

-switch (@$mconf['protocol'] ? $mconf['protocol'] : 'mbox') {
+switch (@$mconf['protocol']) {

     case 'mbox':
         $mailbox = $mconf['server'];
         break;
     case 'mbox':
         $mailbox = $mconf['server'];
         break;


@@ -73,7 +76,7 @@ while (1) {
     // Reseteo intervalo
     $intervalo = $gconf['intervalo'];
     // Abro mailbox o chillo.
     // Reseteo intervalo
     $intervalo = $gconf['intervalo'];
     // Abro mailbox o chillo.

-    if (!($mbox = imap_open($mailbox, @$mconf['user'], @$mconf['pass']))) {
+    if (!($mbox = @imap_open($mailbox, @$mconf['user'], @$mconf['pass']))) {

         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;
         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;


@@ -158,7 +161,7 @@ imap_close($mbox);
 
 function enviar_respuesta($tipo, $to, $mensaje = '', $intento = null) {
     global $mconf;
 
 function enviar_respuesta($tipo, $to, $mensaje = '', $intento = null) {
     global $mconf;

-    $subject = '[' . strtoupper($NAME) . '] Entrega ';
+    $subject = $mconf['prefijo'] . 'Entrega ';

     if ($tipo == R_OK) $estado = 'ACEPTADA';
     else               $estado = 'RECHAZADA';
     $subject .= $estado;
     if ($tipo == R_OK) $estado = 'ACEPTADA';
     else               $estado = 'RECHAZADA';
     $subject .= $estado;


@@ -169,6 +172,7 @@ function enviar_respuesta($tipo, $to, $mensaje = '', $intento = null) {
     $headers = <<<EOT
 From: {$mconf['from']}
 Reply-To: {$mconf['admin']}
     $headers = <<<EOT
 From: {$mconf['from']}
 Reply-To: {$mconf['admin']}

+Return-Path: {$mconf['admin']}

 X-Mailer: $NAME $VERSION
 X-Priority: 5
 EOT;
 X-Mailer: $NAME $VERSION
 X-Priority: 5
 EOT;


@@ -195,7 +199,7 @@ function preparar_entrega($intento, $mbox, $msgid, $dir) {
         if ($fname) {
             logs("Escribiendo archivo '$fname' [enc={$part->encoding}]", DEBUG);
             $body = imap_fetchbody($mbox, $msgid, $id + 1);
         if ($fname) {
             logs("Escribiendo archivo '$fname' [enc={$part->encoding}]", DEBUG);
             $body = imap_fetchbody($mbox, $msgid, $id + 1);

-            $path = "$dir/" . $intento->path();
+            $path = "$dir/" . $intento->path('intentos');

             if (!mkdir_p($path)) return 'No se pudo crear el directorio';
             if (!file_put_contents("$path/$fname", decode_body($body, $part->encoding))) return "Error al guardar el archivo $fname";
         }
             if (!mkdir_p($path)) return 'No se pudo crear el directorio';
             if (!file_put_contents("$path/$fname", decode_body($body, $part->encoding))) return "Error al guardar el archivo $fname";
         }