* Copyright (C) 2005-2010 Laurent Destailleur * Copyright (C) 2005-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 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, see . */ /** * \file htdocs/comm/mailing/cibles.php * \ingroup mailing * \brief Page to define emailing targets */ require("../../main.inc.php"); require_once(DOL_DOCUMENT_ROOT."/comm/mailing/class/mailing.class.php"); require_once(DOL_DOCUMENT_ROOT."/core/lib/emailing.lib.php"); require_once(DOL_DOCUMENT_ROOT."/core/class/CMailFile.class.php"); require_once(DOL_DOCUMENT_ROOT."/core/lib/functions2.lib.php"); $langs->load("mails"); // Security check if (! $user->rights->mailing->lire || $user->societe_id > 0) accessforbidden(); $mesg = ''; $sortfield = GETPOST("sortfield",'alpha'); $sortorder = GETPOST("sortorder",'alpha'); $page = GETPOST("page",'int'); if ($page == -1) { $page = 0; } $offset = $conf->liste_limit * $page; $pageprev = $page - 1; $pagenext = $page + 1; if (! $sortorder) $sortorder="ASC"; if (! $sortfield) $sortfield="email"; $id=GETPOST('rowid')?GETPOST('rowid'):GETPOST('id','int'); $action=GETPOST("action"); $search_nom=GETPOST("search_nom"); $search_prenom=GETPOST("search_prenom"); $search_email=GETPOST("search_email"); // Search modules dirs $modulesdir = array(); foreach ($conf->file->dol_document_root as $type => $dirroot) { $modulesdir[$dirroot . '/core/modules/mailings/'] = $dirroot . '/core/modules/mailings/'; $handle=@opendir($dirroot); if (is_resource($handle)) { while (($file = readdir($handle))!==false) { if (is_dir($dirroot.'/'.$file) && substr($file, 0, 1) <> '.' && substr($file, 0, 3) <> 'CVS' && $file != 'includes') { if (is_dir($dirroot . '/' . $file . '/core/modules/mailings/')) { $modulesdir[$dirroot . '/' . $file . '/core/modules/mailings/'] = $dirroot . '/' . $file . '/core/modules/mailings/'; } } } closedir($handle); } } //var_dump($modulesdir); $dirmod=DOL_DOCUMENT_ROOT."/core/modules/mailings"; /* * Actions */ if ($action == 'add') { $module=GETPOST("module"); $result=-1; $var=true; foreach ($modulesdir as $dir) { // Load modules attributes in arrays (name, numero, orders) from dir directory //print $dir."\n
"; dol_syslog("Scan directory ".$dir." for modules"); // Chargement de la classe $file = $dir."/".$module.".modules.php"; $classname = "mailing_".$module; if (file_exists($file)) { require_once($file); // We fill $filtersarray. Using this variable is now deprecated. // Kept for backward compatibility. $filtersarray=array(); if (isset($_POST["filter"])) $filtersarray[0]=$_POST["filter"]; // Add targets into database $obj = new $classname($db); $result=$obj->add_to_target($id,$filtersarray); } } if ($result > 0) { Header("Location: cibles.php?id=".$id); exit; } if ($result == 0) { $mesg='

'.$langs->trans("WarningNoEMailsAdded").'

'; } if ($result < 0) { $mesg='

'.$langs->trans("Error").($obj->error?' '.$obj->error:'').'

