/htdocs/mailmanspip/class/mailmanspip.class.php
PHP | 400 lines | 250 code | 53 blank | 97 comment | 62 complexity | 47f50f0782935e9f8cac4c6c2e8aaa5e MD5 | raw file
Possible License(s): LGPL-3.0, LGPL-2.1, GPL-3.0, MIT
- <?php
- /* Copyright (C) 2002-2003 Rodolphe Quiedeville <rodolphe@quiedeville.org>
- * Copyright (C) 2002-2003 Jean-Louis Bergamo <jlb@j1b.org>
- * Copyright (C) 2004-2011 Laurent Destailleur <eldy@users.sourceforge.net>
- * Copyright (C) 2004 Sebastien Di Cintio <sdicintio@ressource-toi.org>
- * Copyright (C) 2004 Benoit Mortier <benoit.mortier@opensides.be>
- * Copyright (C) 2009 Regis Houssin <regis.houssin@capnetworks.com>
- * Copyright (C) 2012 Marcos GarcĂa <marcosgdf@gmail.com>
- *
- * 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 3 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 <http://www.gnu.org/licenses/>.
- */
- /**
- * \file htdocs/mailmanspip/class/mailmanspip.class.php
- * \ingroup member
- * \brief File of class to manage members of a foundation
- */
- require_once DOL_DOCUMENT_ROOT.'/core/class/commonobject.class.php';
- require_once DOL_DOCUMENT_ROOT.'/core/lib/functions2.lib.php';
- require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
- /**
- * Class to manage mailman and spip
- */
- class MailmanSpip
- {
- var $db;
- var $error;
- /**
- * Constructor
- *
- * @param DoliDB $db Database handler
- */
- function __construct($db = '')
- {
- $this->db = $db;
- }
- /**
- * Function used to check if SPIP is enabled on the system
- *
- * @return boolean
- */
- function isSpipEnabled()
- {
- if (defined("ADHERENT_USE_SPIP") && (ADHERENT_USE_SPIP == 1))
- {
- return true;
- }
- return false;
- }
- /**
- * Function used to check if the SPIP config is correct
- *
- * @return boolean
- */
- function checkSpipConfig()
- {
- if (defined('ADHERENT_SPIP_SERVEUR') && defined('ADHERENT_SPIP_USER') && defined('ADHERENT_SPIP_PASS') && defined('ADHERENT_SPIP_DB'))
- {
- if (ADHERENT_SPIP_SERVEUR != '' && ADHERENT_SPIP_USER != '' && ADHERENT_SPIP_PASS != '' && ADHERENT_SPIP_DB != '')
- {
- return true;
- }
- }
- return false;
- }
- /**
- * Function used to connect to SPIP
- *
- * @return boolean|DoliDB Boolean of DoliDB
- */
- function connectSpip()
- {
- $resource = getDoliDBInstance('mysql', ADHERENT_SPIP_SERVEUR, ADHERENT_SPIP_USER, ADHERENT_SPIP_PASS, ADHERENT_SPIP_DB, ADHERENT_SPIP_PORT);
- if ($resource->ok)
- {
- return $resource;
- }
- dol_syslog('Error when connecting to SPIP '.ADHERENT_SPIP_SERVEUR.' '.ADHERENT_SPIP_USER.' '.ADHERENT_SPIP_PASS.' '.ADHERENT_SPIP_DB, LOG_ERR);
- return false;
- }
- /**
- * Function used to connect to Mailman
- *
- * @param object $object Object with the data
- * @param string $url Mailman URL to be called with patterns
- * @return mixed Boolean or string
- */
- function callMailman($object, $url)
- {
- global $conf;
- //Patterns that are going to be replaced with their original value
- $patterns = array(
- '%LISTE%',
- '%EMAIL%',
- '%PASSWORD%',
- '%MAILMAN_ADMINPW%'
- );
- $replace = array(
- $list,
- $object->email,
- $object->pass,
- $conf->global->ADHERENT_MAILMAN_ADMINPW
- );
- $curl_url = str_replace($patterns, $replace, $url);
- dol_syslog('Calling Mailman: '.$curl_url);
- $ch = curl_init($curl_url);
- curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);
- curl_setopt($ch, CURLOPT_FAILONERROR, true);
- @curl_setopt($ch, CURLOPT_FOLLOWLOCATION, 1);
- curl_setopt($ch, CURLOPT_TIMEOUT, 5);
- $result = curl_exec($ch);
- dol_syslog('result curl_exec='.$result);
- //An error was found, we store it in $this->error for later
- if ($result === false || curl_errno($ch) > 0)
- {
- $this->error = curl_errno($ch).' '.curl_error($ch);
- dol_syslog('Error using curl '.$this->error, LOG_ERR);
- }
- curl_close($ch);
- return $result;
- }
- /**
- * Fonction qui donne les droits redacteurs dans spip
- *
- * @param Object $object Object with data (->firstname, ->lastname, ->email and ->login)
- * @return int =0 if KO, >0 if OK
- */
- function add_to_spip($object)
- {
- dol_syslog(get_class($this)."::add_to_spip");
- if ($this->isSpipEnabled())
- {
- if ($this->checkSpipConfig())
- {
- $mydb = $this->connectSpip();
- if ($mydb)
- {
- require_once DOL_DOCUMENT_ROOT.'/core/lib/security2.lib.php';
- $mdpass=dol_hash($object->pass);
- $htpass=crypt($object->pass,makesalt());
- $query = "INSERT INTO spip_auteurs (nom, email, login, pass, htpass, alea_futur, statut) VALUES(\"".$object->firstname." ".$object->lastname."\",\"".$object->email."\",\"".$object->login."\",\"$mdpass\",\"$htpass\",FLOOR(32000*RAND()),\"1comite\")";
- $result = $mydb->query($query);
- $mydb->close();
- if ($result)
- {
- return 1;
- }
- else $this->error = $mydb->lasterror();
- }
- else $this->error = 'Failed to connect to SPIP';
- }
- else $this->error = 'BadSPIPConfiguration';
- }
- else $this->error = 'SPIPNotEnabled';
- return 0;
- }
- /**
- * Fonction qui enleve les droits redacteurs dans spip
- *
- * @param Object $object Object with data (->login)
- * @return int =0 if KO, >0 if OK
- */
- function del_to_spip($object)
- {
- dol_syslog(get_class($this)."::del_to_spip");
- if ($this->isSpipEnabled())
- {
- if ($this->checkSpipConfig())
- {
- $mydb = $this->connectSpip();
- if ($mydb)
- {
- $query = "DELETE FROM spip_auteurs WHERE login='".$object->login."'";
- $result = $mydb->query($query);
- $mydb->close();
- if ($result)
- {
- return 1;
- }
- else $this->error = $mydb->lasterror();
- }
- else $this->error = 'Failed to connect to SPIP';
- }
- else $this->error = 'BadSPIPConfiguration';
- }
- else $this->error = 'SPIPNotEnabled';
- return 0;
- }
- /**
- * Fonction qui dit si cet utilisateur est un redacteur existant dans spip
- *
- * @param Object $object Object with data (->login)
- * @return int 1=exists, 0=does not exists, -1=error
- */
- function is_in_spip($object)
- {
- if ($this->isSpipEnabled())
- {
- if ($this->checkSpipConfig())
- {
- $mydb = $this->connectSpip();
- if ($mydb)
- {
- $query = "SELECT login FROM spip_auteurs WHERE login='".$object->login."'";
- $result = $mydb->query($query);
- if ($result)
- {
- if ($mydb->num_rows($result))
- {
- // nous avons au moins une reponse
- $mydb->close($result);
- return 1;
- }
- else
- {
- // nous n'avons pas de reponse => n'existe pas
- $mydb->close($result);
- return 0;
- }
- }
- else
- {
- $this->error = $mydb->lasterror();
- $mydb->close();
- }
- }
- else $this->error = 'Failed to connect to SPIP';
- }
- else $this->error = 'BadSPIPConfiguration';
- }
- else $this->error = 'SPIPNotEnabled';
- return -1;
- }
- /**
- * Subscribe an email to all mailing-lists
- *
- * @param Object $object Object with data (->email, ->pass, ->element, ->type)
- * @param array $listes To force mailing-list (string separated with ,)
- * @return int <0 if KO, >=0 if OK
- */
- function add_to_mailman($object,$listes='')
- {
- global $conf,$langs,$user;
- dol_syslog(get_class($this)."::add_to_mailman");
- if (! function_exists("curl_init"))
- {
- $langs->load("errors");
- $this->error=$langs->trans("ErrorFunctionNotAvailableInPHP","curl_init");
- return -1;
- }
- if (! empty($conf->global->ADHERENT_MAILMAN_URL))
- {
- if ($listes == '' && ! empty($conf->global->ADHERENT_MAILMAN_LISTS))
- {
- $lists=explode(',',$conf->global->ADHERENT_MAILMAN_LISTS);
- }
- else
- {
- $lists=explode(',',$listes);
- }
- foreach ($lists as $list)
- {
- // Filter on type something (ADHERENT_MAILMAN_LISTS = "filtervalue:mailinglist1,filtervalue2:mailinglist2,mailinglist3")
- $tmp=explode(':',$list);
- if (! empty($tmp[1]))
- {
- $list=$tmp[1];
- if ($object->element == 'member' && $object->type != $tmp[0]) // Filter on member type label
- {
- dol_syslog("We ignore list ".$list." because object member type ".$object->type." does not match ".$tmp[0], LOG_DEBUG);
- continue;
- }
- }
- //We call Mailman to subscribe the user
- $result = $this->callMailman($object, $conf->global->ADHERENT_MAILMAN_URL);
- if ($result === false)
- {
- return -2;
- }
- }
- return count($lists);
- }
- else
- {
- $this->error="ADHERENT_MAILMAN_URL not defined";
- return -1;
- }
- }
- /**
- * Unsubscribe an email from all mailing-lists
- * Used when a user is resiliated
- *
- * @param Object $object Object with data (->email, ->pass, ->element, ->type)
- * @param array $listes To force mailing-list (string separated with ,)
- * @return int <0 if KO, >=0 if OK
- */
- function del_to_mailman($object,$listes='')
- {
- global $conf,$langs,$user;
- if (! empty($conf->global->ADHERENT_MAILMAN_UNSUB_URL))
- {
- if ($listes=='' && ! empty($conf->global->ADHERENT_MAILMAN_LISTS))
- {
- $lists=explode(',',$conf->global->ADHERENT_MAILMAN_LISTS);
- }
- else
- {
- $lists=explode(',',$listes);
- }
- foreach ($lists as $list)
- {
- // Filter on type something (ADHERENT_MAILMAN_LISTS = "filtervalue:mailinglist1,filtervalue2:mailinglist2,mailinglist3")
- $tmp=explode(':',$list);
- if (! empty($tmp[1]))
- {
- if ($object->element == 'member' && $object->type != $tmp[1]) // Filter on member type label
- {
- continue;
- }
- }
- //We call Mailman to unsubscribe the user
- $result = $this->callMailman($object, $conf->global->ADHERENT_MAILMAN_UNSUB_URL);
- if ($result === false)
- {
- return -2;
- }
- }
- return count($lists);
- }
- else
- {
- $this->error="ADHERENT_MAILMAN_UNSUB_URL not defined";
- return -1;
- }
- }
- }
- ?>