28if (!defined(
'NOLOGIN')) {
29 define(
'NOLOGIN',
'1');
31if (!defined(
'NOCSRFCHECK')) {
32 define(
'NOCSRFCHECK',
'1');
34if (!defined(
'NOBROWSERNOTIF')) {
35 define(
'NOBROWSERNOTIF',
'1');
37if (!defined(
'NOREQUIRETRAN')) {
38 define(
'NOREQUIRETRAN',
'1');
40if (!defined(
'NOTOKENRENEWAL')) {
41 define(
'NOTOKENRENEWAL',
'1');
43if (!defined(
'NOREQUIREMENU')) {
44 define(
'NOREQUIREMENU',
'1');
46if (!defined(
'NOIPCHECK')) {
47 define(
'NOIPCHECK',
'1');
49if (!defined(
'NOSESSION')) {
50 define(
'NOSESSION',
'1');
74require
'../../main.inc.php';
79$securitykey =
GETPOST(
'securitykey');
86dol_syslog(
"public/emailing/mailing-read.php : tag=".$tag.
" securitykey=".$securitykey, LOG_DEBUG);
89 print
'Bad security key value.';
93if (!empty($tag) && $tag !=
'undefined') {
94 dol_syslog(
"public/emailing/mailing-read.php : Update status of email target and thirdparty for tag ".$tag, LOG_DEBUG);
96 $sql =
"SELECT mc.rowid, mc.email, mc.statut, mc.source_type, mc.source_id, m.entity";
97 $sql .=
" FROM ".MAIN_DB_PREFIX.
"mailing_cibles as mc, ".MAIN_DB_PREFIX.
"mailing as m";
98 $sql .=
" WHERE mc.fk_mailing = m.rowid AND mc.tag = '".$db->escape($tag).
"'";
100 $resql = $db->query($sql);
105 $obj = $db->fetch_object($resql);
108 print
'Email target not valid. Operation canceled.';
111 if (empty($obj->email)) {
112 print
'Email target not valid. Operation canceled.';
115 if ($obj->statut == 2 || $obj->statut == 3) {
116 print
'Email target already set to read or unsubscribe. Operation canceled.';
130 $sql =
"UPDATE ".MAIN_DB_PREFIX.
"mailing_cibles SET statut=".((int) $statut).
" WHERE rowid = ".((int) $obj->rowid);
131 $resql = $db->query($sql);
137 if ($obj->source_id > 0 && $obj->source_type ==
'thirdparty' && $obj->entity) {
138 $sql =
"UPDATE ".MAIN_DB_PREFIX.
'societe SET fk_stcomm = 3 WHERE fk_stcomm <> -1 AND entity = '.((int) $obj->entity).
' AND rowid = '.((int) $obj->source_id);
139 $resql = $db->query($sql);
143 if ($obj->source_id > 0 && $obj->source_type ==
'contact' && $obj->entity) {
144 $sql =
"UPDATE ".MAIN_DB_PREFIX.
'societe SET fk_stcomm = 3 WHERE fk_stcomm <> -1 AND entity = '.((int) $obj->entity).
' AND rowid IN (SELECT sc.fk_soc FROM '.MAIN_DB_PREFIX.
'socpeople AS sc WHERE sc.rowid = '.((int) $obj->source_id).
')';
145 $resql = $db->query($sql);
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
if(!defined('NOLOGIN')) if(!defined( 'NOCSRFCHECK')) if(!defined('NOBROWSERNOTIF')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOIPCHECK')) if(!defined( 'NOSESSION')) llxHeader()
Header empty.
dol_hash($chain, $type='0', $nosalt=0)
Returns a hash (non reversible encryption) of a string.