'; } } if ($action == 'clear') { // Chargement de la classe $file = $dirmod."/modules_mailings.php"; $classname = "MailingTargets"; require_once($file); $obj = new $classname($db); $obj->clear_target($id); Header("Location: cibles.php?id=".$id); exit; } if ($action == 'delete') { // Ici, rowid indique le destinataire et id le mailing $sql="DELETE FROM ".MAIN_DB_PREFIX."mailing_cibles where rowid=".$id; $resql=$db->query($sql); if ($resql) { //on récurpére l'id du mailing $id = GETPOST('id','int'); if (!empty($id)) { $file = $dirmod."/modules_mailings.php"; $classname = "MailingTargets"; require_once($file); $obj = new $classname($db); $obj->update_nb($id); Header("Location: cibles.php?id=".$id); exit; } else { Header("Location: liste.php"); exit; } } else { dol_print_error($db); } } if ($_POST["button_removefilter"]) { $search_nom=''; $search_prenom=''; $search_email=''; } /* * View */ llxHeader('',$langs->trans("Mailing"),'EN:Module_EMailing|FR:Module_Mailing|ES:Módulo_Mailing'); $form = new Form($db); $mil = new Mailing($db); if ($mil->fetch($id) >= 0) { $head = emailing_prepare_head($mil); dol_fiche_head($head, 'targets', $langs->trans("Mailing"), 0, 'email'); print ''; print ''; print ''; print ''; print ''; // Errors to print ''; // Status print ''; // Nb of distinct emails print ''; print '

'.$langs->trans("Ref").'	'; print $form->showrefnav($mil,'id'); print '
'.$langs->trans("MailTitle").'	'.$mil->titre.'
'.$langs->trans("MailFrom").'	'.dol_print_email($mil->email_from,0,0,0,0,1).'
'.$langs->trans("MailErrorsTo").'	'.dol_print_email($mil->email_errorsto,0,0,0,0,1); print '
'.$langs->trans("Status").'	'.$mil->getLibStatut(4).'
'; print $langs->trans("TotalNbOfDistinctRecipients"); print '	'; $nbemail = ($mil->nbemail?$mil->nbemail:'0'); if (!empty($conf->global->MAILING_LIMIT_SENDBYWEB) && $conf->global->MAILING_LIMIT_SENDBYWEB < $nbemail) { $text=$langs->trans('LimitSendingEmailing',$conf->global->MAILING_LIMIT_SENDBYWEB); print $form->textwithpicto($nbemail,$text,1,'warning'); } else { print $nbemail; } print '

'; print ""; dol_htmloutput_mesg($mesg); $var=!$var; // Show email selectors if ($mil->statut == 0) { print_fiche_titre($langs->trans("ToAddRecipientsChooseHere"),($user->admin?info_admin($langs->trans("YouCanAddYourOwnPredefindedListHere"),1):''),''); print ''; print ''; print ''; print ''; print ''; print ''; print "\n"; clearstatcache(); $var=true; foreach ($modulesdir as $dir) { $modulenames=array(); // Load modules attributes in arrays (name, numero, orders) from dir directory //print $dir."\n
"; dol_syslog("Scan directory ".$dir." for modules"); $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("/(.*)\.modules\.php$/i",$file,$reg)) { if ($reg[1] == 'example') continue; $modulenames[]=$reg[1]; } } } closedir($handle); } // Sort $modulenames sort($modulenames); // Loop on each submodule foreach($modulenames as $modulename) { // Chargement de la classe $file = $dir.$modulename.".modules.php"; $classname = "mailing_".$modulename; require_once($file); $obj = new $classname($db); $qualified=1; foreach ($obj->require_module as $key) { if (! $conf->$key->enabled || (! $user->admin && $obj->require_admin)) { $qualified=0; //print "Les prerequis d'activation du module mailing ne sont pas respectes. Il ne sera pas actif"; break; } } // Si le module mailing est qualifie if ($qualified) { $var = !$var; print ''; if ($mil->statut == 0) { print ''; print ''; } print ''; /* print '"; */ $nbofrecipient=$obj->getNbOfRecipients(); print ''; print ''; print ''; if ($mil->statut == 0) print ''; print "\n"; } } } // End foreach dir print '

'.$langs->trans("RecipientSelectionModules").'	'.$langs->trans("NbOfUniqueEMails").'	'.$langs->trans("Filter").'
'; if (! $obj->picto) $obj->picto='generic'; print img_object($langs->trans("Module").': '.get_class($obj),$obj->picto).' '.$obj->getDesc(); print '	'; print $modulename; print "	'; if ($nbofrecipient >= 0) { print $nbofrecipient; } else { print $langs->trans("Error").' '.img_error($obj->error); } print '	'; $filter=$obj->formFilter(); if ($filter) print $filter; else print $langs->trans("None"); print '	'; if ($mil->statut == 0) { print ''; } else { //print $langs->trans("MailNoChangePossible"); print " "; } print '

'; print '
'; print ''; print '
'; } // List of selected targets print "\n\n"; print '

'; print ''; print ''; print ''; print ''; $sql = "SELECT mc.rowid, mc.nom, mc.prenom, mc.email, mc.other, mc.statut, mc.date_envoi, mc.source_url, mc.source_id, mc.source_type"; $sql .= " FROM ".MAIN_DB_PREFIX."mailing_cibles as mc"; $sql .= " WHERE mc.fk_mailing=".$mil->id; if ($search_nom) $sql.= " AND mc.nom like '%".$db->escape($search_nom)."%'"; if ($search_prenom) $sql.= " AND mc.prenom like '%".$db->escape($search_prenom)."%'"; if ($search_email) $sql.= " AND mc.email like '%".$db->escape($search_email)."%'"; $sql .= $db->order($sortfield,$sortorder); $sql .= $db->plimit($conf->liste_limit+1, $offset); $resql=$db->query($sql); if ($resql) { $num = $db->num_rows($resql); $parm = "&id=".$mil->id; if ($search_nom) $parm.= "&search_nom=".urlencode($search_nom); if ($search_prenom) $parm.= "&search_prenom=".urlencode($search_prenom); if ($search_email) $parm.= "&search_email=".urlencode($search_email); print_barre_liste($langs->trans("MailSelectedRecipients"),$page,$_SERVER["PHP_SELF"],$parm,$sortfield,$sortorder,"",$num,$mil->nbemail,''); if ($page) $parm.= "&page=".$page; print ''; print ''; print_liste_field_titre($langs->trans("EMail"),$_SERVER["PHP_SELF"],"mc.email",$parm,"","",$sortfield,$sortorder); print_liste_field_titre($langs->trans("Lastname"),$_SERVER["PHP_SELF"],"mc.nom",$parm,"","",$sortfield,$sortorder); print_liste_field_titre($langs->trans("Firstname"),$_SERVER["PHP_SELF"],"mc.prenom",$parm,"","",$sortfield,$sortorder); print_liste_field_titre($langs->trans("OtherInformations"),$_SERVER["PHP_SELF"],"",$parm,"","",$sortfield,$sortorder); print_liste_field_titre($langs->trans("Source"),$_SERVER["PHP_SELF"],"",$parm,"",'align="center"',$sortfield,$sortorder); // Date sendinf if ($mil->statut < 2) { print ''; } else { print_liste_field_titre($langs->trans("DateSending"),$_SERVER["PHP_SELF"],"mc.date_envoi",$parm,'','align="center"',$sortfield,$sortorder); } // Statut print_liste_field_titre($langs->trans("Status"),$_SERVER["PHP_SELF"],"mc.statut",$parm,'','align="right"',$sortfield,$sortorder); print ''; // Ligne des champs de filtres print ''; // EMail print ''; // Name print ''; // Firstname print ''; // Other print ''; // Source print ''; print ''; $var = true; $i = 0; if ($num) { while ($i < min($num,$conf->liste_limit)) { $obj = $db->fetch_object($resql); $var=!$var; print ""; print ''; print ''; print ''; print ''; print ''; // Statut pour l'email destinataire (Attentioon != statut du mailing) if ($obj->statut == 0) { print ''; print ''; } else { print ''; print ''; } print ''; $i++; } } else { print ''; } print "


