Gecko [ www.foryou-vip.com ]

Name	Size	Permission	Date
class	[ DIR ]	drwxrwxrwx	2020-10-12 13:36
advtargetemailing.php	15.3 KB	-rwxrwxrwx	2020-10-12 13:32
card.php	52.94 KB	-rwxrwxrwx	2020-10-12 13:32
cibles.php	23.47 KB	-rwxrwxrwx	2020-10-12 13:32
index.php	7.75 KB	-rwxrwxrwx	2020-10-12 13:32
info.php	2.64 KB	-rwxrwxrwx	2020-10-12 13:32
list.php	11.12 KB	-rwxrwxrwx	2020-10-12 13:32

Rename

<?php
/* Copyright (C) 2005      Rodolphe Quiedeville <rodolphe@quiedeville.org>
 * Copyright (C) 2005-2009 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2010      Regis Houssin        <regis.houssin@inodbox.com>
 * Copyright (C) 2019      Nicolas ZABOURI      <info@inovea-conseil.com>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program 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 General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 */

/**
 *       \file       htdocs/comm/mailing/index.php
 *       \ingroup    mailing
 *       \brief      Page accueil de la zone mailing
 */

require '../../main.inc.php';
require_once DOL_DOCUMENT_ROOT.'/comm/mailing/class/mailing.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/functions2.lib.php';

$hookmanager = new HookManager($db);

// Initialize technical object to manage hooks. Note that conf->hooks_modules contains array
$hookmanager->initHooks(array('mailingindex'));

// Load translation files required by the page
$langs->loadLangs(array('commercial', 'orders'));

// Security check
$result = restrictedArea($user, 'mailing');

/*
 *	View
 */

$help_url = 'EN:Module_EMailing|FR:Module_Mailing|ES:M&oacute;dulo_Mailing';
llxHeader('', 'EMailing', $help_url);

print load_fiche_titre($langs->trans("MailingArea"));

//print '<table class="notopnoleftnoright" width="100%">';
//print '<tr><td valign="top" width="30%" class="notopnoleft">';
print '<div class="fichecenter"><div class="fichethirdleft">';

//if (! empty($conf->global->MAIN_SEARCH_FORM_ON_HOME_AREAS))     // This is useless due to the global search combo
//{
    // Recherche emails
    print '<form method="post" action="'.DOL_URL_ROOT.'/comm/mailing/list.php">';
    print '<input type="hidden" name="token" value="'.newToken().'">';
    print '<div class="div-table-responsive-no-min">';
    print '<table class="noborder nohover centpercent">';
    print '<tr class="liste_titre"><td colspan="3">'.$langs->trans("SearchAMailing").'</td></tr>';
    print '<tr class="oddeven"><td class="nowrap">';
    print $langs->trans("Ref").':</td><td><input type="text" class="flat inputsearch" name="sref"></td>';
    print '<td rowspan="2"><input type="submit" value="'.$langs->trans("Search").'" class="button"></td></tr>';
    print '<tr class="oddeven"><td class="nowrap">';
    print $langs->trans("Other").':</td><td><input type="text" class="flat inputsearch" name="sall"></td>';

print "</table></div></form><br>\n";
//}

// Affiche stats de tous les modules de destinataires mailings
print '<table class="noborder centpercent">';
print '<tr class="liste_titre"><td colspan="3">'.$langs->trans("TargetsStatistics").'</td></tr>';

$dir = DOL_DOCUMENT_ROOT."/core/modules/mailings";
$handle = opendir($dir);

