build/testcases/xmlrpc-metaWeblog-newMediaObject.php

   1 <?php
   2 /*
   3         Test call to the nucleus XML-RPC server sending a metaWeblog.newMediaObject request
   4
   5         Wouter Demuynck / 2003-08-31
   6 */
   7
   8 // URL of XML-RPC server
   9 $serverHost = 'localhost';
  10 $serverPort = 8080;
  11 $serverPath = '/nucleus/nucleus/xmlrpc/server.php';
  12
  13 include('../../config.php');
  14 include($DIR_LIBS . 'xmlrpc.inc.php');
  15
  16 // get file data
  17 $filename = '../../nucleus/nucleus.gif';
  18 $fh = fopen($filename,'rb');
  19 $data = fread ($fh, filesize ($filename));
  20 fclose($fh);
  21
  22 $f=new xmlrpcmsg(
  23         'metaWeblog.newMediaObject',
  24          array(
  25                 new xmlrpcval('1', 'string'),                   // memberid
  26                 new xmlrpcval('example', 'string'),                     // username
  27                 new xmlrpcval('example', 'string'),             // password
  28                 new xmlrpcval(array(                                    // data
  29                                 'name' => new xmlrpcval('myImage.gif', 'string'),
  30                                 'type' => new xmlrpcval('image/gif', 'string'),
  31                                 'bits' => new xmlrpcval($data, 'base64')
  32                         ),
  33                         'struct'
  34                 )
  35          )
  36  );
  37
  38
  39   $c=new xmlrpc_client($serverPath, $serverHost, $serverPort);
  40   $c->setDebug(1);
  41   $r=$c->send($f);
  42   $v=$r->value();
  43
  44
  45   if (!$r->faultCode()) {
  46         echo 'succes!';
  47   } else {
  48       print "Fault: ";
  49       print "Code: " . $r->faultCode() .
  50             " Reason '" .$r->faultString()."'<BR>";
  51   }
  52
  53
  54
  55 ?>