* Copyright (C) 2005 Laurent Destailleur * * 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 2 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, write to the Free Software * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. * * $Id$ * $Source$ */ /** \file htdocs/comm/mailing/index.php \ingroup mailing \brief Page accueil de la zone mailing \version $Revision$ */ require("./pre.inc.php"); $langs->load("commercial"); $langs->load("orders"); $user->getrights("mailing"); if (! $user->rights->mailing->lire || $user->societe_id > 0) accessforbidden(); llxHeader('','Mailing'); /* * */ 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."/includes/modules/mailings"; $handle=opendir($dir); $var=True; while (($file = readdir($handle))!==false) { if (substr($file, 0, 1) <> '.' && substr($file, 0, 3) <> 'CVS') { if (eregi("(.*)\.(.*)\.(.*)",$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 { dolibarr_print_error($db); } print '

"; print '

'; /* * Liste des derniers mailings */ $sql = "SELECT m.rowid, m.titre, m.nbemail, m.statut"; $sql .= " FROM ".MAIN_DB_PREFIX."mailing as m"; $sql .= " LIMIT 10"; $result=$db->query($sql); if ($result) { 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 ''; $mailstatic=new Mailing($db); print ''; print ''; $i++; } } else { print ''; } print "

'.$langs->trans("LastMailings",10).'		'.$langs->trans("NbOfEMails").'	'.$langs->trans("Status").'
'.img_object($langs->trans("ShowEMail"),"email").' '.$obj->rowid.'	'.$obj->titre.'	'.($obj->nbemail?$obj->nbemail:"0").'	'.$mailstatic->LibStatut($obj->statut,5).'
'.$langs->trans("None").'

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

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

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

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

'; print '
'; } llxFooter('$Date$ - $Revision$'); ?>