blob: 5c66b8e9414396b9556bbc389156a7def3b94de4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
<?php
//
// +----------------------------------------------------------------------+
// | PHP version 4.0 |
// +----------------------------------------------------------------------+
// | Copyright (c) 1997-2001 The PHP Group |
// +----------------------------------------------------------------------+
// | This source file is subject to version 2.02 of the PHP license, |
// | that is bundled with this package in the file LICENSE, and is |
// | available at through the world-wide-web at |
// | http://www.php.net/license/2_02.txt. |
// | If you did not receive a copy of the PHP license and are unable to |
// | obtain it through the world-wide-web, please send a note to |
// | license@php.net so we can mail you a copy immediately. |
// +----------------------------------------------------------------------+
// | Authors: Stig Bakken <ssb@fast.no> |
// | |
// +----------------------------------------------------------------------+
//
// $Id$
require_once 'PEAR.php';
/**
* This is a class for doing remote operations against the central
* PEAR database.
*/
class PEAR_Remote extends PEAR
{
// {{{ properties
var $config_object = null;
// }}}
// {{{ PEAR_Remote(config_object)
function PEAR_Remote($config_object)
{
$this->PEAR();
$this->config_object = $config_object;
}
// }}}
// {{{ call(method, [args...])
function call($method)
{
if (!extension_loaded("xmlrpc")) {
return $this->raiseError("xmlrpc support not loaded");
}
$params = array_slice(func_get_args(), 1);
$request = xmlrpc_encode_request($method, $params);
$server_host = $this->config_object->get("master_server");
$server_port = 80;
flush();
$fp = @fsockopen($server_host, $server_port);
if (!$fp) {
return $this->raiseError("PEAR_Remote::call: connect failed");
}
$len = strlen($request);
fwrite($fp, ("POST /xmlrpc.php HTTP/1.0\r\n".
"Host: $server_host:$server_port\r\n".
"Content-type: text/xml\r\n".
"Content-length: $len\r\n".
"\r\n$request"));
$response = '';
while (trim(fgets($fp, 2048)) != ''); // skip headers
while ($chunk = fread($fp, 10240)) {
$response .= $chunk;
}
fclose($fp);
return xmlrpc_decode($response);
}
// }}}
}
?>
|
