ecrire/action/editer_auteur.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2007                                                *
   7  *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
   8  *                                                                         *
   9  *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
  10  *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
  11 \***************************************************************************/
  12
  13 if (!defined("_ECRIRE_INC_VERSION")) return;
  14
  15 include_spip('inc/filtres');
  16 include_spip('inc/acces');
  17 include_spip('base/abstract_sql');
  18
  19 // http://doc.spip.org/@action_editer_auteur_dist
  20 function action_editer_auteur_dist() {
  21         $securiser_action = charger_fonction('securiser_action', 'inc');
  22         $arg = $securiser_action();
  23
  24         if (!preg_match(",^(\d+)$,", $arg, $r)) {
  25                 $r = "action_editer_auteur_dist $arg pas compris";
  26                 spip_log($r);
  27         } else {
  28                 $url = action_legender_auteur_post($r);
  29                 redirige_par_entete($url);
  30         }
  31 }
  32
  33 // http://doc.spip.org/@action_legender_auteur_post
  34 function action_legender_auteur_post($r) {
  35         global $auteur_session;
  36
  37         $bio = _request('bio');
  38         $champs_extra = _request('champs_extra');
  39         $email = _request('email');
  40         $new_login = _request('new_login');
  41         $new_pass = _request('new_pass');
  42         $new_pass2 = _request('new_pass2');
  43         $nom_site_auteur = _request('nom_site_auteur');
  44         $perso_activer_imessage = _request('perso_activer_imessage');
  45         $pgp = _request('pgp');
  46         $redirect = _request('redirect');
  47         $statut = _request('statut');
  48         $url_site = _request('url_site');
  49
  50         $echec = array();
  51
  52
  53         list($tout, $id_auteur, $ajouter_id_article,$x,$s) = $r;
  54 //
  55 // si id_auteur est hors table, c'est une creation sinon une modif
  56 //
  57           $auteur = array();
  58           if ($id_auteur) {
  59                 $auteur = spip_fetch_array(spip_query("SELECT * FROM spip_auteurs WHERE id_auteur=$id_auteur"));
  60           }
  61           if (!$auteur) {
  62                 $id_auteur = 0;
  63                 $source = 'spip';
  64                 $statut = '1comite'; // statut par defaut
  65                 if ($s) {
  66                   if (ereg("^(0minirezo|1comite|5poubelle|6forum)$",$s))
  67                     $statut = $s;
  68                   else spip_log("action_legender_auteur_dist: statut $s incompris");
  69                 }
  70           }
  71
  72           $acces = ($id_auteur == $auteur_session['id_auteur']) ? true : " a voir ";
  73           $auteur['nom'] = corriger_caracteres(_request('nom'));
  74
  75         // login et mot de passe
  76         $modif_login = false;
  77         $old_login = $auteur['login'];
  78
  79         if (isset($new_login)
  80         AND ($new_login<>$old_login)
  81         AND ($auteur['source'] == 'spip' OR !$GLOBALS['ldap_present'])) {
  82                 if (admin_general($auteur_session)) {
  83                         $acces = true;
  84                         if ($new_login) {
  85                                 if (strlen($new_login) < 4)
  86                                         $echec[]= 'info_login_trop_court';
  87                                 else {
  88                                         $n = spip_fetch_array(spip_query("SELECT COUNT(*) AS n FROM spip_auteurs WHERE login=" . _q($new_login) . " AND id_auteur!=$id_auteur AND statut!='5poubelle'"));
  89                                         if ($n['n'])
  90                                                 $echec[]= 'info_login_existant';
  91                                         else if ($new_login != $old_login) {
  92                                                 $modif_login = true;
  93                                                 $auteur['login'] = $new_login;
  94                                         }
  95                                 }
  96                         }
  97                 // suppression du login
  98                         else {
  99                                 $auteur['login'] = '';
 100                                 $modif_login = true;
 101                         }
 102                 }
 103         }
 104
 105         // changement de pass, a securiser en jaja ?
 106
 107         if ($new_pass AND ($statut != '5poubelle') AND $auteur['login'] AND $auteur['source'] == 'spip') {
 108                 if (is_string($acces))
 109                         $acces = admin_general($auteur_session);
 110                 if ($acces) {
 111                         if ($new_pass != $new_pass2)
 112                                 $echec[]= 'info_passes_identiques';
 113                         else if ($new_pass AND strlen($new_pass) < 6)
 114                                 $echec[]= 'info_passe_trop_court';
 115                         else {
 116                                 $modif_login = true;
 117                                 $auteur['new_pass'] = $new_pass;
 118                         }
 119                 }
 120         }
 121
 122         if ($modif_login AND ($auteur['id_auteur']<>$auteur_session['id_auteur'])) {
 123                 // supprimer les sessions de cet auteur
 124                 $session = charger_fonction('session', 'inc');
 125                 $session($auteur['id_auteur']);
 126         }
 127
 128         // seuls les admins peuvent modifier le mail
 129         // les admins restreints ne peuvent modifier celui des autres admins
 130
 131         if (is_string(_request('email')) AND $auteur_session['statut'] == '0minirezo') {
 132                 if (!($ok = ($statut <> '0minirezo'))) {
 133                         if (is_string($acces))
 134                                 $acces = admin_general($auteur_session);
 135                 }
 136
 137                 if ($ok OR $acces) {
 138                         $email = trim($email);
 139                         if ($email !='' AND !email_valide($email))
 140                                 $echec[]= 'info_email_invalide';
 141                         $auteur['email'] = $email;
 142                 }
 143         }
 144
 145         if ($auteur_session['id_auteur'] == $id_auteur) {
 146                 if ($perso_activer_imessage) {
 147                         spip_query("UPDATE spip_auteurs SET imessage='$perso_activer_imessage' WHERE id_auteur=$id_auteur");
 148                         $auteur['imessage'] = $perso_activer_imessage;
 149                 }
 150         }
 151
 152         // variables sans probleme
 153         $auteur['bio'] = corriger_caracteres($bio);
 154         $auteur['pgp'] = corriger_caracteres($pgp);
 155         $auteur['nom_site'] = corriger_caracteres($nom_site_auteur); // attention mix avec $nom_site_spip ;(
 156         $auteur['url_site'] = vider_url($url_site, false);
 157
 158         if ($new_pass) {
 159                 $htpass = generer_htpass($new_pass);
 160                 $alea_actuel = creer_uniqid();
 161                 $alea_futur = creer_uniqid();
 162                 $pass = md5($alea_actuel.$new_pass);
 163                 $query_pass = " pass='$pass', htpass='$htpass', alea_actuel='$alea_actuel', alea_futur='$alea_futur', ";
 164                 if ($auteur['id_auteur'])
 165                   effacer_low_sec($auteur['id_auteur']);
 166         } else
 167                 $query_pass = '';
 168
 169         // recoller les champs du extra
 170         if ($GLOBALS['champs_extra']) {
 171                 include_spip('inc/extra');
 172                 $extra = extra_recup_saisie("auteurs");
 173         } else
 174                 $extra = '';
 175
 176         // l'entrer dans la base
 177         if (!$echec) {
 178                 if (!$auteur['id_auteur']) { // creation si pas d'id
 179                         $auteur['id_auteur'] = $id_auteur = spip_abstract_insert("spip_auteurs", "(nom,statut)", "('temp','" . $statut . "')");
 180
 181                         // recuperer l'eventuel logo charge avant la creation
 182                         $id_hack = 0 - $GLOBALS['auteur_session']['id_auteur'];
 183                         $chercher_logo = charger_fonction('chercher_logo', 'inc');
 184                         if (list($logo) = $chercher_logo($id_hack, 'id_auteur', 'on'))
 185                                 rename($logo, str_replace($id_hack, $id_auteur, $logo));
 186                         if (list($logo) = $chercher_logo($id_hack, 'id_auteur', 'off'))
 187                                 rename($logo, str_replace($id_hack, $id_auteur, $logo));
 188                 }
 189
 190                 spip_query("UPDATE spip_auteurs SET $query_pass         nom=" . _q($auteur['nom']) . ",                                         login=" . _q($auteur['login']) . ",                                     bio=" . _q($auteur['bio']) . ",                                         email=" . _q($auteur['email']) . ",                                     nom_site=" . _q($auteur['nom_site']) . ",                               url_site=" . _q($auteur['url_site']) . ",                               pgp=" . _q($auteur['pgp']) .                                    (!$extra ? '' : (", extra = " . _q($extra) . "")) .                     " WHERE id_auteur=".$auteur['id_auteur']);
 191         }
 192
 193
 194         //
 195         // Modifications de statut
 196         //
 197         // TODO : autorisations correspondantes !
 198         //
 199         if ($statut = _request('statut')
 200         AND autoriser('modifier', 'auteur', $id_auteur, $qui = null,
 201         $opt = array('statut'=>$statut))) {
 202                 if (!ereg("^(0minirezo|1comite|5poubelle|6forum)$",$statut)) {
 203                   spip_log("action_instituer_auteur_dist: $statut incompris  pour $id_auteur");
 204                 } else {
 205                         spip_query("UPDATE spip_auteurs SET statut="._q($statut) . " WHERE id_auteur=" . _q($id_auteur));
 206                 }
 207         }
 208
 209         // Rubriques restreintes
 210         $restreintes = _request('restreintes');
 211         if ($id_parent = intval(_request('id_parent'))) {
 212                 if (is_array($restreintes))
 213                         $restreintes[] = $id_parent;
 214                 else
 215                         $restreintes = array($id_parent);
 216         }
 217         if (is_array($restreintes)
 218         AND autoriser('modifier', 'auteur', $id_auteur, $qui = null,
 219         $opt = array('restreint'=>$restreintes))) {
 220                 include_spip('base/abstract_sql');
 221                 spip_query("DELETE FROM spip_auteurs_rubriques WHERE id_auteur="._q($id_auteur));
 222                 foreach (array_unique($restreintes) as $id_rub)
 223                         if ($id_rub = intval($id_rub)) // si '0' on ignore
 224                                 spip_abstract_insert('spip_auteurs_rubriques', "(id_auteur,id_rubrique)", "($id_auteur,$id_rub)");
 225         }
 226
 227
 228         // Lier a un article
 229         if ($id_article = intval(_request('lier_id_article'))
 230         AND autoriser('modifier', 'article', $id_article)
 231         ) {
 232                 spip_query("INSERT spip_auteurs_articles (id_article,id_auteur) VALUES ($id_article,$id_auteur)");
 233         }
 234
 235         // Si on modifie la fiche auteur, reindexer
 236         if ($GLOBALS['meta']['activer_moteur'] == 'oui') {
 237                 include_spip("inc/indexation");
 238                 marquer_indexer('spip_auteurs', $id_auteur);
 239         }
 240         // ..et mettre a jour les fichiers .htpasswd et .htpasswd-admin
 241         ecrire_acces();
 242
 243         $echec = $echec ? '&echec=' . join('@@@', $echec) : '';
 244
 245         $redirect = rawurldecode($redirect);
 246
 247         if ($echec) {
 248                 // revenir au formulaire de saisie
 249                 $ret = !$redirect
 250                         ? ''
 251                         : ('&redirect=' . rawurlencode($redirect));
 252
 253                 return generer_url_ecrire('auteur_infos',
 254                         "id_auteur=$id_auteur$echec$ret",'&');
 255         } else {
 256                 // modif: renvoyer le resultat ou a nouveau le formulaire si erreur
 257                 if (!$redirect)
 258                         $redirect = generer_url_ecrire("auteur_infos", "id_auteur=$id_auteur", '&', true);
 259
 260                 return $redirect;
 261         }
 262 }
 263
 264 // http://doc.spip.org/@admin_general
 265 function admin_general($session)
 266 {
 267         static $ok;
 268         if (!isset($ok)) {
 269                 include_spip('inc/auth');
 270         $ok = ($session['statut']=='0minirezo')
 271         AND !spip_num_rows(spip_query("SELECT id_rubrique FROM spip_auteurs_rubriques WHERE id_auteur=" .$session['id_auteur'] ." AND id_rubrique!='0' LIMIT 1"));
 272         }
 273
 274         return $ok;
 275 }
 276
 277
 278 ?>