/cli-sender.php

<?php
/*
 *  Copyright (C) 2012 Platoniq y Fundación Fuentes Abiertas (see README for details)
 *	This file is part of Goteo.
 *
 *  Goteo is free software: you can redistribute it and/or modify
 *  it under the terms of the GNU Affero General Public License as published by
 *  the Free Software Foundation, either version 3 of the License, or
 *  (at your option) any later version.
 *
 *  Goteo is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU Affero General Public License for more details.
 *
 *  You should have received a copy of the GNU Affero General Public License
 *  along with Goteo.  If not, see <http://www.gnu.org/licenses/agpl.txt>.
 *
 */

/**
* Este es el proceso que va procesando envios masivos
* version linea de comandos
**/

if (PHP_SAPI !== 'cli') {
    die("Acceso solo por linea de comandos!");
}
error_reporting(E_ALL & ~E_NOTICE & ~E_STRICT);
ini_set("display_errors",1);


define("MAIL_MAX_RATE", 14); // envios por segundo máximos
define("MAIL_MAX_CONCURRENCY", 50); //numero máximo de procesos simultaneos para enviar mail (pero no se llegará a esta cifra si el ratio de envios es mayor que MAIL_MAX_RATE)
define("PHP_CLI", "/usr/bin/php"); //ruta al ejecutable PHP
define("LOCK_FILE", sys_get_temp_dir() . '/' . basename(__FILE__) . '.lock');
// set Lang
define('LANG', 'es');

// Comprueba que no se este ejecutando
exec("ps x | grep " . escapeshellarg(escapeshellcmd(basename(__FILE__))) . " | grep -v grep | awk '{ print $1 }'", $commands);

if (count($commands)>1) {
    //echo `ps x`;
    die("Ya existe una copia de " . basename(__FILE__) . " en ejecución!\n");
}

//system timezone
date_default_timezone_set("Europe/Madrid");

use Goteo\Core\Resource,
    Goteo\Core\Error,
    Goteo\Core\Redirection,
    Goteo\Core\Model,
    Goteo\Library\Feed,
    Goteo\Library\Mail,
    Goteo\Library\Sender;

require_once 'config.php';
require_once 'core/common.php';

// Limite para sender, (deja margen para envios individuales)
$LIMIT = (defined("GOTEO_MAIL_SENDER_QUOTA") ? GOTEO_MAIL_SENDER_QUOTA : 40000);

// Autoloader
spl_autoload_register(

    function ($cls) {

        $file = __DIR__ . '/' . implode('/', explode('\\', strtolower(substr($cls, 6)))) . '.php';
        $file = realpath($file);

        if ($file === false) {

            // Try in library
            $file = __DIR__ . '/library/' . strtolower($cls) . '.php';
        }

        if ($file !== false) {
            include $file;
        }

    }

);

$debug = true;
$fail = false;

// check the limit
if (!Mail::checkLimit(null, false, $LIMIT)) {
    die("LIMIT REACHED\n");
}

$itime = microtime(true);
$total_users = 0;

// cogemos el siguiente envío a tratar
$mailing = Sender::getSending();
// si no está activa fin
if (!$mailing->active) {
    if($debug) echo "INACTIVE\n";
    die;
}
if ($mailing->blocked) {
    if ($debug) echo "dbg: BLOQUEADO!\n";
    $fail = true;
}

// voy a parar aquí, antes del bloqueo
if ($debug) echo "dbg: mailing:\n=====\n".print_r($mailing,1)."\n=====\n";