if (is_resource($handle))
{
    while (($file = readdir($handle)) !== false)
    {
        if (substr($file, 0, 1) <> '.' && substr($file, 0, 3) <> 'CVS')
        {
            if (preg_match("/(.*)\.(.*)\.(.*)/i", $file, $reg))
            {
                $modulename = $reg[1];
       			if ($modulename == 'example') continue;

// Loading Class
                $file = $dir."/".$modulename.".modules.php";
                $classname = "mailing_".$modulename;
                require_once $file;
                $mailmodule = new $classname($db);

$qualified = 1;
                foreach ($mailmodule->require_module as $key)
                {
                    if (!$conf->$key->enabled || (!$user->admin && $mailmodule->require_admin))
                    {
                        $qualified = 0;
                        //print "Les pr�requis d'activation du module mailing ne sont pas respect�s. Il ne sera pas actif";
                        break;
                    }
                }

// Si le module mailing est qualifi�
                if ($qualified)
                {
                    foreach ($mailmodule->getSqlArrayForStats() as $sql)
                    {
                        print '<tr class="oddeven">';

$result = $db->query($sql);
                        if ($result) {
                            $num = $db->num_rows($result);

$i = 0;

while ($i < $num)
                            {
                                $obj = $db->fetch_object($result);
                                print '<td>'.img_object('', $mailmodule->picto).' '.$obj->label.'</td><td class="right">'.$obj->nb.'<td>';
                                $i++;
                            }

$db->free($result);
                        }
                        else
                        {
                            dol_print_error($db);
                        }
                        print '</tr>';
                    }
                }
            }
        }
    }
    closedir($handle);
}

print "</table><br>";

//print '</td><td valign="top" width="70%" class="notopnoleftnoright">';
print '</div><div class="fichetwothirdright"><div class="ficheaddleft">';

/*
 * List of last emailings
 */
$limit = 10;
$sql  = "SELECT m.rowid, m.titre, m.nbemail, m.statut, m.date_creat";
$sql .= " FROM ".MAIN_DB_PREFIX."mailing as m";
$sql .= " WHERE m.entity = ".$conf->entity;
$sql .= " ORDER BY m.date_creat DESC";
$sql .= " LIMIT ".$limit;
$result = $db->query($sql);
if ($result) {
    print '<div class="div-table-responsive-no-min">';
    print '<table class="noborder centpercent">';
    print '<tr class="liste_titre">';
    print '<td colspan="2">'.$langs->trans("LastMailings", $limit).'</td>';
    print '<td class="center">'.$langs->trans("DateCreation").'</td>';
    print '<td class="center">'.$langs->trans("NbOfEMails").'</td>';
    print '<td class="right"><a href="'.DOL_URL_ROOT.'/comm/mailing/list.php">'.$langs->trans("AllEMailings").'</a></td></tr>';

$num = $db->num_rows($result);
    if ($num > 0)
    {
        $i = 0;

while ($i < $num)
	    {
	        $obj = $db->fetch_object($result);
			$mailstatic = new Mailing($db);
			$mailstatic->id = $obj->rowid;
			$mailstatic->ref = $obj->rowid;

print '<tr class="oddeven">';
	        print '<td class="nowrap">'.$mailstatic->getNomUrl(1).'</td>';
	        print '<td>'.dol_trunc($obj->titre, 38).'</td>';
	        print '<td class="center">'.dol_print_date($db->jdate($obj->date_creat), 'day').'</td>';
	        print '<td class="center">'.($obj->nbemail ? $obj->nbemail : "0").'</td>';
	        print '<td class="right">'.$mailstatic->LibStatut($obj->statut, 5).'</td>';
            print '</tr>';
	        $i++;
	    }
    }
    else
    {
        print '<tr><td class="opacitymedium">'.$langs->trans("None").'</td></tr>';
    }
    print "</table></div><br>";
    $db->free($result);
}
else
{
    dol_print_error($db);
}

//print '</td></tr></table>';
print '</div></div></div>';

if ($langs->file_exists("html/spam.html", 0)) {
    print "<br><br><br><br>".$langs->trans("Note")."<br>";
    print '<div style="padding: 4px; background: #FAFAFA; border: 1px solid #BBBBBB;" >';
    dol_print_file($langs, "html/spam.html", 0);
    print '</div>';

print '<br>';
}

$parameters = array('user' => $user);
$reshook = $hookmanager->executeHooks('dashboardEmailings', $parameters, $object); // Note that $action and $object may have been modified by hook

// End of page
llxFooter();
$db->close();