Move from static logging calls to a singleton
[plcapi.git] / src / Request.php
1 <?php
2
3 namespace PhpXmlRpc;
4
5 use PhpXmlRpc\Helper\Http;
6 use PhpXmlRpc\Helper\XMLParser;
7 use PhpXmlRpc\Helper\Logger;
8
9 class Request
10 {
11     /// @todo: do these need to be public?
12     public $payload;
13     public $methodname;
14     public $params = array();
15     public $debug = 0;
16     public $content_type = 'text/xml';
17
18     // holds data while parsing the response. NB: Not a full Response object
19     protected $httpResponse = array();
20
21     /**
22      * @param string $methodName the name of the method to invoke
23      * @param Value[] $params array of parameters to be passed to the method (Value objects)
24      */
25     public function __construct($methodName, $params = array())
26     {
27         $this->methodname = $methodName;
28         foreach ($params as $param) {
29             $this->addParam($param);
30         }
31     }
32
33     public function xml_header($charsetEncoding = '')
34     {
35         if ($charsetEncoding != '') {
36             return "<?xml version=\"1.0\" encoding=\"$charsetEncoding\" ?" . ">\n<methodCall>\n";
37         } else {
38             return "<?xml version=\"1.0\"?" . ">\n<methodCall>\n";
39         }
40     }
41
42     public function xml_footer()
43     {
44         return '</methodCall>';
45     }
46
47     public function createPayload($charsetEncoding = '')
48     {
49         if ($charsetEncoding != '') {
50             $this->content_type = 'text/xml; charset=' . $charsetEncoding;
51         } else {
52             $this->content_type = 'text/xml';
53         }
54         $this->payload = $this->xml_header($charsetEncoding);
55         $this->payload .= '<methodName>' . $this->methodname . "</methodName>\n";
56         $this->payload .= "<params>\n";
57         foreach ($this->params as $p) {
58             $this->payload .= "<param>\n" . $p->serialize($charsetEncoding) .
59                 "</param>\n";
60         }
61         $this->payload .= "</params>\n";
62         $this->payload .= $this->xml_footer();
63     }
64
65     /**
66      * Gets/sets the xmlrpc method to be invoked.
67      *
68      * @param string $methodName the method to be set (leave empty not to set it)
69      *
70      * @return string the method that will be invoked
71      */
72     public function method($methodName = '')
73     {
74         if ($methodName != '') {
75             $this->methodname = $methodName;
76         }
77
78         return $this->methodname;
79     }
80
81     /**
82      * Returns xml representation of the message. XML prologue included.
83      *
84      * @param string $charsetEncoding
85      *
86      * @return string the xml representation of the message, xml prologue included
87      */
88     public function serialize($charsetEncoding = '')
89     {
90         $this->createPayload($charsetEncoding);
91
92         return $this->payload;
93     }
94
95     /**
96      * Add a parameter to the list of parameters to be used upon method invocation.
97      *
98      * @param Value $param
99      *
100      * @return boolean false on failure
101      */
102     public function addParam($param)
103     {
104         // add check: do not add to self params which are not xmlrpc values
105         if (is_object($param) && is_a($param, 'PhpXmlRpc\Value')) {
106             $this->params[] = $param;
107
108             return true;
109         } else {
110             return false;
111         }
112     }
113
114     /**
115      * Returns the nth parameter in the request. The index zero-based.
116      *
117      * @param integer $i the index of the parameter to fetch (zero based)
118      *
119      * @return Value the i-th parameter
120      */
121     public function getParam($i)
122     {
123         return $this->params[$i];
124     }
125
126     /**
127      * Returns the number of parameters in the message.
128      *
129      * @return integer the number of parameters currently set
130      */
131     public function getNumParams()
132     {
133         return count($this->params);
134     }
135
136     /**
137      * Given an open file handle, read all data available and parse it as an xmlrpc response.
138      * NB: the file handle is not closed by this function.
139      * NNB: might have trouble in rare cases to work on network streams, as we
140      *      check for a read of 0 bytes instead of feof($fp).
141      *      But since checking for feof(null) returns false, we would risk an
142      *      infinite loop in that case, because we cannot trust the caller
143      *      to give us a valid pointer to an open file...
144      *
145      * @param resource $fp stream pointer
146      *
147      * @return Response
148      *
149      * @todo add 2nd & 3rd param to be passed to ParseResponse() ???
150      */
151     public function parseResponseFile($fp)
152     {
153         $ipd = '';
154         while ($data = fread($fp, 32768)) {
155             $ipd .= $data;
156         }
157         return $this->parseResponse($ipd);
158     }
159
160     /**
161      * Parse the xmlrpc response contained in the string $data and return a Response object.
162      *
163      * @param string $data the xmlrpc response, eventually including http headers
164      * @param bool $headersProcessed when true prevents parsing HTTP headers for interpretation of content-encoding and consequent decoding
165      * @param string $returnType decides return type, i.e. content of response->value(). Either 'xmlrpcvals', 'xml' or 'phpvals'
166      *
167      * @return Response
168      */
169     public function parseResponse($data = '', $headersProcessed = false, $returnType = 'xmlrpcvals')
170     {
171         if ($this->debug) {
172             Logger::instance()->debugMessage("---GOT---\n$data\n---END---");
173         }
174
175         $this->httpResponse = array('raw_data' => $data, 'headers' => array(), 'cookies' => array());
176
177         if ($data == '') {
178             error_log('XML-RPC: ' . __METHOD__ . ': no response received from server.');
179             return new Response(0, PhpXmlRpc::$xmlrpcerr['no_data'], PhpXmlRpc::$xmlrpcstr['no_data']);
180         }
181
182         // parse the HTTP headers of the response, if present, and separate them from data
183         if (substr($data, 0, 4) == 'HTTP') {
184             $httpParser = new Http();
185             try {
186                 $this->httpResponse = $httpParser->parseResponseHeaders($data, $headersProcessed, $this->debug);
187             } catch(\Exception $e) {
188                 $r = new Response(0, $e->getCode(), $e->getMessage());
189                 // failed processing of HTTP response headers
190                 // save into response obj the full payload received, for debugging
191                 $r->raw_data = $data;
192
193                 return $r;
194             }
195         }
196
197         // be tolerant of extra whitespace in response body
198         $data = trim($data);
199
200         /// @todo return an error msg if $data=='' ?
201
202         // be tolerant of junk after methodResponse (e.g. javascript ads automatically inserted by free hosts)
203         // idea from Luca Mariano <luca.mariano@email.it> originally in PEARified version of the lib
204         $pos = strrpos($data, '</methodResponse>');
205         if ($pos !== false) {
206             $data = substr($data, 0, $pos + 17);
207         }
208
209         // try to 'guestimate' the character encoding of the received response
210         $respEncoding = XMLParser::guessEncoding(@$this->httpResponse['headers']['content-type'], $data);
211
212         if ($this->debug) {
213             $start = strpos($data, '<!-- SERVER DEBUG INFO (BASE64 ENCODED):');
214             if ($start) {
215                 $start += strlen('<!-- SERVER DEBUG INFO (BASE64 ENCODED):');
216                 $end = strpos($data, '-->', $start);
217                 $comments = substr($data, $start, $end - $start);
218                 Logger::instance()->debugMessage("---SERVER DEBUG INFO (DECODED) ---\n\t" .
219                     str_replace("\n", "\n\t", base64_decode($comments)) . "\n---END---", $respEncoding);
220             }
221         }
222
223         // if user wants back raw xml, give it to him
224         if ($returnType == 'xml') {
225             $r = new Response($data, 0, '', 'xml');
226             $r->hdrs = $this->httpResponse['headers'];
227             $r->_cookies = $this->httpResponse['cookies'];
228             $r->raw_data = $this->httpResponse['raw_data'];
229
230             return $r;
231         }
232
233         if ($respEncoding != '') {
234
235             // Since parsing will fail if charset is not specified in the xml prologue,
236             // the encoding is not UTF8 and there are non-ascii chars in the text, we try to work round that...
237             // The following code might be better for mb_string enabled installs, but
238             // makes the lib about 200% slower...
239             //if (!is_valid_charset($respEncoding, array('UTF-8')))
240             if (!in_array($respEncoding, array('UTF-8', 'US-ASCII')) && !XMLParser::hasEncoding($data)) {
241                 if ($respEncoding == 'ISO-8859-1') {
242                     $data = utf8_encode($data);
243                 } else {
244                     if (extension_loaded('mbstring')) {
245                         $data = mb_convert_encoding($data, 'UTF-8', $respEncoding);
246                     } else {
247                         error_log('XML-RPC: ' . __METHOD__ . ': invalid charset encoding of received response: ' . $respEncoding);
248                     }
249                 }
250             }
251         }
252
253         $parser = xml_parser_create();
254         xml_parser_set_option($parser, XML_OPTION_CASE_FOLDING, true);
255         // G. Giunta 2005/02/13: PHP internally uses ISO-8859-1, so we have to tell
256         // the xml parser to give us back data in the expected charset.
257         // What if internal encoding is not in one of the 3 allowed?
258         // we use the broadest one, ie. utf8
259         // This allows to send data which is native in various charset,
260         // by extending xmlrpc_encode_entities() and setting xmlrpc_internalencoding
261         if (!in_array(PhpXmlRpc::$xmlrpc_internalencoding, array('UTF-8', 'ISO-8859-1', 'US-ASCII'))) {
262             xml_parser_set_option($parser, XML_OPTION_TARGET_ENCODING, 'UTF-8');
263         } else {
264             xml_parser_set_option($parser, XML_OPTION_TARGET_ENCODING, PhpXmlRpc::$xmlrpc_internalencoding);
265         }
266
267         $xmlRpcParser = new XMLParser();
268         xml_set_object($parser, $xmlRpcParser);
269
270         if ($returnType == 'phpvals') {
271             xml_set_element_handler($parser, 'xmlrpc_se', 'xmlrpc_ee_fast');
272         } else {
273             xml_set_element_handler($parser, 'xmlrpc_se', 'xmlrpc_ee');
274         }
275
276         xml_set_character_data_handler($parser, 'xmlrpc_cd');
277         xml_set_default_handler($parser, 'xmlrpc_dh');
278
279         // first error check: xml not well formed
280         if (!xml_parse($parser, $data, count($data))) {
281             // thanks to Peter Kocks <peter.kocks@baygate.com>
282             if ((xml_get_current_line_number($parser)) == 1) {
283                 $errStr = 'XML error at line 1, check URL';
284             } else {
285                 $errStr = sprintf('XML error: %s at line %d, column %d',
286                     xml_error_string(xml_get_error_code($parser)),
287                     xml_get_current_line_number($parser), xml_get_current_column_number($parser));
288             }
289             error_log($errStr);
290             $r = new Response(0, PhpXmlRpc::$xmlrpcerr['invalid_return'], PhpXmlRpc::$xmlrpcstr['invalid_return'] . ' (' . $errStr . ')');
291             xml_parser_free($parser);
292             if ($this->debug) {
293                 print $errStr;
294             }
295             $r->hdrs = $this->httpResponse['headers'];
296             $r->_cookies = $this->httpResponse['cookies'];
297             $r->raw_data = $this->httpResponse['raw_data'];
298
299             return $r;
300         }
301         xml_parser_free($parser);
302         // second error check: xml well formed but not xml-rpc compliant
303         if ($xmlRpcParser->_xh['isf'] > 1) {
304             if ($this->debug) {
305                 /// @todo echo something for user?
306             }
307
308             $r = new Response(0, PhpXmlRpc::$xmlrpcerr['invalid_return'],
309                 PhpXmlRpc::$xmlrpcstr['invalid_return'] . ' ' . $xmlRpcParser->_xh['isf_reason']);
310         }
311         // third error check: parsing of the response has somehow gone boink.
312         // NB: shall we omit this check, since we trust the parsing code?
313         elseif ($returnType == 'xmlrpcvals' && !is_object($xmlRpcParser->_xh['value'])) {
314             // something odd has happened
315             // and it's time to generate a client side error
316             // indicating something odd went on
317             $r = new Response(0, PhpXmlRpc::$xmlrpcerr['invalid_return'],
318                 PhpXmlRpc::$xmlrpcstr['invalid_return']);
319         } else {
320             if ($this->debug) {
321                 Logger::instance()->debugMessage(
322                     "---PARSED---\n".var_export($xmlRpcParser->_xh['value'], true)."\n---END---"
323                 );
324             }
325
326             // note that using =& will raise an error if $xmlRpcParser->_xh['st'] does not generate an object.
327             $v = &$xmlRpcParser->_xh['value'];
328
329             if ($xmlRpcParser->_xh['isf']) {
330                 /// @todo we should test here if server sent an int and a string, and/or coerce them into such...
331                 if ($returnType == 'xmlrpcvals') {
332                     $errNo_v = $v->structmem('faultCode');
333                     $errStr_v = $v->structmem('faultString');
334                     $errNo = $errNo_v->scalarval();
335                     $errStr = $errStr_v->scalarval();
336                 } else {
337                     $errNo = $v['faultCode'];
338                     $errStr = $v['faultString'];
339                 }
340
341                 if ($errNo == 0) {
342                     // FAULT returned, errno needs to reflect that
343                     $errNo = -1;
344                 }
345
346                 $r = new Response(0, $errNo, $errStr);
347             } else {
348                 $r = new Response($v, 0, '', $returnType);
349             }
350         }
351
352         $r->hdrs = $this->httpResponse['headers'];
353         $r->_cookies = $this->httpResponse['cookies'];
354         $r->raw_data = $this->httpResponse['raw_data'];
355
356         return $r;
357     }
358 }