Testing value serialization\n";
$v = new PhpXmlRpc\Value(23, "int");
print "" . htmlentities($v->serialize()) . "
";
$v = new PhpXmlRpc\Value("What are you saying? >> << &&");
print "" . htmlentities($v->serialize()) . "
";
$v = new PhpXmlRpc\Value(
array(
new PhpXmlRpc\Value("ABCDEFHIJ"),
new PhpXmlRpc\Value(1234, 'int'),
new PhpXmlRpc\Value(1, 'boolean'),
),
"array"
);
print "" . htmlentities($v->serialize()) . "
";
$v = new PhpXmlRpc\Value(
array(
"thearray" => new PhpXmlRpc\Value(
array(
new PhpXmlRpc\Value("ABCDEFHIJ"),
new PhpXmlRpc\Value(1234, 'int'),
new PhpXmlRpc\Value(1, 'boolean'),
new PhpXmlRpc\Value(0, 'boolean'),
new PhpXmlRpc\Value(true, 'boolean'),
new PhpXmlRpc\Value(false, 'boolean'),
),
"array"
),
"theint" => new PhpXmlRpc\Value(23, 'int'),
"thestring" => new PhpXmlRpc\Value("foobarwhizz"),
"thestruct" => new PhpXmlRpc\Value(
array(
"one" => new PhpXmlRpc\Value(1, 'int'),
"two" => new PhpXmlRpc\Value(2, 'int'),
),
"struct"
),
),
"struct"
);
print "" . htmlentities($v->serialize()) . "
";
$w = new PhpXmlRpc\Value(array($v, new PhpXmlRpc\Value("That was the struct!")), "array");
print "" . htmlentities($w->serialize()) . "
";
$w = new PhpXmlRpc\Value("Mary had a little lamb,
Whose fleece was white as snow,
And everywhere that Mary went
the lamb was sure to go.
Mary had a little lamb
She tied it to a pylon
Ten thousand volts went down its back
And turned it into nylon", "base64"
);
print "" . htmlentities($w->serialize()) . "
";
print "Value of base64 string is: '" . $w->scalarval() . "'
";
$req->method('');
$req->addParam(new PhpXmlRpc\Value("41", "int"));
print "Testing request serialization
\n";
$op = $req->serialize();
print "" . htmlentities($op) . "
";
print "Testing ISO date format
\n";
$t = time();
$date = PhpXmlRpc\Helper\Date::iso8601Encode($t);
print "Now is $t --> $date\n";
print "Or in UTC, that is " . PhpXmlRpc\Helper\Date::iso8601Encode($t, 1) . "\n";
$tb = PhpXmlRpc\Helper\Date::iso8601Decode($date);
print "That is to say $date --> $tb\n";
print "Which comes out at " . PhpXmlRpc\Helper\Date::iso8601Encode($tb) . "\n";
print "Which was the time in UTC at " . PhpXmlRpc\Helper\Date::iso8601Encode($date, 1) . "\n";
print "
\n";
?>