'; print ''; print '	'; print ''; print '	'; print ''; print '	'; print ' '; print '	'; print ''; print ' '; print ''; print '
'.$obj->email.'	'.$obj->nom.'	'.$obj->prenom.'	'.$obj->other.'	'; if (empty($obj->source_id) \|\| empty($obj->source_type)) { print $obj->source_url; // For backward compatibility } else { if ($obj->source_type == 'member') { include_once(DOL_DOCUMENT_ROOT.'/adherents/class/adherent.class.php'); $m=new Adherent($db); $m->id=$obj->source_id; print $m->getNomUrl(2); } else if ($obj->source_type == 'user') { include_once(DOL_DOCUMENT_ROOT.'/user/class/user.class.php'); $m=new User($db); $m->id=$obj->source_id; print $m->getNomUrl(2); } else if ($obj->source_type == 'thirdparty') { include_once(DOL_DOCUMENT_ROOT.'/societe/class/societe.class.php'); $m=new Societe($db); $m->id=$obj->source_id; print $m->getNomUrl(2); } else { print $obj->source_url; } } print '	'.$langs->trans("MailingStatusNotSent").' '.img_delete($langs->trans("RemoveRecipient")).'	'.$obj->date_envoi.'	'; if ($obj->statut==-1) print $langs->trans("MailingStatusError").' '.img_error(); if ($obj->statut==1) print $langs->trans("MailingStatusSent").' '.img_picto($langs->trans("MailingStatusSent"),'statut6'); if ($obj->statut==2) print $langs->trans("MailingStatusRead").' '.img_picto($langs->trans("MailingStatusRead"),'statut6'); if ($obj->statut==3) print $langs->trans("MailingStatusNotContact").' '.img_picto($langs->trans("MailingStatusNotContact"),'statut8'); print '
'.$langs->trans("NoTargetYet").'

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

'; print "\n\n"; } llxFooter(); $db->close(); ?>