Dolibarr offre des fonctions Web services nativement

dd90bf5c · Laurent Destailleur · 6ac72c91 · dd90bf5c
Commit dd90bf5c authored 18 years ago by Laurent Destailleur
--- a/htdocs/webservices_client.php
+++ b/htdocs/webservices_client.php
+<?php
+/* Copyright (C) 2006 Laurent Destailleur  <eldy@users.sourceforge.net>
+ *
+ * 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 2 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, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+ *
+ * $Id$
+ * $Source$
+ */
+
+/**
+        \file       htdocs/webservices_client.php
+        \brief      Page demo client appel WebServices Dolibarr
+        \version    $Revision$
+*/
+
+require_once("./master.inc.php");
+require_once(NUSOAP_PATH.'/nusoap.php');		// Include SOAP
+
+$WS_DOL_URL = $dolibarr_main_url_root.'/webservices.php';
+$WS_METHOD  = 'getVersions';
+
+// Set the parameters to send to the WebService
+$parameters = array("param1"=>"value1");
+
+// Set the WebService URL
+dolibarr_syslog("Create soapclient for URL=".$WS_DOL_URL);
+$soapclient = new soapclient($WS_DOL_URL);
+if ($soapclient)
+{
+	
+}
+
+// Call the WebService method and store its result in $result.
+dolibarr_syslog("Call method ".$WS_METHOD);
+$result = $soapclient->call($WS_METHOD,$parameters);
+
+// Show page with result
+header("Content-type: text/html; charset=iso-8859-1");
+print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">'."\n";
+echo '<html>'."\n";
+echo '<head>';
+echo '<title>WebService Test: '.$WS_METHOD.'</title>';
+echo '</head>'."\n";
+
+echo '<body>'."\n";
+
+echo "<h2>Question</h2>";
+echo '<h4>Function</h4>';
+echo $WS_METHOD;
+echo '<h4>Request</h4>';
+echo '<pre>' . htmlspecialchars($client->request, ENT_QUOTES) . '</pre>';
+
+echo "<h2>Réponse</h2>";
+echo '<h4>Result</h4>';
+echo '<pre>';
+print_r($result);
+echo '</pre>';
+echo '<h4>Response</h4>';
+echo '<pre>' . htmlspecialchars($client->response, ENT_QUOTES) . '</pre>';
+
+echo '</body>'."\n";;
+echo '</html>'."\n";;
+?>