summaryrefslogtreecommitdiffstats
path: root/Bugzilla/WebService/Server
diff options
context:
space:
mode:
authorDave Lawrence <dlawrence@mozilla.com>2012-02-15 16:59:08 +0100
committerDave Lawrence <dlawrence@mozilla.com>2012-02-15 16:59:08 +0100
commit3d4edc9bd64bf54e5c8de528904a428d30503f3a (patch)
tree4900703cc75f09da280eb537ee155fe9ebc803a7 /Bugzilla/WebService/Server
parent0081744381d7f56b4d41f1cdce4bf2c6e3991967 (diff)
downloadbugzilla-3d4edc9bd64bf54e5c8de528904a428d30503f3a.tar.gz
bugzilla-3d4edc9bd64bf54e5c8de528904a428d30503f3a.tar.xz
Bug 724464 - JSON-RPC support shouldn't require SOAP::Lite
r/a=LpSolit
Diffstat (limited to 'Bugzilla/WebService/Server')
-rw-r--r--Bugzilla/WebService/Server/XMLRPC.pm14
1 files changed, 14 insertions, 0 deletions
diff --git a/Bugzilla/WebService/Server/XMLRPC.pm b/Bugzilla/WebService/Server/XMLRPC.pm
index b74d0eebd..5c3677993 100644
--- a/Bugzilla/WebService/Server/XMLRPC.pm
+++ b/Bugzilla/WebService/Server/XMLRPC.pm
@@ -31,6 +31,20 @@ if ($ENV{MOD_PERL}) {
use Bugzilla::WebService::Constants;
+# Allow WebService methods to call XMLRPC::Lite's type method directly
+BEGIN {
+ *Bugzilla::WebService::type = sub {
+ my ($self, $type, $value) = @_;
+ if ($type eq 'dateTime') {
+ # This is the XML-RPC implementation, see the README in Bugzilla/WebService/.
+ # Our "base" implementation is in Bugzilla::WebService::Server.
+ $value = Bugzilla::WebService::Server->datetime_format_outbound($value);
+ $value =~ s/-//g;
+ }
+ return XMLRPC::Data->type($type)->value($value);
+ };
+}
+
sub initialize {
my $self = shift;
my %retval = $self->SUPER::initialize(@_);