php/phpxmlrpc/extras/test.pl

   1 #!/usr/local/bin/perl\r
   2 \r
   3 use Frontier::Client;\r
   4 \r
   5 my $serverURL='http://phpxmlrpc.sourceforge.net/server.php';\r
   6 \r
   7 # try the simplest example\r
   8 \r
   9 my $client = Frontier::Client->new( 'url' => $serverURL,\r
  10                 'debug' => 0, 'encoding' => 'iso-8859-1' );\r
  11 my $resp = $client->call("examples.getStateName", 32);\r
  12 \r
  13 print "Got '${resp}'\n";\r
  14 \r
  15 # now send a mail to nobody in particular\r
  16 \r
  17 $resp = $client->call("mail.send", ("edd", "Test",  \r
  18         "Bonjour. Je m'appelle Gérard. Mañana. ", "freddy", "", "", \r
  19         'text/plain; charset="iso-8859-1"'));\r
  20 \r
  21 if ($resp->value()) {\r
  22         print "Mail sent OK.\n";\r
  23 } else {\r
  24         print "Error sending mail.\n";\r
  25 }\r
  26 \r
  27 # test echoing of characters works fine\r
  28 \r
  29 $resp = $client->call("examples.echo", 'Three "blind" mice - ' . \r
  30         "See 'how' they run");\r
  31 print $resp . "\n";\r
  32 \r
  33 # test name and age example. this exercises structs and arrays \r
  34 \r
  35 $resp = $client->call("examples.sortByAge", \r
  36                                                                                         [ { 'name' => 'Dave', 'age' => 35},\r
  37                                                                                                 { 'name' => 'Edd', 'age' => 45 },\r
  38                                                                                                 { 'name' => 'Fred', 'age' => 23 },\r
  39                                                                                                 { 'name' => 'Barney', 'age' => 36 } ] );\r
  40 \r
  41 my $e;\r
  42 foreach $e (@$resp) {\r
  43         print $$e{'name'} . ", " . $$e{'age'} . "\n";\r
  44 }\r
  45 \r
  46 # test base64\r
  47 \r
  48 $resp = $client->call("examples.decode64", \r
  49                                                                                         $client->base64("TWFyeSBoYWQgYSBsaXR0bGUgbGFtYiBTaGUgd" .\r
  50                                                                                                                                                         "GllZCBpdCB0byBhIHB5bG9u"));\r
  51 \r
  52 print $resp . "\n";\r