OSDN Git Service

This commit was generated by cvs2svn to compensate for changes in r4,
[nucleus-jp/nucleus-jp-ancient.git] / euc / build / testcases / xmlrpc-mt-getTrackbackPings.php
1 <?php\r
2 /*\r
3         Test call to the nucleus XML-RPC server sending a mt.setPostCategories request\r
4         \r
5         Wouter Demuynck / 2003-09-28\r
6 */\r
7 \r
8 // URL of XML-RPC server\r
9 $serverHost = 'localhost';\r
10 $serverPost = 80;\r
11 $serverPath = '/release/nucleus/xmlrpc/server.php';\r
12         \r
13 include('../../config.php');\r
14 include($DIR_LIBS . 'xmlrpc.inc.php');\r
15 \r
16 $f=new xmlrpcmsg(\r
17         'mt.getTrackbackPings',\r
18          array(\r
19                 new xmlrpcval('1637', 'string')                 // itemid\r
20                 )\r
21  );\r
22          \r
23 \r
24   $c=new xmlrpc_client($serverPath, $serverHost, $serverPort);\r
25   $c->setDebug(1);\r
26   $r=$c->send($f);\r
27   $v=$r->value();\r
28 \r
29 \r
30   if (!$r->faultCode()) {\r
31         echo 'succes!';\r
32   } else {\r
33       print "Fault: ";\r
34       print "Code: " . $r->faultCode() . \r
35             " Reason '" .$r->faultString()."'<BR>";\r
36   }\r
37         \r
38 \r
39         \r
40 ?>