/** * Function to delete a member from external tools like mailing-list, spip, etc. * * @return int <0 if KO, >0 if OK */ function del_to_abo() { global $conf, $langs; include_once DOL_DOCUMENT_ROOT . '/mailmanspip/class/mailmanspip.class.php'; $mailmanspip = new MailmanSpip($this->db); $err = 0; // mailman if (!empty($conf->global->ADHERENT_USE_MAILMAN)) { $result = $mailmanspip->del_to_mailman($this); if ($result < 0) { if (!empty($mailmanspip->error)) { $this->errors[] = $mailmanspip->error; } $err += 1; } foreach ($mailmanspip->mlremoved_ko as $tmplist => $tmpemail) { $langs->load("errors"); $this->errors[] = $langs->trans("ErrorFailedToRemoveToMailmanList", $tmpemail, $tmplist); } foreach ($mailmanspip->mlremoved_ok as $tmplist => $tmpemail) { $langs->load("mailmanspip"); $this->mesgs[] = $langs->trans("SuccessToRemoveToMailmanList", $tmpemail, $tmplist); } } if ($conf->global->ADHERENT_USE_SPIP && !empty($conf->mailmanspip->enabled)) { $result = $mailmanspip->del_to_spip($this); if ($result < 0) { $this->errors[] = $mailmanspip->error; $err += 1; } } if ($err) { // error return -$err; } else { return 1; } }
$object = new stdClass(); $object->email = $email; $object->pass = $email; /*$object->element='member'; $object->type='Preferred Partners'; */ if ($action == 'testsubscribe') { $result = $mailmanspip->add_to_mailman($object); if ($result < 0) { $error++; setEventMessages($mailmanspip->error, $mailmanspip->errors, 'errors'); } else { setEventMessages($langs->trans("MailmanCreationSuccess"), null); } } if ($action == 'testunsubscribe') { $result = $mailmanspip->del_to_mailman($object); if ($result < 0) { $error++; setEventMessages($mailmanspip->error, $mailmanspip->errors, 'errors'); } else { setEventMessages($langs->trans("MailmanDeletionSuccess"), null); } } } } /* * View */ $help_url = ''; llxHeader('', $langs->trans("MailmanSpipSetup"), $help_url); $linkback = '<a href="' . DOL_URL_ROOT . '/admin/modules.php">' . $langs->trans("BackToModuleList") . '</a>';
/** * Fonction qui supprime l'adherent des abonnements automatiques mailing-list, spip, etc. * TODO Move this into member deletion trigger (trigger of mailmanspip module) * * @return int <0 if KO, >0 if OK */ function del_to_abo() { global $conf; include_once DOL_DOCUMENT_ROOT . '/mailmanspip/class/mailmanspip.class.php'; $mailmanspip = new MailmanSpip($db); $err = 0; // mailman if (!empty($conf->global->ADHERENT_USE_MAILMAN)) { $result = $mailmanspip->del_to_mailman($this); if ($result < 0) { $err += 1; } } if ($conf->global->ADHERENT_USE_SPIP && $conf->mailmanspip->enabled) { $result = $mailmanspip->del_to_spip($this); if ($result < 0) { $err += 1; } } if ($err) { // error return -$err; } else { return 1; } }