use Frontier::Client;
-my $serverURL='http://gggeek.altervista.org/sw/xmlrpc/demo/server/server.php';
+my $serverURL='http://localhost/demo/server/server.php';
# try the simplest example
# now send a mail to nobody in particular
-$resp = $client->call("mail.send", (
- "edd",
- "Test",
- "Bonjour. Je m'appelle Gérard. Mañana. ",
- "freddy",
- "",
- "",
- 'text/plain; charset="iso-8859-1"')
-);
-
-if ($resp->value()) {
- print "Mail sent OK.\n";
-} else {
- print "Error sending mail.\n";
-}
+#$resp = $client->call("mail.send", (
+# "edd",
+# "Test",
+# "Bonjour. Je m'appelle Gérard. Mañana. ",
+# "freddy",
+# "",
+# "",
+# 'text/plain; charset="iso-8859-1"')
+#);
+#
+#if ($resp->value()) {
+# print "Mail sent OK.\n";
+#} else {
+# print "Error sending mail.\n";
+#}
# test echoing of characters works fine
print (r)
# name/age example. this exercises structs and arrays
-
a = [
{'name': 'Dave', 'age': 35}, {'name': 'Edd', 'age': 45 },
{'name': 'Fred', 'age': 23}, {'name': 'Barney', 'age': 36 }
# test base 64
b = 'Mary had a little lamb She tied it to a pylon'
b = base64.b64encode(b.encode('ascii'))
- #print(b)
r = server.examples.decode64(b)
print (r)
print("A fault occurred")
print("Fault code: %d" % err.faultCode)
print("Fault string: %s" % err.faultString)
-
set -e
DEBIAN_FRONTEND=noninteractive apt-get install -y \
- apt install libexpat1-dev
+ libexpat1-dev
yes | perl -MCPAN -e 'install XML::Parser'
yes | perl -MCPAN -e 'install Frontier::Client'