[Sommaire] [Imprimer]

   1  <?php
   2  /*****************************************************
   3  * This file is part of Agora, web based content management system.
   4  *
   5  * Agora is free software; you can redistribute it and/or modify
   6  * it under the terms of the GNU General Public License as published by
   7  * the Free Software Foundation; version 2 of the License.
   8  *
   9  * Agora is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12  * GNU General Public License for more details (file "COPYING").
  13  *
  14  * Copyright © Arnaud Martin, Antoine Pitrou et Philippe Rivière.
  15  * List of authors detailed in "copyright_fr.html" file.
  16  * E-mail : agora@sig.premier-ministre.gouv.fr
  17  * Web site : http://www.agora.gouv.fr
  18  *****************************************************/
  19  /** 
  20   * Client SOAP (pour exemple).
  21   *
  22   * @version      $Id$
  23   * @author       Tristan Rivoallan <trivoallan@clever-age.com>
  24   */
  25  
  26  set_include_path(get_include_path(). ':' . '/usr/share/pear');
  27  
  28  require_once("SOAP/Client.php");
  29  
  30  $WSDL = &new SOAP_WSDL('http://localhost/agora/ecrire/include/ws/soap.php' . $_SERVER['PATH_INFO']. '?wsdl');
  31  $cli = &$WSDL->getProxy();
  32  
  33  $res = $cli->getTitre();
  34  
  35  if (PEAR::isError($res)) {
  36      trigger_error($res->getMessage(), E_USER_WARNING);
  37  }
  38  else {
  39      echo "<p>Titre de l'article : ", $res, '<p>';
  40  }
  41  
  42  $res = $cli->getTexte();
  43  
  44  if (PEAR::isError($res)) {
  45      trigger_error($res->getMessage(), E_USER_WARNING);
  46  }
  47  else {
  48      echo "<p>Texte de l'article : ", $res, '<p>';
  49  }
  50  ?>