080b211e4e
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_22 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_22.tar.gz
68 lines
1.8 KiB
Perl
68 lines
1.8 KiB
Perl
#!/usr/bin/perl -w
|
|
package SOAP::WSDL::Serializer::XSD;
|
|
use strict;
|
|
use warnings;
|
|
use Class::Std::Storable;
|
|
|
|
our $VERSION='2.00_21';
|
|
|
|
my $SOAP_NS = 'http://schemas.xmlsoap.org/soap/envelope/';
|
|
my $XML_INSTANCE_NS = 'http://www.w3.org/2001/XMLSchema-instance';
|
|
|
|
sub serialize {
|
|
my ($self, $args_of_ref) = @_;
|
|
|
|
my $opt = $args_of_ref->{ options };
|
|
|
|
if (not $opt->{ namespace }->{ $SOAP_NS })
|
|
{
|
|
$opt->{ namespace }->{ $SOAP_NS } = 'SOAP-ENV';
|
|
}
|
|
|
|
if (not $opt->{ namespace }->{ $XML_INSTANCE_NS })
|
|
{
|
|
$opt->{ namespace }->{ $XML_INSTANCE_NS } = 'xsi';
|
|
}
|
|
|
|
my $soap_prefix = $opt->{ namespace }->{ $SOAP_NS };
|
|
|
|
# envelope start with namespaces
|
|
my $xml = "<$soap_prefix\:Envelope ";
|
|
|
|
while (my ($uri, $prefix) = each %{ $opt->{ namespace } })
|
|
{
|
|
$xml .= "xmlns:$prefix=\"$uri\" ";
|
|
}
|
|
|
|
# TODO insert encoding
|
|
$xml.='>';
|
|
$xml .= $self->serialize_header($args_of_ref->{ method }, $args_of_ref->{ header }, $opt);
|
|
$xml .= $self->serialize_body($args_of_ref->{ method }, $args_of_ref->{ body }, $opt);
|
|
$xml .= '</' . $soap_prefix .':Envelope>';
|
|
return $xml;
|
|
}
|
|
|
|
sub serialize_header {
|
|
my ($self, $name, $data, $opt) = @_;
|
|
|
|
# header is optional. Leave out if there's no header data
|
|
return q{} if not $data;
|
|
return join ( q{},
|
|
"<$opt->{ namespace }->{ $SOAP_NS }\:Header>",
|
|
"$data",
|
|
"</$opt->{ namespace }->{ $SOAP_NS }\:Header>",
|
|
);
|
|
}
|
|
|
|
sub serialize_body {
|
|
my ($self, $name, $data, $opt) = @_;
|
|
|
|
# Body is NOT optional. Serialize to empty body
|
|
# if we have no data.
|
|
return join ( q{},
|
|
"<$opt->{ namespace }->{ $SOAP_NS }\:Body>",
|
|
defined $data ? "$data" : (),
|
|
"</$opt->{ namespace }->{ $SOAP_NS }\:Body>",
|
|
);
|
|
}
|