31 require_once DOL_DOCUMENT_ROOT.
'/core/class/commonobject.class.php';
32 require_once DOL_DOCUMENT_ROOT.
'/categories/class/categorie.class.php';
33 require_once DOL_DOCUMENT_ROOT.
'/core/lib/functions2.lib.php';
34 require_once DOL_DOCUMENT_ROOT.
'/core/lib/date.lib.php';
35 require_once DOL_DOCUMENT_ROOT.
'/core/lib/geturl.lib.php';
55 public $errors = array();
108 $resource =
getDoliDBInstance(
'mysql', ADHERENT_SPIP_SERVEUR, ADHERENT_SPIP_USER, ADHERENT_SPIP_PASS, ADHERENT_SPIP_DB, ADHERENT_SPIP_PORT);
114 dol_syslog(
'Error when connecting to SPIP '.ADHERENT_SPIP_SERVEUR.
' '.ADHERENT_SPIP_USER.
' '.ADHERENT_SPIP_PASS.
' '.ADHERENT_SPIP_DB, LOG_ERR);
142 $conf->global->ADHERENT_MAILMAN_ADMIN_PASSWORD
145 $curl_url = str_replace($patterns, $replace, $url);
150 return $result[
'content'];
170 require_once DOL_DOCUMENT_ROOT.
'/core/lib/security2.lib.php';
172 $htpass = crypt($object->pass,
makesalt());
173 $query =
"INSERT INTO spip_auteurs (nom, email, login, pass, htpass, alea_futur, statut) VALUES(\"".dolGetFirstLastname($object->firstname, $object->lastname).
"\",\"".$object->email.
"\",\"".$object->login.
"\",\"$mdpass\",\"$htpass\",FLOOR(32000*RAND()),\"1comite\")";
175 $result = $mydb->query($query);
182 $this->error = $mydb->lasterror();
185 $this->error =
'Failed to connect to SPIP';
188 $this->error =
'BadSPIPConfiguration';
191 $this->error =
'SPIPNotEnabled';
214 $query =
"DELETE FROM spip_auteurs WHERE login = '".$mydb->escape($object->login).
"'";
216 $result = $mydb->query($query);
223 $this->error = $mydb->lasterror();
226 $this->error =
'Failed to connect to SPIP';
229 $this->error =
'BadSPIPConfiguration';
232 $this->error =
'SPIPNotEnabled';
253 $query =
"SELECT login FROM spip_auteurs WHERE login = '".$mydb->escape($object->login).
"'";
255 $result = $mydb->query($query);
258 if ($mydb->num_rows($result)) {
268 $this->error = $mydb->lasterror();
272 $this->error =
'Failed to connect to SPIP';
275 $this->error =
'BadSPIPConfiguration';
278 $this->error =
'SPIPNotEnabled';
295 global $conf, $langs, $user;
297 dol_syslog(get_class($this).
"::add_to_mailman");
299 $this->mladded_ok = array();
300 $this->mladded_ko = array();
302 if (!function_exists(
"curl_init")) {
303 $langs->load(
"errors");
304 $this->error = $langs->trans(
"ErrorFunctionNotAvailableInPHP",
"curl_init");
308 if ($conf->adherent->enabled) {
309 if (!empty($conf->global->ADHERENT_MAILMAN_URL)) {
310 if ($listes ==
'' && !empty($conf->global->ADHERENT_MAILMAN_LISTS)) {
311 $lists = explode(
',', $conf->global->ADHERENT_MAILMAN_LISTS);
313 $lists = explode(
',', $listes);
318 foreach ($lists as $list) {
320 $tmp = explode(
':', $list);
321 if (!empty($tmp[2])) {
323 if ($object->element ==
'member' && $tmp[0] ==
'TYPE' && $object->type != $tmp[1]) {
324 dol_syslog(
"We ignore list ".$list.
" because object member type ".$object->type.
" does not match ".$tmp[1], LOG_DEBUG);
327 if ($object->element ==
'member' && $tmp[0] ==
'CATEG' && !in_array($tmp[1], $categstatic->containing($object->id,
'member',
'label'))) {
328 dol_syslog(
"We ignore list ".$list.
" because object member is not into category ".$tmp[1], LOG_DEBUG);
334 $result = $this->
callMailman($object, $conf->global->ADHERENT_MAILMAN_URL, $list);
336 if ($result ===
false) {
337 $this->mladded_ko[$list] = $object->email;
340 $this->mladded_ok[$list] = $object->email;
343 return count($lists);
345 $this->error =
"ADHERENT_MAILMAN_URL not defined";
363 global $conf, $langs, $user;
365 dol_syslog(get_class($this).
"::del_to_mailman");
367 $this->mlremoved_ok = array();
368 $this->mlremoved_ko = array();
370 if (!function_exists(
"curl_init")) {
371 $langs->load(
"errors");
372 $this->error = $langs->trans(
"ErrorFunctionNotAvailableInPHP",
"curl_init");
376 if ($conf->adherent->enabled) {
377 if (!empty($conf->global->ADHERENT_MAILMAN_UNSUB_URL)) {
378 if ($listes ==
'' && !empty($conf->global->ADHERENT_MAILMAN_LISTS)) {
379 $lists = explode(
',', $conf->global->ADHERENT_MAILMAN_LISTS);
381 $lists = explode(
',', $listes);
386 foreach ($lists as $list) {
388 $tmp = explode(
':', $list);
389 if (!empty($tmp[2])) {
391 if ($object->element ==
'member' && $tmp[0] ==
'TYPE' && $object->type != $tmp[1]) {
392 dol_syslog(
"We ignore list ".$list.
" because object member type ".$object->type.
" does not match ".$tmp[1], LOG_DEBUG);
395 if ($object->element ==
'member' && $tmp[0] ==
'CATEG' && !in_array($tmp[1], $categstatic->containing($object->id,
'member',
'label'))) {
396 dol_syslog(
"We ignore list ".$list.
" because object member is not into category ".$tmp[1], LOG_DEBUG);
402 $result = $this->
callMailman($object, $conf->global->ADHERENT_MAILMAN_UNSUB_URL, $list);
404 if ($result ===
false) {
405 $this->mlremoved_ko[$list] = $object->email;
408 $this->mlremoved_ok[$list] = $object->email;
411 return count($lists);
413 $this->error =
"ADHERENT_MAILMAN_UNSUB_URL not defined";