* Copyright (C) 2005-2009 Laurent Destailleur * Copyright (C) 2010 Regis Houssin * * 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 . */ /** * \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'; $langs->load("commercial"); $langs->load("orders"); // Security check $result=restrictedArea($user,'mailing'); /* * View */ $help_url='EN:Module_EMailing|FR:Module_Mailing|ES:Módulo_Mailing'; llxHeader('','EMailing',$help_url); print_fiche_titre($langs->trans("MailingArea")); //print ''; //print '

'; print '

'; // Recherche emails $var=false; print '
\n"; // Affiche stats de tous les modules de destinataires mailings print ''; print ''; $dir=DOL_DOCUMENT_ROOT."/core/modules/mailings"; $handle=opendir($dir); $var=True; 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; // Chargement de la classe $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) { $var = !$var; foreach ($mailmodule->getSqlArrayForStats() as $sql) { print ''; $result=$db->query($sql); if ($result) { $num = $db->num_rows($result); $i = 0; while ($i < $num ) { $obj = $db->fetch_object($result); print ''; } } } } } closedir($handle); } print "

'.$langs->trans("TargetsStatistics").'
'.img_object('',$mailmodule->picto).' '.$obj->label.'	'.$obj->nb.'	'; $i++; } $db->free($result); } else { dol_print_error($db); } print '

"; //print '

'; print '

'; /* * 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.= " ORDER BY m.date_creat DESC"; $sql.= " LIMIT ".$limit; $result=$db->query($sql); if ($result) { print ''; print ''; print ''; print ''; print ''; print ''; $num = $db->num_rows($result); if ($num > 0) { $var = true; $i = 0; while ($i < $num ) { $obj = $db->fetch_object($result); $var=!$var; print ""; print ''; print ''; print ''; print ''; $mailstatic=new Mailing($db); print ''; print ''; $i++; } } else { print ''; } print "

'.$langs->trans("LastMailings",$limit).'		'.$langs->trans("DateCreation").'	'.$langs->trans("NbOfEMails").'	'.$langs->trans("AllEMailings").'
'.img_object($langs->trans("ShowEMail"),"email").' '.$obj->rowid.'	'.dol_trunc($obj->titre,38).'	'.dol_print_date($db->jdate($obj->date_creat),'day').'	'.($obj->nbemail?$obj->nbemail:"0").'	'.$mailstatic->LibStatut($obj->statut,5).'
'.$langs->trans("None").'

"; $db->free($result); } else { dol_print_error($db); } //print '

'; print ''; if ($langs->file_exists("html/spam.html",0)) { print "

".$langs->trans("Note")."
"; print '

'; dol_print_file($langs,"html/spam.html",0); print '

'; print '
'; } llxFooter(); $db->close();