2 /***************************************************************************
3 * Copyright (C) 2003-2008 Polytechnique.org *
4 * http://opensource.polytechnique.org/ *
6 * This program is free software; you can redistribute it and/or modify *
7 * it under the terms of the GNU General Public License as published by *
8 * the Free Software Foundation; either version 2 of the License, or *
9 * (at your option) any later version. *
11 * This program is distributed in the hope that it will be useful, *
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
14 * GNU General Public License for more details. *
16 * You should have received a copy of the GNU General Public License *
17 * along with this program; if not, write to the Free Software *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
22 /* taken from : http://fr2.php.net/xml-rpc
23 * Author mboeren@php.net
26 * $client = new xmlrpc_client("http://localhost:7080");
27 * print $client->echo('x')."\n";
28 * print $client->add(1, 3)."\n";
37 public function __construct($url)
40 $this->urlparts
= parse_url($this->url
);
42 if (empty($this->urlparts
['port'])) {
43 $this->urlparts
['port'] = 80;
46 if (empty($this->urlparts
['path'])) {
47 $this->urlparts
['path'] = '/';
51 private function http_post($request)
53 $host = $path = $port = $user = $pass = null
;
54 extract($this->urlparts
);
56 if ($scheme == 'https') {
57 $host = 'ssl://'.$host;
60 $query_fd = fsockopen($host, $port, $errno, $errstr, 10);
66 $auth = 'Authorization: Basic ' . base64_encode("$user:$pass") . "\r\n";
69 $content_len = strlen($request);
71 "POST $path HTTP/1.0\r\n" .
73 "Content-Type: text/xml\r\n" .
74 "Content-Length: $content_len\r\n" .
75 "Connection: Close\r\n" .
76 "Host: $host:$port\r\n" .
80 fputs($query_fd, $http_request, strlen($http_request));
83 while (!feof($query_fd)) {
84 $buf .= fread($query_fd, 8192);
91 private function find_and_decode_xml($buf)
93 $pos = strpos($buf, '<?xml');
95 return xmlrpc_decode(substr($buf, $pos));
97 trigger_error("Cannot parse XML\n".$buf);
100 public function __call($method, $args)
102 $query = xmlrpc_encode_request($method, $args);
104 $this->bt
->start($method . "\n" . var_export($args, true
));
106 $answer = $this->http_post($query, $this->urlparts
);
110 $result = $this->find_and_decode_xml($answer);
112 if (is_array($result) && isset($result['faultCode'])) {
113 $this->bt
->update(0, $result['faultString']);
115 $this->bt
->update(count($result));
119 if (is_array($result) && isset($result['faultCode'])) {
120 trigger_error("Error in xmlrpc call $function\n".
121 " code : {$result['faultCode']}\n".
122 " message: {$result['faultString']}\n");
129 // vim:set et sw=4 sts=4 sws=4 enc=utf-8: