Se saca -Werror y -pedantic de los Makefiles de ejemplo.

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

diff --git a/src/sc_fetch b/src/sc_fetch
index a1a9ef023c5201c92409bc9df191fe15499200ba..7a1e407a34450eef7118312c851a30bbbbb72c37 100755 (executable)
--- a/src/sc_fetch
+++ b/src/sc_fetch
@@ -1,10 +1,8 @@
 #!/usr/bin/php4
 <?php // vim: set binary noeol et sw=4 sts=4:
 
-// Si me pasan un directorio de bibliotecas, lo uso.
-if (@$argv[1]) {
-    set_include_path(get_include_path().':'.$argv[1]);
-}
+// Incluyo directorio del ejecutable como posible directorio de bibliotecas
+set_include_path(get_include_path().':'.dirname($argv[0]));
 
 require_once 'T/general.php';
 
@@ -163,7 +161,7 @@ imap_close($mbox);
 
 function enviar_respuesta($tipo, $to, $mensaje = '', $intento = null) {
     global $mconf;
-    $subject = $mconf['prefijo'] . 'Entrega ';
+    $subject = '[' . $mconf['prefijo'] . '] Entrega ';
     if ($tipo == R_OK) $estado = 'ACEPTADA';
     else               $estado = 'RECHAZADA';
     $subject .= $estado;
@@ -195,14 +193,14 @@ function validar_cabecera($hdr) {
 
 function preparar_entrega($intento, $mbox, $msgid, $dir) {
     logs('Acá debería verificar el cuerpo del mensaje', DEBUG);
+    $path = "$dir/" . $intento->path('intentos');
     $mail = imap_fetchstructure($mbox, $msgid);
+    if (!mkdir_p($path)) return 'No se pudo crear el directorio';
     foreach ($mail->parts as $id => $part) {
         $fname = part_filename($part);
         if ($fname) {
             logs("Escribiendo archivo '$fname' [enc={$part->encoding}]", DEBUG);
             $body = imap_fetchbody($mbox, $msgid, $id + 1);
-            $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 (part_is_source($part) $has_sources = true;