if (!$fail) {
    if ($debug) echo "dbg: bloqueo este registro\n";
    Model::query('UPDATE mailer_content SET blocked = 1 WHERE id = ?', array($mailing->id));

    // cargamos los destinatarios
    $users = Sender::getRecipients($mailing->id, null); //sin limite de usuarios! los queremos todos, el script va por cli sin limite de tiempo

    $total_users = count($users);

    // si no quedan pendientes, grabamos el feed y desactivamos
    if (empty($users)) {

        if ($debug) echo "dbg: No hay destinatarios\n";

        // Desactivamos
        Model::query('UPDATE mailer_content SET active = 0 WHERE id = ?', array($mailing->id));

        // evento feed
        $log = new Feed();
        $log->populate('Envio masivo (cron)', '/admin/mailing/newsletter', 'Se ha completado el envio masivo con asunto "'.$mailing->subject.'"');
        $log->doAdmin('system');
        unset($log);

        if ($debug) echo 'dbg: Se ha completado el envio masivo '.$mailing->id."\n";
    } else {

        // destinatarios
        if ($debug) echo "dbg: Enviamos a $total_users usuarios \n";

        //limpiar logs
        for($i=0; $i<MAIL_MAX_CONCURRENCY; $i++) {
            @unlink(__DIR__ . "/logs/cli-sendmail-$i.log");
        }

        if ($debug) echo "dbg: Comienza a enviar\n";

        $current_rate = 0;
        $current_concurrency = $increment = 2;

        $i=0;
        while($i<$total_users) {
            // comprueba la quota para los envios que se van a hacer

            if (!Mail::checkLimit(null, false, $LIMIT)) {
                if ($debug) echo "dbg: Se ha alcanzado el límite máximo de ".GOTEO_MAIL_SENDER_QUOTA." de envíos diarios! Lo dejamos para mañana\n";
                $total_users = $i; //para los calculos posteriores
                break;
            }

            $pids = array();
            $stime = microtime(true);

            for($j=0; $j<$current_concurrency; $j++) {

                if($j + $i >= $total_users) break;
                $user = $users[$i + $j];
                //envio delegado
                $cmd = PHP_CLI;
                $config = get_cfg_var('cfg_file_path');
                if($config) $cmd .= " -c $config";

                $log = __DIR__ .  "/logs/cli-sendmail-$j.log";
                //para descartar el mensaje:
                //$log = "/dev/null";
                $cmd .= " -f " . __DIR__ . "/cli-sendmail.php";

                $cmd .= " ".escapeshellarg($user->id);
                $cmd .= " >> $log 2>&1 & echo $!";

                // if($debug) echo "dbg: ejecutando comando:\n$cmd\n";
                $pid = trim(shell_exec($cmd));
                $pids[$pid] = $user->id;
                if($debug) echo "Proceso lanzado con el PID $pid para el envio a {$user->email}\n";

            }

            //Espera a que acaben los procesos de envio antes de continuar
            do {
                //espera un segundo
                sleep(1);
                $check_processes = false;
                $processing = array();
                foreach($pids as $pid => $user_id) {
                    if(check_pid($user_id, $pid)) {
                        $processing[] = $pid;
                        $check_processes = true; //hay un proceso activo, habra que esperar
                    }
                }
                if($processing) {
                    echo "PIDs ".implode(",", $processing). " en proceso, esperamos...\n";
                }
            } while($check_processes);

            $process_time = microtime(true) - $stime;
            $current_rate  = round($j / $process_time,2);

            //No hace falta incrementar la quota de envio pues ya se hace en Mail::Send()
            $rest = Mail::checkLimit(null, true, $LIMIT);
            if($debug) echo "Quota de envío restante para hoy: $rest emails, Quota diaria para mailing: ".GOTEO_MAIL_SENDER_QUOTA."\n";
            if($debug) echo "Envios por segundo: $current_rate - Ratio máximo: ".MAIL_MAX_RATE."\n";

            //aumentamos la concurrencia si el ratio es menor que el 75% de máximo
            if($current_rate < MAIL_MAX_RATE*0.75 && $current_concurrency < MAIL_MAX_CONCURRENCY) {
                $current_concurrency += 2;
                if($debug) echo "Ratio de envio actual menor a un 75% del máximo, aumentamos concurrencia a $current_concurrency\n";
            }

            //disminuimos la concurrencia si llegamos al 90% del ratio máximo
            if($current_rate > MAIL_MAX_RATE*0.9) {
                $wait_time = ceil($current_rate - MAIL_MAX_RATE*0.9);
                $current_concurrency--;
                if($debug) echo "Ratio de envio actual mayor a un 90% del máximo, esperamos $wait_time segundos, disminuimos concurrencia a $current_concurrency\n";
                sleep($wait_time);
            }

            $i += $increment;
            $increment = $current_concurrency;
        } //end while

    }

    if ($debug) echo "dbg: desbloqueo este registro\n";
    Model::query('UPDATE mailer_content SET blocked = 0 WHERE id = ?', array($mailing->id));

} else {
    if ($debug) echo "dbg: FALLO\n";
}

if ($debug) echo "dbg: FIN, tiempo de ejecución total " . round(microtime(true) - $itime, 2) . " segundos para enviar $total_users emails, ratio medio " . round($total_users/(microtime(true) - $itime),2) . " emails/segundo\n";

// limpiamos antiguos procesados
Sender::cleanOld();

/**
 * Comprueba si se está ejecutando un proceso cli-sendmail.php con un pid determinado
 * @param  [type] $pid [description]
 * @return [type]      [description]
 */
function check_pid($args, $pid=null) {
    $filter = escapeshellarg(escapeshellcmd(__DIR__ . "/cli-sendmail.php $args"));
    $order = "ps x | grep $filter | grep -v grep | awk '{ print $1 }'";
    // $order = "pgrep -f $filter";
    $lines = shell_exec($order);
    if($lines) {
        // echo "[$pid] ";print_r($lines);print_r($order);
        if($pid) {
            $lines = array_map('trim', explode("\n", $lines));
            if(in_array($pid, $lines)) {
                return true;
            }
        }
        else {
            return true;
        }
    }
}