Update docs
[plcapi.git] / debugger / action.php
1 <?php
2 /**
3  * @author Gaetano Giunta
4  * @copyright (C) 2005-2015 G. Giunta
5  * @license code licensed under the BSD License: see file license.txt
6  *
7  * @todo switch params for http compression from 0,1,2 to values to be used directly
8  * @todo use ob_start to catch debug info and echo it AFTER method call results?
9  * @todo be smarter in creating client stub for proxy/auth cases: only set appropriate property of client obj
10  **/
11
12 header('Content-Type: text/html; charset=utf-8');
13
14 ?>
15 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
16     "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
17 <html xmlns="http://www.w3.org/1999/xhtml">
18 <head>
19     <title>XMLRPC Debugger</title>
20     <meta name="robots" content="index,nofollow"/>
21     <style type="text/css">
22         <!--
23         body {
24             border-top: 1px solid gray;
25             padding: 1em;
26             font-family: Verdana, Arial, Helvetica;
27             font-size: 8pt;
28         }
29
30         h3 {
31             font-size: 9.5pt;
32         }
33
34         h2 {
35             font-size: 12pt;
36         }
37
38         .dbginfo {
39             padding: 1em;
40             background-color: #EEEEEE;
41             border: 1px dashed silver;
42             font-family: monospace;
43         }
44
45         #response {
46             padding: 1em;
47             margin-top: 1em;
48             background-color: #DDDDDD;
49             border: 1px solid gray;
50             white-space: pre;
51             font-family: monospace;
52         }
53
54         table {
55             padding: 2px;
56             margin-top: 1em;
57         }
58
59         th {
60             background-color: navy;
61             color: white;
62             padding: 0.5em;
63         }
64
65         td {
66             padding: 0.5em;
67             font-family: monospace;
68         }
69
70         td form {
71             margin: 0;
72         }
73
74         .oddrow {
75             background-color: #EEEEEE;
76         }
77
78         .evidence {
79             color: blue;
80         }
81
82         #phpcode {
83             background-color: #EEEEEE;
84             padding: 1em;
85             margin-top: 1em;
86         }
87
88         -->
89     </style>
90 </head>
91 <body>
92 <?php
93
94 include __DIR__ . '/common.php';
95 if ($action) {
96
97     include_once __DIR__ . "/../src/Autoloader.php";
98     PhpXmlRpc\Autoloader::register();
99
100     // make sure the script waits long enough for the call to complete...
101     if ($timeout) {
102         set_time_limit($timeout + 10);
103     }
104
105     if ($wstype == 1) {
106         @include 'jsonrpc.inc';
107         if (!class_exists('jsonrpc_client')) {
108             die('Error: to debug the jsonrpc protocol the jsonrpc.inc file is needed');
109         }
110         $clientClass = 'PhpJsRpc\Client';
111         $requestClass = 'PhpJsRpc\Request';
112         $protoName = 'JSONRPC';
113     } else {
114         $clientClass = 'PhpXmlRpc\Client';
115         $requestClass = 'PhpXmlRpc\Request';
116         $protoName = 'XMLRPC';
117     }
118
119     if ($port != "") {
120         $client = new $clientClass($path, $host, $port);
121         $server = "$host:$port$path";
122     } else {
123         $client = new $clientClass($path, $host);
124         $server = "$host$path";
125     }
126     if ($protocol == 2) {
127         $server = 'https://' . $server;
128     } else {
129         $server = 'http://' . $server;
130     }
131     if ($proxy != '') {
132         $pproxy = explode(':', $proxy);
133         if (count($pproxy) > 1) {
134             $pport = $pproxy[1];
135         } else {
136             $pport = 8080;
137         }
138         $client->setProxy($pproxy[0], $pport, $proxyuser, $proxypwd);
139     }
140
141     if ($protocol == 2) {
142         $client->setSSLVerifyPeer($verifypeer);
143         $client->setSSLVerifyHost($verifyhost);
144         if ($cainfo) {
145             $client->setCaCertificate($cainfo);
146         }
147         $httpprotocol = 'https';
148     } elseif ($protocol == 1) {
149         $httpprotocol = 'http11';
150     } else {
151         $httpprotocol = 'http';
152     }
153
154     if ($username) {
155         $client->setCredentials($username, $password, $authtype);
156     }
157
158     $client->setDebug($debug);
159
160     switch ($requestcompression) {
161         case 0:
162             $client->request_compression = '';
163             break;
164         case 1:
165             $client->request_compression = 'gzip';
166             break;
167         case 2:
168             $client->request_compression = 'deflate';
169             break;
170     }
171
172     switch ($responsecompression) {
173         case 0:
174             $client->accepted_compression = '';
175             break;
176         case 1:
177             $client->accepted_compression = array('gzip');
178             break;
179         case 2:
180             $client->accepted_compression = array('deflate');
181             break;
182         case 3:
183             $client->accepted_compression = array('gzip', 'deflate');
184             break;
185     }
186
187     $cookies = explode(',', $clientcookies);
188     foreach ($cookies as $cookie) {
189         if (strpos($cookie, '=')) {
190             $cookie = explode('=', $cookie);
191             $client->setCookie(trim($cookie[0]), trim(@$cookie[1]));
192         }
193     }
194
195     $msg = array();
196     switch ($action) {
197         // fall thru intentionally
198         case 'describe':
199         case 'wrap':
200             $msg[0] = new $requestClass('system.methodHelp', array(), $id);
201             $msg[0]->addparam(new PhpXmlRpc\Value($method));
202             $msg[1] = new $requestClass('system.methodSignature', array(), $id + 1);
203             $msg[1]->addparam(new PhpXmlRpc\Value($method));
204             $actionname = 'Description of method "' . $method . '"';
205             break;
206         case 'list':
207             $msg[0] = new $requestClass('system.listMethods', array(), $id);
208             $actionname = 'List of available methods';
209             break;
210         case 'execute':
211             if (!payload_is_safe($payload)) {
212                 die("Tsk tsk tsk, please stop it or I will have to call in the cops!");
213             }
214             $msg[0] = new $requestClass($method, array(), $id);
215             // hack! build xml payload by hand
216             if ($wstype == 1) {
217                 $msg[0]->payload = "{\n" .
218                     '"method": "' . $method . "\",\n\"params\": [" .
219                     $payload .
220                     "\n],\n\"id\": ";
221                 // fix: if user gave an empty string, use NULL, or we'll break json syntax
222                 if ($id == "") {
223                     $msg[0]->payload .= "null\n}";
224                 } else {
225                     if (is_numeric($id) || $id == 'false' || $id == 'true' || $id == 'null') {
226                         $msg[0]->payload .= "$id\n}";
227                     } else {
228                         $msg[0]->payload .= "\"$id\"\n}";
229                     }
230                 }
231             } else {
232                 $msg[0]->payload = $msg[0]->xml_header($inputcharset) .
233                     '<methodName>' . $method . "</methodName>\n<params>" .
234                     $payload .
235                     "</params>\n" . $msg[0]->xml_footer();
236             }
237             $actionname = 'Execution of method ' . $method;
238             break;
239         default: // give a warning
240             $actionname = '[ERROR: unknown action] "' . $action . '"';
241     }
242
243     // Before calling execute, echo out brief description of action taken + date and time ???
244     // this gives good user feedback for long-running methods...
245     echo '<h2>' . htmlspecialchars($actionname, ENT_COMPAT, $inputcharset) . ' on server ' . htmlspecialchars($server, ENT_COMPAT, $inputcharset) . " ...</h2>\n";
246     flush();
247
248     $response = null;
249     // execute method(s)
250     if ($debug) {
251         echo '<div class="dbginfo"><h2>Debug info:</h2>';
252     }  /// @todo use ob_start instead
253     $resp = array();
254     $time = microtime(true);
255     foreach ($msg as $message) {
256         // catch errors: for older xmlrpc libs, send does not return by ref
257         @$response = $client->send($message, $timeout, $httpprotocol);
258         $resp[] = $response;
259         if (!$response || $response->faultCode()) {
260             break;
261         }
262     }
263     $time = microtime(true) - $time;
264     if ($debug) {
265         echo "</div>\n";
266     }
267
268     if ($response) {
269         if ($response->faultCode()) {
270             // call failed! echo out error msg!
271             //echo '<h2>'.htmlspecialchars($actionname, ENT_COMPAT, $inputcharset).' on server '.htmlspecialchars($server, ENT_COMPAT, $inputcharset).'</h2>';
272             echo "<h3>$protoName call FAILED!</h3>\n";
273             echo "<p>Fault code: [" . htmlspecialchars($response->faultCode(), ENT_COMPAT, \PhpXmlRpc\PhpXmlRpc::$xmlrpc_internalencoding) .
274                 "] Reason: '" . htmlspecialchars($response->faultString(), ENT_COMPAT, \PhpXmlRpc\PhpXmlRpc::$xmlrpc_internalencoding) . "'</p>\n";
275             echo(strftime("%d/%b/%Y:%H:%M:%S\n"));
276         } else {
277             // call succeeded: parse results
278             //echo '<h2>'.htmlspecialchars($actionname, ENT_COMPAT, $inputcharset).' on server '.htmlspecialchars($server, ENT_COMPAT, $inputcharset).'</h2>';
279             printf("<h3>%s call(s) OK (%.2f secs.)</h3>\n", $protoName, $time);
280             echo(strftime("%d/%b/%Y:%H:%M:%S\n"));
281
282             switch ($action) {
283                 case 'list':
284
285                     $v = $response->value();
286                     if ($v->kindOf() == "array") {
287                         $max = $v->count();
288                         echo "<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n";
289                         echo "<thead>\n<tr><th>Method ($max)</th><th>Description</th></tr>\n</thead>\n<tbody>\n";
290                         for ($i = 0; $i < $max; $i++) {
291                             $rec = $v->arraymem($i);
292                             if ($i % 2) {
293                                 $class = ' class="oddrow"';
294                             } else {
295                                 $class = ' class="evenrow"';
296                             }
297                             echo("<tr><td$class>" . htmlspecialchars($rec->scalarval(), ENT_COMPAT, \PhpXmlRpc\PhpXmlRpc::$xmlrpc_internalencoding) . "</td><td$class><form action=\"controller.php\" method=\"get\" target=\"frmcontroller\">" .
298                                 "<input type=\"hidden\" name=\"host\" value=\"" . htmlspecialchars($host, ENT_COMPAT, $inputcharset) . "\" />" .
299                                 "<input type=\"hidden\" name=\"port\" value=\"" . htmlspecialchars($port, ENT_COMPAT, $inputcharset) . "\" />" .
300                                 "<input type=\"hidden\" name=\"path\" value=\"" . htmlspecialchars($path, ENT_COMPAT, $inputcharset) . "\" />" .
301                                 "<input type=\"hidden\" name=\"id\" value=\"" . htmlspecialchars($id, ENT_COMPAT, $inputcharset) . "\" />" .
302                                 "<input type=\"hidden\" name=\"debug\" value=\"$debug\" />" .
303                                 "<input type=\"hidden\" name=\"username\" value=\"" . htmlspecialchars($username, ENT_COMPAT, $inputcharset) . "\" />" .
304                                 "<input type=\"hidden\" name=\"password\" value=\"" . htmlspecialchars($password, ENT_COMPAT, $inputcharset) . "\" />" .
305                                 "<input type=\"hidden\" name=\"authtype\" value=\"$authtype\" />" .
306                                 "<input type=\"hidden\" name=\"verifyhost\" value=\"$verifyhost\" />" .
307                                 "<input type=\"hidden\" name=\"verifypeer\" value=\"$verifypeer\" />" .
308                                 "<input type=\"hidden\" name=\"cainfo\" value=\"" . htmlspecialchars($cainfo, ENT_COMPAT, $inputcharset) . "\" />" .
309                                 "<input type=\"hidden\" name=\"proxy\" value=\"" . htmlspecialchars($proxy, ENT_COMPAT, $inputcharset) . "\" />" .
310                                 "<input type=\"hidden\" name=\"proxyuser\" value=\"" . htmlspecialchars($proxyuser, ENT_COMPAT, $inputcharset) . "\" />" .
311                                 "<input type=\"hidden\" name=\"proxypwd\" value=\"" . htmlspecialchars($proxypwd, ENT_COMPAT, $inputcharset) . "\" />" .
312                                 "<input type=\"hidden\" name=\"responsecompression\" value=\"$responsecompression\" />" .
313                                 "<input type=\"hidden\" name=\"requestcompression\" value=\"$requestcompression\" />" .
314                                 "<input type=\"hidden\" name=\"clientcookies\" value=\"" . htmlspecialchars($clientcookies, ENT_COMPAT, $inputcharset) . "\" />" .
315                                 "<input type=\"hidden\" name=\"protocol\" value=\"$protocol\" />" .
316                                 "<input type=\"hidden\" name=\"timeout\" value=\"" . htmlspecialchars($timeout, ENT_COMPAT, $inputcharset) . "\" />" .
317                                 "<input type=\"hidden\" name=\"method\" value=\"" . htmlspecialchars($rec->scalarval(), ENT_COMPAT, \PhpXmlRpc\PhpXmlRpc::$xmlrpc_internalencoding) . "\" />" .
318                                 "<input type=\"hidden\" name=\"wstype\" value=\"$wstype\" />" .
319                                 "<input type=\"hidden\" name=\"action\" value=\"describe\" />" .
320                                 "<input type=\"hidden\" name=\"run\" value=\"now\" />" .
321                                 "<input type=\"submit\" value=\"Describe\" /></form></td>");
322                             //echo("</tr>\n");
323
324                             // generate the skeleton for method payload per possible tests
325                             //$methodpayload="<methodCall>\n<methodName>".$rec->scalarval()."</methodName>\n<params>\n<param><value></value></param>\n</params>\n</methodCall>";
326
327                             /*echo ("<form action=\"{$_SERVER['PHP_SELF']}\" method=\"get\"><td>".
328                               "<input type=\"hidden\" name=\"host\" value=\"$host\" />".
329                               "<input type=\"hidden\" name=\"port\" value=\"$port\" />".
330                               "<input type=\"hidden\" name=\"path\" value=\"$path\" />".
331                               "<input type=\"hidden\" name=\"method\" value=\"".$rec->scalarval()."\" />".
332                               "<input type=\"hidden\" name=\"methodpayload\" value=\"$payload\" />".
333                               "<input type=\"hidden\" name=\"action\" value=\"execute\" />".
334                               "<input type=\"submit\" value=\"Test\" /></td></form>");*/
335                             echo("</tr>\n");
336                         }
337                         echo "</tbody>\n</table>";
338                     }
339                     break;
340
341                 case 'describe':
342
343                     $r1 = $resp[0]->value();
344                     $r2 = $resp[1]->value();
345
346                     echo "<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n";
347                     echo "<thead>\n<tr><th>Method</th><th>" . htmlspecialchars($method, ENT_COMPAT, $inputcharset) . "</th><th>&nbsp;</th><th>&nbsp;</th></tr>\n</thead>\n<tbody>\n";
348                     $desc = htmlspecialchars($r1->scalarval(), ENT_COMPAT, \PhpXmlRpc\PhpXmlRpc::$xmlrpc_internalencoding);
349                     if ($desc == "") {
350                         $desc = "-";
351                     }
352                     echo "<tr><td class=\"evenrow\">Description</td><td colspan=\"3\" class=\"evenrow\">$desc</td></tr>\n";
353
354                     if ($r2->kindOf() != "array") {
355                         echo "<tr><td class=\"oddrow\">Signature</td><td class=\"oddrow\">Unknown</td><td class=\"oddrow\">&nbsp;</td></tr>\n";
356                     } else {
357                         for ($i = 0; $i < $r2->arraysize(); $i++) {
358                             $payload = "";
359                             $alt_payload = "";
360                             if ($i + 1 % 2) {
361                                 $class = ' class="oddrow"';
362                             } else {
363                                 $class = ' class="evenrow"';
364                             }
365                             echo "<tr><td$class>Signature&nbsp;" . ($i + 1) . "</td><td$class>";
366                             $x = $r2->arraymem($i);
367                             if ($x->kindOf() == "array") {
368                                 $ret = $x->arraymem(0);
369                                 echo "<code>OUT:&nbsp;" . htmlspecialchars($ret->scalarval(), ENT_COMPAT, \PhpXmlRpc\PhpXmlRpc::$xmlrpc_internalencoding) . "<br />IN: (";
370                                 if ($x->count() > 1) {
371                                     for ($k = 1; $k < $x->arraysize(); $k++) {
372                                         $y = $x->arraymem($k);
373                                         echo htmlspecialchars($y->scalarval(), ENT_COMPAT, \PhpXmlRpc\PhpXmlRpc::$xmlrpc_internalencoding);
374                                         if ($wstype != 1) {
375                                             $type = $y->scalarval();
376                                             $payload .= '<param><value>';
377                                             switch($type) {
378                                                 case 'undefined':
379                                                     break;
380                                                 case 'null';
381                                                     $type = 'nil';
382                                                     // fall thru intentionally
383                                                 default:
384                                                     $payload .= '<' .
385                                                         htmlspecialchars($type, ENT_COMPAT, \PhpXmlRpc\PhpXmlRpc::$xmlrpc_internalencoding) .
386                                                         '></' . htmlspecialchars($type, ENT_COMPAT, \PhpXmlRpc\PhpXmlRpc::$xmlrpc_internalencoding) .
387                                                         '>';
388                                             }
389                                             $payload .= "</value></param>\n";
390                                         }
391                                         $alt_payload .= $y->scalarval();
392                                         if ($k < $x->count() - 1) {
393                                             $alt_payload .= ';';
394                                             echo ", ";
395                                         }
396                                     }
397                                 }
398                                 echo ")</code>";
399                             } else {
400                                 echo 'Unknown';
401                             }
402                             echo '</td>';
403                             // button to test this method
404                             //$payload="<methodCall>\n<methodName>$method</methodName>\n<params>\n$payload</params>\n</methodCall>";
405                             echo "<td$class><form action=\"controller.php\" target=\"frmcontroller\" method=\"get\">" .
406                                 "<input type=\"hidden\" name=\"host\" value=\"" . htmlspecialchars($host, ENT_COMPAT, $inputcharset) . "\" />" .
407                                 "<input type=\"hidden\" name=\"port\" value=\"" . htmlspecialchars($port, ENT_COMPAT, $inputcharset) . "\" />" .
408                                 "<input type=\"hidden\" name=\"path\" value=\"" . htmlspecialchars($path, ENT_COMPAT, $inputcharset) . "\" />" .
409                                 "<input type=\"hidden\" name=\"id\" value=\"" . htmlspecialchars($id, ENT_COMPAT, $inputcharset) . "\" />" .
410                                 "<input type=\"hidden\" name=\"debug\" value=\"$debug\" />" .
411                                 "<input type=\"hidden\" name=\"username\" value=\"" . htmlspecialchars($username, ENT_COMPAT, $inputcharset) . "\" />" .
412                                 "<input type=\"hidden\" name=\"password\" value=\"" . htmlspecialchars($password, ENT_COMPAT, $inputcharset) . "\" />" .
413                                 "<input type=\"hidden\" name=\"authtype\" value=\"$authtype\" />" .
414                                 "<input type=\"hidden\" name=\"verifyhost\" value=\"$verifyhost\" />" .
415                                 "<input type=\"hidden\" name=\"verifypeer\" value=\"$verifypeer\" />" .
416                                 "<input type=\"hidden\" name=\"cainfo\" value=\"" . htmlspecialchars($cainfo, ENT_COMPAT, $inputcharset) . "\" />" .
417                                 "<input type=\"hidden\" name=\"proxy\" value=\"" . htmlspecialchars($proxy, ENT_COMPAT, $inputcharset) . "\" />" .
418                                 "<input type=\"hidden\" name=\"proxyuser\" value=\"" . htmlspecialchars($proxyuser, ENT_COMPAT, $inputcharset) . "\" />" .
419                                 "<input type=\"hidden\" name=\"proxypwd\" value=\"" . htmlspecialchars($proxypwd, ENT_COMPAT, $inputcharset) . "\" />" .
420                                 "<input type=\"hidden\" name=\"responsecompression\" value=\"$responsecompression\" />" .
421                                 "<input type=\"hidden\" name=\"requestcompression\" value=\"$requestcompression\" />" .
422                                 "<input type=\"hidden\" name=\"clientcookies\" value=\"" . htmlspecialchars($clientcookies, ENT_COMPAT, $inputcharset) . "\" />" .
423                                 "<input type=\"hidden\" name=\"protocol\" value=\"$protocol\" />" .
424                                 "<input type=\"hidden\" name=\"timeout\" value=\"" . htmlspecialchars($timeout, ENT_COMPAT, $inputcharset) . "\" />" .
425                                 "<input type=\"hidden\" name=\"method\" value=\"" . htmlspecialchars($method, ENT_COMPAT, $inputcharset) . "\" />" .
426                                 "<input type=\"hidden\" name=\"methodpayload\" value=\"" . htmlspecialchars($payload, ENT_COMPAT, $inputcharset) . "\" />" .
427                                 "<input type=\"hidden\" name=\"altmethodpayload\" value=\"" . htmlspecialchars($alt_payload, ENT_COMPAT, $inputcharset) . "\" />" .
428                                 "<input type=\"hidden\" name=\"wstype\" value=\"$wstype\" />" .
429                                 "<input type=\"hidden\" name=\"action\" value=\"execute\" />";
430                             if ($wstype != 1) {
431                                 echo "<input type=\"submit\" value=\"Load method synopsis\" />";
432                             }
433                             echo "</form></td>\n";
434
435                             echo "<td$class><form action=\"controller.php\" target=\"frmcontroller\" method=\"get\">" .
436                                 "<input type=\"hidden\" name=\"host\" value=\"" . htmlspecialchars($host, ENT_COMPAT, $inputcharset) . "\" />" .
437                                 "<input type=\"hidden\" name=\"port\" value=\"" . htmlspecialchars($port, ENT_COMPAT, $inputcharset) . "\" />" .
438                                 "<input type=\"hidden\" name=\"path\" value=\"" . htmlspecialchars($path, ENT_COMPAT, $inputcharset) . "\" />" .
439                                 "<input type=\"hidden\" name=\"id\" value=\"" . htmlspecialchars($id, ENT_COMPAT, $inputcharset) . "\" />" .
440                                 "<input type=\"hidden\" name=\"debug\" value=\"$debug\" />" .
441                                 "<input type=\"hidden\" name=\"username\" value=\"" . htmlspecialchars($username, ENT_COMPAT, $inputcharset) . "\" />" .
442                                 "<input type=\"hidden\" name=\"password\" value=\"" . htmlspecialchars($password, ENT_COMPAT, $inputcharset) . "\" />" .
443                                 "<input type=\"hidden\" name=\"authtype\" value=\"$authtype\" />" .
444                                 "<input type=\"hidden\" name=\"verifyhost\" value=\"$verifyhost\" />" .
445                                 "<input type=\"hidden\" name=\"verifypeer\" value=\"$verifypeer\" />" .
446                                 "<input type=\"hidden\" name=\"cainfo\" value=\"" . htmlspecialchars($cainfo, ENT_COMPAT, $inputcharset) . "\" />" .
447                                 "<input type=\"hidden\" name=\"proxy\" value=\"" . htmlspecialchars($proxy, ENT_COMPAT, $inputcharset) . "\" />" .
448                                 "<input type=\"hidden\" name=\"proxyuser\" value=\"" . htmlspecialchars($proxyuser, ENT_COMPAT, $inputcharset) . "\" />" .
449                                 "<input type=\"hidden\" name=\"proxypwd\" value=\"" . htmlspecialchars($proxypwd, ENT_COMPAT, $inputcharset) . "\" />" .
450                                 "<input type=\"hidden\" name=\"responsecompression\" value=\"$responsecompression\" />" .
451                                 "<input type=\"hidden\" name=\"requestcompression\" value=\"$requestcompression\" />" .
452                                 "<input type=\"hidden\" name=\"clientcookies\" value=\"" . htmlspecialchars($clientcookies, ENT_COMPAT, $inputcharset) . "\" />" .
453                                 "<input type=\"hidden\" name=\"protocol\" value=\"$protocol\" />" .
454                                 "<input type=\"hidden\" name=\"timeout\" value=\"" . htmlspecialchars($timeout, ENT_COMPAT, $inputcharset) . "\" />" .
455                                 "<input type=\"hidden\" name=\"method\" value=\"" . htmlspecialchars($method, ENT_COMPAT, $inputcharset) . "\" />" .
456                                 "<input type=\"hidden\" name=\"methodsig\" value=\"" . $i . "\" />" .
457                                 "<input type=\"hidden\" name=\"methodpayload\" value=\"" . htmlspecialchars($payload, ENT_COMPAT, $inputcharset) . "\" />" .
458                                 "<input type=\"hidden\" name=\"altmethodpayload\" value=\"" . htmlspecialchars($alt_payload, ENT_COMPAT, $inputcharset) . "\" />" .
459                                 "<input type=\"hidden\" name=\"wstype\" value=\"$wstype\" />" .
460                                 "<input type=\"hidden\" name=\"run\" value=\"now\" />" .
461                                 "<input type=\"hidden\" name=\"action\" value=\"wrap\" />" .
462                                 "<input type=\"submit\" value=\"Generate method call stub code\" />";
463                             echo "</form></td></tr>\n";
464                         }
465                     }
466                     echo "</tbody>\n</table>";
467
468                     break;
469
470                 case 'wrap':
471                     $r1 = $resp[0]->value();
472                     $r2 = $resp[1]->value();
473                     if ($r2->kindOf() != "array" || $r2->count() <= $methodsig) {
474                         echo "Error: signature unknown\n";
475                     } else {
476                         $mdesc = $r1->scalarval();
477                         $encoder = new PhpXmlRpc\Encoder();
478                         $msig = $encoder->decode($r2);
479                         $msig = $msig[$methodsig];
480                         $proto = $protocol == 2 ? 'https' : $protocol == 1 ? 'http11' : '';
481                         if ($proxy == '' && $username == '' && !$requestcompression && !$responsecompression &&
482                             $clientcookies == ''
483                         ) {
484                             $opts = 1; // simple client copy in stub code
485                         } else {
486                             $opts = 0; // complete client copy in stub code
487                         }
488                         if ($wstype == 1) {
489                             $prefix = 'jsonrpc';
490                         } else {
491                             $prefix = 'xmlrpc';
492                         }
493                         $wrapper = new PhpXmlRpc\Wrapper();
494                         $code = $wrapper->buildWrapMethodSource($client, $method, array('timeout' => $timeout, 'protocol' => $proto, 'simple_client_copy' => $opts, 'prefix' => $prefix), str_replace('.', '_', $prefix . '_' . $method), $msig, $mdesc);
495                         //if ($code)
496                         //{
497                         echo "<div id=\"phpcode\">\n";
498                         highlight_string("<?php\n" . $code['docstring'] . $code['source'] . '?>');
499                         echo "\n</div>";
500                         //}
501                         //else
502                         //{
503                         //  echo 'Error while building php code stub...';
504                     }
505
506                     break;
507
508                 case 'execute':
509                     echo '<div id="response"><h2>Response:</h2>' . htmlspecialchars($response->serialize()) . '</div>';
510                     break;
511
512                 default: // give a warning
513             }
514         } // if !$response->faultCode()
515     } // if $response
516 } else {
517     // no action taken yet: give some instructions on debugger usage
518     ?>
519
520     <h3>Instructions on usage of the debugger</h3>
521     <ol>
522         <li>Run a 'list available methods' action against desired server</li>
523         <li>If list of methods appears, click on 'describe method' for desired method</li>
524         <li>To run method: click on 'load method synopsis' for desired method. This will load a skeleton for method call
525             parameters in the form above. Complete all xmlrpc values with appropriate data and click 'Execute'
526         </li>
527     </ol>
528     <?php
529     if (!extension_loaded('curl')) {
530         echo "<p class=\"evidence\">You will need to enable the CURL extension to use the HTTPS and HTTP 1.1 transports</p>\n";
531     }
532     ?>
533
534     <h3>Example</h3>
535     <p>
536         Server Address: phpxmlrpc.sourceforge.net<br/>
537         Path: /server.php
538     </p>
539
540     <h3>Notice</h3>
541     <p>all usernames and passwords entered on the above form will be written to the web server logs of this server. Use
542         with care.</p>
543
544     <h3>Changelog</h3>
545     <ul>
546         <li>2015-05-30: fix problems with generating method payloads for NIL and Undefined parameters</li>
547         <li>2015-04-19: fix problems with LATIN-1 characters in payload</li>
548         <li>2007-02-20: add visual editor for method payload; allow strings, bools as jsonrpc msg id</li>
549         <li>2006-06-26: support building php code stub for calling remote methods</li>
550         <li>2006-05-25: better support for long running queries; check for no-curl installs</li>
551         <li>2006-05-02: added support for JSON-RPC. Note that many interesting json-rpc features are not implemented
552             yet, such as notifications or multicall.
553         </li>
554         <li>2006-04-22: added option for setting custom CA certs to verify peer with in SSLmode</li>
555         <li>2006-03-05: added option for setting Basic/Digest/NTLM auth type</li>
556         <li>2006-01-18: added option echoing to screen xmlrpc request before sending it ('More' debug)</li>
557         <li>2005-10-01: added option for setting cookies to be sent to server</li>
558         <li>2005-08-07: added switches for compression of requests and responses and http 1.1</li>
559         <li>2005-06-27: fixed possible security breach in parsing malformed xml</li>
560         <li>2005-06-24: fixed error with calling methods having parameters...</li>
561     </ul>
562 <?php
563
564 }
565 ?>
566 </body>
567 </html>