1 #!/usr/local/bin/perl
\r
3 use Frontier::Client;
\r
5 my $serverURL='http://phpxmlrpc.sourceforge.net/server.php';
\r
7 # try the simplest example
\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
13 print "Got '${resp}'\n";
\r
15 # now send a mail to nobody in particular
\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
21 if ($resp->value()) {
\r
22 print "Mail sent OK.\n";
\r
24 print "Error sending mail.\n";
\r
27 # test echoing of characters works fine
\r
29 $resp = $client->call("examples.echo", 'Three "blind" mice - ' .
\r
30 "See 'how' they run");
\r
33 # test name and age example. this exercises structs and arrays
\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
42 foreach $e (@$resp) {
\r
43 print $$e{'name'} . ", " . $$e{'age'} . "\n";
\r
48 $resp = $client->call("examples.decode64",
\r
49 $client->base64("TWFyeSBoYWQgYSBsaXR0bGUgbGFtYiBTaGUgd" .
\r
50 "GllZCBpdCB0byBhIHB5bG9u"));
\r