[Sommaire] [Imprimer]

   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  // http://doc.spip.org/@exec_instituer_auteur_dist
  16  function exec_instituer_auteur_dist()
  17  {
  18      $script = _request('script');
  19      $id_auteur = intval(_request('id_auteur'));
  20      if (!preg_match('/^\w+$/', $script))
  21            {include_spip('minipres');
  22          echo minipres();
  23          exit;
  24            }
  25  
  26      $r = spip_fetch_array(spip_query("SELECT statut FROM spip_auteurs WHERE id_auteur=$id_auteur"));
  27  
  28      $instituer_auteur = charger_fonction('instituer_auteur', 'inc');
  29      ajax_retour($instituer_auteur($id_auteur, $r['statut'], $script));
  30  }
  31  ?>