Add proxy setup for travis tests
[plcapi.git] / demo / vardemo.php
1 <html>
2 <head><title>xmlrpc</title></head>
3 <body>
4 <?php
5 include_once __DIR__ . "/../vendor/autoload.php";
6
7 include_once __DIR__ . "/../lib/xmlrpc.inc";
8
9 $f = new xmlrpcmsg('examples.getStateName');
10
11 print "<h3>Testing value serialization</h3>\n";
12
13 $v = new xmlrpcval(23, "int");
14 print "<PRE>" . htmlentities($v->serialize()) . "</PRE>";
15 $v = new xmlrpcval("What are you saying? >> << &&");
16 print "<PRE>" . htmlentities($v->serialize()) . "</PRE>";
17
18 $v = new xmlrpcval(array(
19     new xmlrpcval("ABCDEFHIJ"),
20     new xmlrpcval(1234, 'int'),
21     new xmlrpcval(1, 'boolean'),),
22     "array"
23 );
24
25 print "<PRE>" . htmlentities($v->serialize()) . "</PRE>";
26
27 $v = new xmlrpcval(
28     array(
29         "thearray" => new xmlrpcval(
30             array(
31                 new xmlrpcval("ABCDEFHIJ"),
32                 new xmlrpcval(1234, 'int'),
33                 new xmlrpcval(1, 'boolean'),
34                 new xmlrpcval(0, 'boolean'),
35                 new xmlrpcval(true, 'boolean'),
36                 new xmlrpcval(false, 'boolean'),
37             ),
38             "array"
39         ),
40         "theint" => new xmlrpcval(23, 'int'),
41         "thestring" => new xmlrpcval("foobarwhizz"),
42         "thestruct" => new xmlrpcval(
43             array(
44                 "one" => new xmlrpcval(1, 'int'),
45                 "two" => new xmlrpcval(2, 'int'),
46             ),
47             "struct"
48         ),
49     ),
50     "struct"
51 );
52
53 print "<PRE>" . htmlentities($v->serialize()) . "</PRE>";
54
55 $w = new xmlrpcval(array($v, new xmlrpcval("That was the struct!")), "array");
56
57 print "<PRE>" . htmlentities($w->serialize()) . "</PRE>";
58
59 $w = new xmlrpcval("Mary had a little lamb,
60 Whose fleece was white as snow,
61 And everywhere that Mary went
62 the lamb was sure to go.
63
64 Mary had a little lamb
65 She tied it to a pylon
66 Ten thousand volts went down its back
67 And turned it into nylon", "base64"
68 );
69 print "<PRE>" . htmlentities($w->serialize()) . "</PRE>";
70 print "<PRE>Value of base64 string is: '" . $w->scalarval() . "'</PRE>";
71
72 $f->method('');
73 $f->addParam(new xmlrpcval("41", "int"));
74
75 print "<h3>Testing request serialization</h3>\n";
76 $op = $f->serialize();
77 print "<PRE>" . htmlentities($op) . "</PRE>";
78
79 print "<h3>Testing ISO date format</h3><pre>\n";
80
81 $t = time();
82 $date = iso8601_encode($t);
83 print "Now is $t --> $date\n";
84 print "Or in UTC, that is " . iso8601_encode($t, 1) . "\n";
85 $tb = iso8601_decode($date);
86 print "That is to say $date --> $tb\n";
87 print "Which comes out at " . iso8601_encode($tb) . "\n";
88 print "Which was the time in UTC at " . iso8601_decode($date, 1) . "\n";
89
90 print "</pre>\n";
91 ?>
92 </body>
93 </html>