Compare commits
2 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
9023aa06a4 | ||
|
|
3b30e8d0e2 |
2
Build.PL
2
Build.PL
@@ -5,7 +5,7 @@ $build = Module::Build->new(
|
||||
create_makefile_pl => 'small',
|
||||
dist_abstract => 'SOAP with WSDL support',
|
||||
dist_name => 'SOAP-WSDL',
|
||||
dist_version => '2.00.08',
|
||||
dist_version => '2.00.10',
|
||||
module_name => 'SOAP::WSDL',
|
||||
license => 'artistic',
|
||||
requires => {
|
||||
|
||||
40
Changes
40
Changes
@@ -1,4 +1,4 @@
|
||||
Release notes for SOAP::WSDL 2.00.07
|
||||
Release notes for SOAP::WSDL 2.00.10
|
||||
-------
|
||||
|
||||
I'm proud to present a new release of SOAP::WSDL.
|
||||
@@ -37,6 +37,44 @@ Features:
|
||||
|
||||
The following changes have been made:
|
||||
|
||||
2.00.10 - May 15 2009
|
||||
|
||||
The following bugs have been fixed (the numbers in square brackets are the
|
||||
tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
|
||||
The numbers with # are CPAN RT IDs (http://rt.cpan.org/).
|
||||
|
||||
* #44546: XML Schema types with names cuase errors when including anonymous types
|
||||
SOAP::WSDL now handles element names with "." correctly
|
||||
|
||||
* #45037 ComplexTypes' elements in different namespaces not serialized
|
||||
correctly
|
||||
SOAP::WSDL now serializes elements in different namespaces correctly
|
||||
|
||||
* #43769 Fault11 serialization issue when passed Element for detail
|
||||
The detail fault element is now automatically wrapped into an appropriate
|
||||
detail object and serialized correctly.
|
||||
Note that passing a list as details content is not supported yet.
|
||||
|
||||
* #43674 Fault not caught/propagated in SOAP::WSDL::Client::call
|
||||
Deserializer faults in SOAP::WSDL::Client now propagate correctly to the
|
||||
caller.
|
||||
|
||||
The following uncategorized improvements have been made:
|
||||
|
||||
* improved Java example: Commented test class
|
||||
|
||||
* improved documentation: Added Cookbook entry for HTTP Negotiate Authentication
|
||||
(Kerberos).
|
||||
|
||||
2.00.09 - Feb 22 2009
|
||||
|
||||
The following bugs have been fixed (the numbers in square brackets are the
|
||||
tracker IDs from https://sourceforge.net/tracker/?group_id=111978&atid=660921):
|
||||
The numbers with # are CPAN RT IDs (http://rt.cpan.org/).
|
||||
|
||||
* [ 2631555 ] Template used without version
|
||||
* [ 2631220 ] Faults generated with soap:Server actor
|
||||
|
||||
2.00.08 - Feb 22 2009
|
||||
|
||||
The following bugs have been fixed (the numbers in square brackets are the
|
||||
|
||||
77
MANIFEST
77
MANIFEST
@@ -197,6 +197,7 @@ lib/SOAP/WSDL/SOAP/Body.pm
|
||||
lib/SOAP/WSDL/SOAP/Header.pm
|
||||
lib/SOAP/WSDL/SOAP/HeaderFault.pm
|
||||
lib/SOAP/WSDL/SOAP/Operation.pm
|
||||
lib/SOAP/WSDL/SOAP/Typelib/Fault.pm
|
||||
lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm
|
||||
lib/SOAP/WSDL/Transport/HTTP.pm
|
||||
lib/SOAP/WSDL/Transport/Loopback.pm
|
||||
@@ -319,11 +320,6 @@ t/acceptance/wsdl/05_simpleType-restriction.wsdl
|
||||
t/acceptance/wsdl/05_simpleType-union.wsdl
|
||||
t/acceptance/wsdl/10_helloworld.asmx.xml
|
||||
t/acceptance/wsdl/11_helloworld.wsdl
|
||||
t/acceptance/wsdl/contributed/Axis.wsdl
|
||||
t/acceptance/wsdl/contributed/ETest.wsdl
|
||||
t/acceptance/wsdl/contributed/gasquery.wsdl
|
||||
t/acceptance/wsdl/contributed/OITest.wsdl
|
||||
t/acceptance/wsdl/contributed/tools.wsdl
|
||||
t/acceptance/wsdl/elementAtomicComplexType.xml
|
||||
t/acceptance/wsdl/email_account.wsdl
|
||||
t/acceptance/wsdl/generator_test.wsdl
|
||||
@@ -334,77 +330,6 @@ t/acceptance/wsdl/import.xsd
|
||||
t/acceptance/wsdl/import_loop.xsd
|
||||
t/acceptance/wsdl/message_gateway.wsdl
|
||||
t/acceptance/wsdl/nested_complextype.wsdl
|
||||
t/acceptance/wsdl/private/lib/MyElements/AddAttachment.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/AddAttachmentResponse.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/AddCalendarEntry.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/AddCalendarEntryResponse.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/AddTask.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/AddTaskResponse.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/AddUsersToGroup.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/AddUsersToGroupResponse.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/ClearGroup.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/ClearGroupResponse.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/CountItems.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/CountItemsResponse.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/CreateGroup.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/CreateGroupResponse.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/DeleteGroup.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/DeleteGroupResponse.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/DeleteItem.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/DeleteItemResponse.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/GetAttachment.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/GetAttachmentResponse.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/GetItems.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/GetItemsResponse.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/GetItemVersions.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/GetItemVersionsResponse.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/ModifyCalendarEntry.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/ModifyCalendarEntryResponse.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/ModifyTask.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/ModifyTaskResponse.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/RemoveUsersFromGroup.pm
|
||||
t/acceptance/wsdl/private/lib/MyElements/RemoveUsersFromGroupResponse.pm
|
||||
t/acceptance/wsdl/private/lib/MyInterfaces/RunningServiceClass/RunningServiceClassSoap.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypemaps/RunningServiceClass.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/ADDITIONAL_ROLES.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/AddressesSalutations.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/ArrayOfAttachment.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/ArrayOfField.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/ArrayOfNUser.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/ArrayOfPermission.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/ArrayOfSerializedItem.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/ArrayOfString.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/ArrayOfString1.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/ArrayOfString2.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/Attachment.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/AttachmentItemData.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/AttachmentOperation.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/CalendarCreateData.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/CalendarModifyData.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/CommonItemData.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/CountListOfSerializedItem.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/Field.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/Folders.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/GetFileResponse.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/HashMapOfStringNiceListOfAddressesSalutations.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/HstringAddressesSalutations.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/ItemCreateData.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/ItemData.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/ItemUpdateData.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/KVstringNiceListOfAddressesSalutations.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/NUser.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/Permission.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/PermissionItemData.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/Principal.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/PrincipalType.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/Recipients.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/SerializedItem.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/TaskModifyData.pm
|
||||
t/acceptance/wsdl/private/lib/MyTypes/UserType.pm
|
||||
t/acceptance/wsdl/private/PartnerManagement_header_def.wsdl
|
||||
t/acceptance/wsdl/private/PartnerManagement_lenght_.wsdl
|
||||
t/acceptance/wsdl/private/RunningService.wsdl
|
||||
t/acceptance/wsdl/private/RunningService.WSDL
|
||||
t/acceptance/wsdl/WSDLParser-import.wsdl
|
||||
t/acceptance/wsdl/WSDLParser-imported.wsdl
|
||||
t/acceptance/wsdl/WSDLParser.wsdl
|
||||
|
||||
171
META.yml
171
META.yml
@@ -1,12 +1,12 @@
|
||||
---
|
||||
name: SOAP-WSDL
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
author:
|
||||
- 'Martin Kutter <martin.kutter@fen-net.de>'
|
||||
abstract: SOAP with WSDL support
|
||||
license: artistic
|
||||
resources:
|
||||
license: ~
|
||||
license: http://opensource.org/licenses/artistic-license.php
|
||||
requires:
|
||||
Class::Std::Fast: 0.0.5
|
||||
Data::Dumper: 0
|
||||
@@ -41,220 +41,225 @@ build_requires:
|
||||
provides:
|
||||
SOAP::WSDL:
|
||||
file: lib/SOAP/WSDL.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Base:
|
||||
file: lib/SOAP/WSDL/Base.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Binding:
|
||||
file: lib/SOAP/WSDL/Binding.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Client:
|
||||
file: lib/SOAP/WSDL/Client.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Client::Base:
|
||||
file: lib/SOAP/WSDL/Client/Base.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Definitions:
|
||||
file: lib/SOAP/WSDL/Definitions.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Deserializer::Hash:
|
||||
file: lib/SOAP/WSDL/Deserializer/Hash.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Deserializer::SOM:
|
||||
file: lib/SOAP/WSDL/Deserializer/SOM.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Deserializer::XSD:
|
||||
file: lib/SOAP/WSDL/Deserializer/XSD.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Expat::Base:
|
||||
file: lib/SOAP/WSDL/Expat/Base.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Expat::Message2Hash:
|
||||
file: lib/SOAP/WSDL/Expat/Message2Hash.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Expat::MessageParser:
|
||||
file: lib/SOAP/WSDL/Expat/MessageParser.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Expat::MessageStreamParser:
|
||||
file: lib/SOAP/WSDL/Expat/MessageStreamParser.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Expat::WSDLParser:
|
||||
file: lib/SOAP/WSDL/Expat/WSDLParser.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Factory::Deserializer:
|
||||
file: lib/SOAP/WSDL/Factory/Deserializer.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Factory::Generator:
|
||||
file: lib/SOAP/WSDL/Factory/Generator.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Factory::Serializer:
|
||||
file: lib/SOAP/WSDL/Factory/Serializer.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Factory::Transport:
|
||||
file: lib/SOAP/WSDL/Factory/Transport.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Generator::Iterator::WSDL11:
|
||||
file: lib/SOAP/WSDL/Generator/Iterator/WSDL11.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Generator::PrefixResolver:
|
||||
file: lib/SOAP/WSDL/Generator/PrefixResolver.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Generator::Template:
|
||||
file: lib/SOAP/WSDL/Generator/Template.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Generator::Template::Plugin::XSD:
|
||||
file: lib/SOAP/WSDL/Generator/Template/Plugin/XSD.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Generator::Template::XSD:
|
||||
file: lib/SOAP/WSDL/Generator/Template/XSD.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Generator::Visitor:
|
||||
file: lib/SOAP/WSDL/Generator/Visitor.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Generator::Visitor::Typemap:
|
||||
file: lib/SOAP/WSDL/Generator/Visitor/Typemap.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Message:
|
||||
file: lib/SOAP/WSDL/Message.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::OpMessage:
|
||||
file: lib/SOAP/WSDL/OpMessage.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Operation:
|
||||
file: lib/SOAP/WSDL/Operation.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Part:
|
||||
file: lib/SOAP/WSDL/Part.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Port:
|
||||
file: lib/SOAP/WSDL/Port.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::PortType:
|
||||
file: lib/SOAP/WSDL/PortType.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::SOAP::Address:
|
||||
file: lib/SOAP/WSDL/SOAP/Address.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::SOAP::Body:
|
||||
file: lib/SOAP/WSDL/SOAP/Body.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::SOAP::Header:
|
||||
file: lib/SOAP/WSDL/SOAP/Header.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::SOAP::HeaderFault:
|
||||
file: lib/SOAP/WSDL/SOAP/HeaderFault.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::SOAP::Operation:
|
||||
file: lib/SOAP/WSDL/SOAP/Operation.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::SOAP::Typelib::Fault:
|
||||
file: lib/SOAP/WSDL/SOAP/Typelib/Fault.pm
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::SOAP::Typelib::Fault11:
|
||||
file: lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::SOAP::Typelib::Fault11Detail:
|
||||
file: lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm
|
||||
SOAP::WSDL::Serializer::XSD:
|
||||
file: lib/SOAP/WSDL/Serializer/XSD.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Server:
|
||||
file: lib/SOAP/WSDL/Server.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Server::CGI:
|
||||
file: lib/SOAP/WSDL/Server/CGI.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Server::Mod_Perl2:
|
||||
file: lib/SOAP/WSDL/Server/Mod_Perl2.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Server::Simple:
|
||||
file: lib/SOAP/WSDL/Server/Simple.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Service:
|
||||
file: lib/SOAP/WSDL/Service.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Transport::HTTP:
|
||||
file: lib/SOAP/WSDL/Transport/HTTP.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Transport::Loopback:
|
||||
file: lib/SOAP/WSDL/Transport/Loopback.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Transport::Test:
|
||||
file: lib/SOAP/WSDL/Transport/Test.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::TypeLookup:
|
||||
file: lib/SOAP/WSDL/TypeLookup.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::Types:
|
||||
file: lib/SOAP/WSDL/Types.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::Annotation:
|
||||
file: lib/SOAP/WSDL/XSD/Annotation.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::Attribute:
|
||||
file: lib/SOAP/WSDL/XSD/Attribute.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::AttributeGroup:
|
||||
file: lib/SOAP/WSDL/XSD/AttributeGroup.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::Builtin:
|
||||
file: lib/SOAP/WSDL/XSD/Builtin.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::ComplexType:
|
||||
file: lib/SOAP/WSDL/XSD/ComplexType.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::Element:
|
||||
file: lib/SOAP/WSDL/XSD/Element.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::Enumeration:
|
||||
file: lib/SOAP/WSDL/XSD/Enumeration.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::FractionDigits:
|
||||
file: lib/SOAP/WSDL/XSD/FractionDigits.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::Group:
|
||||
file: lib/SOAP/WSDL/XSD/Group.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::Length:
|
||||
file: lib/SOAP/WSDL/XSD/Length.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::MaxExclusive:
|
||||
file: lib/SOAP/WSDL/XSD/MaxExclusive.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::MaxInclusive:
|
||||
file: lib/SOAP/WSDL/XSD/MaxInclusive.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::MaxLength:
|
||||
file: lib/SOAP/WSDL/XSD/MaxLength.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::MinExclusive:
|
||||
file: lib/SOAP/WSDL/XSD/MinExclusive.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::MinInclusive:
|
||||
file: lib/SOAP/WSDL/XSD/MinInclusive.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::MinLength:
|
||||
file: lib/SOAP/WSDL/XSD/MinLength.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::Pattern:
|
||||
file: lib/SOAP/WSDL/XSD/Pattern.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::Schema:
|
||||
file: lib/SOAP/WSDL/XSD/Schema.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::Schema::Builtin:
|
||||
file: lib/SOAP/WSDL/XSD/Schema/Builtin.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::SimpleType:
|
||||
file: lib/SOAP/WSDL/XSD/SimpleType.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::TotalDigits:
|
||||
file: lib/SOAP/WSDL/XSD/TotalDigits.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::Typelib::Attribute:
|
||||
file: lib/SOAP/WSDL/XSD/Typelib/Attribute.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::Typelib::AttributeSet:
|
||||
file: lib/SOAP/WSDL/XSD/Typelib/AttributeSet.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::Typelib::Builtin:
|
||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::ENTITY:
|
||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/ENTITY.pm
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::ID:
|
||||
@@ -279,14 +284,14 @@ provides:
|
||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anySimpleType.pm
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::anyType:
|
||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anyType.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::anyURI:
|
||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anyURI.pm
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::base64Binary:
|
||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/base64Binary.pm
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::boolean:
|
||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/boolean.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::byte:
|
||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/byte.pm
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::date:
|
||||
@@ -339,7 +344,7 @@ provides:
|
||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/string.pm
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::time:
|
||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/time.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::token:
|
||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/token.pm
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::unsignedByte:
|
||||
@@ -352,20 +357,20 @@ provides:
|
||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedShort.pm
|
||||
SOAP::WSDL::XSD::Typelib::ComplexType:
|
||||
file: lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::Typelib::Element:
|
||||
file: lib/SOAP/WSDL/XSD/Typelib/Element.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::Typelib::SimpleType:
|
||||
file: lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::Typelib::SimpleType::restriction:
|
||||
file: lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm
|
||||
version: 2.00.08
|
||||
version: 2.00.10
|
||||
SOAP::WSDL::XSD::WhiteSpace:
|
||||
file: lib/SOAP/WSDL/XSD/WhiteSpace.pm
|
||||
version: 2.00.08
|
||||
generated_by: Module::Build version 0.31012
|
||||
version: 2.00.10
|
||||
generated_by: Module::Build version 0.280801
|
||||
meta-spec:
|
||||
url: http://module-build.sourceforge.net/META-spec-v1.2.html
|
||||
version: 1.2
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
# Note: this file was auto-generated by Module::Build::Compat version 0.31012
|
||||
# Note: this file was auto-generated by Module::Build::Compat version 0.2808_01
|
||||
require 5.8.0;
|
||||
use Module::Build::Compat 0.02;
|
||||
|
||||
|
||||
@@ -7,10 +7,25 @@ import org.springframework.beans.factory.annotation.Autowired;
|
||||
import org.springframework.test.context.ContextConfiguration;
|
||||
import org.springframework.test.context.junit4.SpringJUnit4ClassRunner;
|
||||
|
||||
// Spring JUnit Test runner
|
||||
@RunWith(SpringJUnit4ClassRunner.class)
|
||||
|
||||
// load spring context from here
|
||||
@ContextConfiguration(locations = { "classpath:test-context.xml"})
|
||||
|
||||
/** Test class for the HelloWorld service
|
||||
*
|
||||
* It's more of a integration test, not a Unit test (though using
|
||||
* JUnit4).
|
||||
*
|
||||
* Fire up the SOAP server in example/server/hello_simple.pl before
|
||||
* running - the test will fail if it can't find the appropriate SOAP server
|
||||
* at http://localhost:8081/
|
||||
*
|
||||
*/
|
||||
public class HelloWorldTest {
|
||||
|
||||
// soapClient bean automatically provided by spring
|
||||
@Autowired
|
||||
private Service1Soap soapClient;
|
||||
|
||||
|
||||
@@ -14,7 +14,7 @@ use Class::Std::Fast constructor => 'none';
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
|
||||
use LWP::UserAgent;
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %no_dispatch_of :ATTR(:name<no_dispatch>);
|
||||
my %wsdl_of :ATTR(:name<wsdl>);
|
||||
@@ -831,9 +831,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
||||
|
||||
=head1 REPOSITORY INFORMATION
|
||||
|
||||
$Rev: 798 $
|
||||
$Rev: 851 $
|
||||
$LastChangedBy: kutterma $
|
||||
$Id: WSDL.pm 798 2009-02-22 18:44:13Z kutterma $
|
||||
$Id: WSDL.pm 851 2009-05-15 22:45:18Z kutterma $
|
||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL.pm $
|
||||
|
||||
=cut
|
||||
|
||||
@@ -5,7 +5,7 @@ use List::Util;
|
||||
use Scalar::Util;
|
||||
use Carp qw(croak carp confess);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %id_of :ATTR(:name<id> :default<()>);
|
||||
my %lang_of :ATTR(:name<lang> :default<()>);
|
||||
|
||||
@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
|
||||
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %operation_of :ATTR(:name<operation> :default<()>);
|
||||
my %type_of :ATTR(:name<type> :default<()>);
|
||||
|
||||
@@ -11,7 +11,7 @@ use SOAP::WSDL::Factory::Serializer;
|
||||
use SOAP::WSDL::Factory::Transport;
|
||||
use SOAP::WSDL::Expat::MessageParser;
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %class_resolver_of :ATTR(:name<class_resolver> :default<()>);
|
||||
my %no_dispatch_of :ATTR(:name<no_dispatch> :default<()>);
|
||||
@@ -171,20 +171,29 @@ sub call {
|
||||
# Try deserializing response - there may be some,
|
||||
# even if transport did not succeed (got a 500 response)
|
||||
if ( $response ) {
|
||||
my ($result_body, $result_header) = eval {
|
||||
$deserializer_of{ $ident }->deserialize( $response );
|
||||
# as our faults are false, returning a success marker is the only
|
||||
# reliable way of determining whether the deserializer succeeded.
|
||||
# Custom deserializers may return an empty list, or undef,
|
||||
# and $@ is not guaranteed to be undefined.
|
||||
my ($success, $result_body, $result_header) = eval {
|
||||
(1, $deserializer_of{ $ident }->deserialize( $response ));
|
||||
};
|
||||
if (not $@) {
|
||||
if (defined $success) {
|
||||
return wantarray
|
||||
? ($result_body, $result_header)
|
||||
: $result_body;
|
||||
}
|
||||
return $deserializer_of{ $ident }->generate_fault({
|
||||
code => 'soap:Server',
|
||||
role => 'urn:localhost',
|
||||
message => "Error deserializing message: $@. \n"
|
||||
. "Message was: \n$response"
|
||||
});
|
||||
elsif (blessed $@) { #}&& $@->isa('SOAP::WSDL::SOAP::Typelib::Fault11')) {
|
||||
return $@;
|
||||
}
|
||||
else {
|
||||
return $deserializer_of{ $ident }->generate_fault({
|
||||
code => 'soap:Server',
|
||||
role => 'urn:localhost',
|
||||
message => "Error deserializing message: $@. \n"
|
||||
. "Message was: \n$response"
|
||||
});
|
||||
}
|
||||
};
|
||||
|
||||
# if we had no success (Transport layer error status code)
|
||||
@@ -400,9 +409,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
||||
|
||||
=head1 REPOSITORY INFORMATION
|
||||
|
||||
$Rev: 798 $
|
||||
$Rev: 851 $
|
||||
$LastChangedBy: kutterma $
|
||||
$Id: Client.pm 798 2009-02-22 18:44:13Z kutterma $
|
||||
$Id: Client.pm 851 2009-05-15 22:45:18Z kutterma $
|
||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client.pm $
|
||||
|
||||
=cut
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use base 'SOAP::WSDL::Client';
|
||||
use Scalar::Util qw(blessed);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
sub call {
|
||||
my ($self, $method, $body, $header) = @_;
|
||||
@@ -85,9 +85,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
||||
|
||||
=head1 REPOSITORY INFORMATION
|
||||
|
||||
$Rev: 798 $
|
||||
$Rev: 851 $
|
||||
$LastChangedBy: kutterma $
|
||||
$Id: Base.pm 798 2009-02-22 18:44:13Z kutterma $
|
||||
$Id: Base.pm 851 2009-05-15 22:45:18Z kutterma $
|
||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client/Base.pm $
|
||||
|
||||
=cut
|
||||
|
||||
@@ -5,7 +5,7 @@ use List::Util qw(first);
|
||||
use Class::Std::Fast::Storable;
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %types_of :ATTR(:name<types> :default<[]>);
|
||||
my %message_of :ATTR(:name<message> :default<[]>);
|
||||
@@ -115,9 +115,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
||||
|
||||
=head1 REPOSITORY INFORMATION
|
||||
|
||||
$Rev: 798 $
|
||||
$Rev: 851 $
|
||||
$LastChangedBy: kutterma $
|
||||
$Id: Definitions.pm 798 2009-02-22 18:44:13Z kutterma $
|
||||
$Id: Definitions.pm 851 2009-05-15 22:45:18Z kutterma $
|
||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Definitions.pm $
|
||||
|
||||
=cut
|
||||
|
||||
@@ -8,7 +8,7 @@ use SOAP::WSDL::Expat::Message2Hash;
|
||||
use SOAP::WSDL::Factory::Deserializer;
|
||||
SOAP::WSDL::Factory::Deserializer->register( '1.1', __PACKAGE__ );
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
sub BUILD {
|
||||
my ($self, $ident, $args_of_ref) = @_;
|
||||
@@ -38,7 +38,7 @@ sub deserialize {
|
||||
sub generate_fault {
|
||||
my ($self, $args_from_ref) = @_;
|
||||
return SOAP::WSDL::SOAP::Typelib::Fault11->new({
|
||||
faultcode => $args_from_ref->{ code } || 'soap:Client',
|
||||
faultcode => $args_from_ref->{ code } || 'SOAP-ENV:Client',
|
||||
faultactor => $args_from_ref->{ role } || 'urn:localhost',
|
||||
faultstring => $args_from_ref->{ message } || "Unknown error"
|
||||
});
|
||||
@@ -163,9 +163,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
||||
|
||||
=head1 REPOSITORY INFORMATION
|
||||
|
||||
$Rev: 798 $
|
||||
$Rev: 851 $
|
||||
$LastChangedBy: kutterma $
|
||||
$Id: Hash.pm 798 2009-02-22 18:44:13Z kutterma $
|
||||
$Id: Hash.pm 851 2009-05-15 22:45:18Z kutterma $
|
||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/Hash.pm $
|
||||
|
||||
=cut
|
||||
|
||||
@@ -2,7 +2,7 @@ package SOAP::WSDL::Deserializer::SOM;
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
our @ISA;
|
||||
|
||||
eval {
|
||||
@@ -18,7 +18,7 @@ sub deserialize {
|
||||
my $result = eval { $self->SUPER::deserialize(@_) };
|
||||
if ($@) {
|
||||
return SOAP::Fault->new(
|
||||
faultactor => 'soap:Server',
|
||||
faultactor => 'SOAP-ENV:Server',
|
||||
faultstring => $@,
|
||||
);
|
||||
}
|
||||
@@ -140,9 +140,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
||||
|
||||
=head1 REPOSITORY INFORMATION
|
||||
|
||||
$Rev: 798 $
|
||||
$Rev: 851 $
|
||||
$LastChangedBy: kutterma $
|
||||
$Id: SOM.pm 798 2009-02-22 18:44:13Z kutterma $
|
||||
$Id: SOM.pm 851 2009-05-15 22:45:18Z kutterma $
|
||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/SOM.pm $
|
||||
|
||||
=cut
|
||||
|
||||
@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
|
||||
use SOAP::WSDL::SOAP::Typelib::Fault11;
|
||||
use SOAP::WSDL::Expat::MessageParser;
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %class_resolver_of :ATTR(:name<class_resolver> :default<()>);
|
||||
my %strict_of :ATTR(:get<strict> :init_arg<strict> :default<1>);
|
||||
@@ -38,7 +38,7 @@ sub deserialize {
|
||||
eval { $parser_of{ ${ $self } }->parse_string( $content ) };
|
||||
if ($@) {
|
||||
return $self->generate_fault({
|
||||
code => 'soap:Server',
|
||||
code => 'SOAP-ENV:Server',
|
||||
role => 'urn:localhost',
|
||||
message => "Error deserializing message: $@. \n"
|
||||
. "Message was: \n$content"
|
||||
@@ -50,7 +50,7 @@ sub deserialize {
|
||||
sub generate_fault {
|
||||
my ($self, $args_from_ref) = @_;
|
||||
return SOAP::WSDL::SOAP::Typelib::Fault11->new({
|
||||
faultcode => $args_from_ref->{ code } || 'soap:Client',
|
||||
faultcode => $args_from_ref->{ code } || 'SOAP-ENV:Client',
|
||||
faultactor => $args_from_ref->{ role } || 'urn:localhost',
|
||||
faultstring => $args_from_ref->{ message } || "Unknown error"
|
||||
});
|
||||
@@ -126,9 +126,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
||||
|
||||
=head1 REPOSITORY INFORMATION
|
||||
|
||||
$Rev: 798 $
|
||||
$Rev: 851 $
|
||||
$LastChangedBy: kutterma $
|
||||
$Id: XSD.pm 798 2009-02-22 18:44:13Z kutterma $
|
||||
$Id: XSD.pm 851 2009-05-15 22:45:18Z kutterma $
|
||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/XSD.pm $
|
||||
|
||||
=cut
|
||||
|
||||
@@ -6,7 +6,7 @@ use XML::Parser::Expat;
|
||||
|
||||
# TODO: convert to Class::Std::Fast based class - hash based classes suck.
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
sub new {
|
||||
my ($class, $arg_ref) = @_;
|
||||
|
||||
@@ -4,7 +4,7 @@ use strict;
|
||||
use warnings;
|
||||
use base qw(SOAP::WSDL::Expat::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
sub _initialize {
|
||||
my ($self, $parser) = @_;
|
||||
|
||||
@@ -9,7 +9,7 @@ use base qw(SOAP::WSDL::Expat::Base);
|
||||
|
||||
BEGIN { require Class::Std::Fast };
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
# GLOBALS
|
||||
my $OBJECT_CACHE_REF = Class::Std::Fast::OBJECT_CACHE_REF();
|
||||
@@ -330,10 +330,10 @@ the same terms as perl itself
|
||||
|
||||
=head1 Repository information
|
||||
|
||||
$Id: MessageParser.pm 798 2009-02-22 18:44:13Z kutterma $
|
||||
$Id: MessageParser.pm 851 2009-05-15 22:45:18Z kutterma $
|
||||
|
||||
$LastChangedDate: 2009-02-22 19:44:13 +0100 (So, 22 Feb 2009) $
|
||||
$LastChangedRevision: 798 $
|
||||
$LastChangedDate: 2009-05-16 00:45:18 +0200 (Sa, 16. Mai 2009) $
|
||||
$LastChangedRevision: 851 $
|
||||
$LastChangedBy: kutterma $
|
||||
|
||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageParser.pm $
|
||||
|
||||
@@ -6,7 +6,7 @@ use XML::Parser::Expat;
|
||||
use SOAP::WSDL::Expat::MessageParser;
|
||||
use base qw(SOAP::WSDL::Expat::MessageParser);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
sub parse_start {
|
||||
my $self = shift;
|
||||
@@ -69,9 +69,9 @@ the same terms as perl itself
|
||||
|
||||
=head1 REPOSITORY INFORMATION
|
||||
|
||||
$Rev: 798 $
|
||||
$Rev: 851 $
|
||||
$LastChangedBy: kutterma $
|
||||
$Id: MessageStreamParser.pm 798 2009-02-22 18:44:13Z kutterma $
|
||||
$Id: MessageStreamParser.pm 851 2009-05-15 22:45:18Z kutterma $
|
||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageStreamParser.pm $
|
||||
|
||||
=cut
|
||||
|
||||
@@ -5,7 +5,7 @@ use Carp;
|
||||
use SOAP::WSDL::TypeLookup;
|
||||
use base qw(SOAP::WSDL::Expat::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
#
|
||||
# Import child elements of a WSDL / XML Schema tree into the current tree
|
||||
@@ -367,10 +367,10 @@ the same terms as perl itself
|
||||
|
||||
=head1 Repository information
|
||||
|
||||
$Id: WSDLParser.pm 798 2009-02-22 18:44:13Z kutterma $
|
||||
$Id: WSDLParser.pm 851 2009-05-15 22:45:18Z kutterma $
|
||||
|
||||
$LastChangedDate: 2009-02-22 19:44:13 +0100 (So, 22 Feb 2009) $
|
||||
$LastChangedRevision: 798 $
|
||||
$LastChangedDate: 2009-05-16 00:45:18 +0200 (Sa, 16. Mai 2009) $
|
||||
$LastChangedRevision: 851 $
|
||||
$LastChangedBy: kutterma $
|
||||
|
||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/WSDLParser.pm $
|
||||
|
||||
@@ -2,7 +2,7 @@ package SOAP::WSDL::Factory::Deserializer;
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %DESERIALIZER = (
|
||||
'1.1' => 'SOAP::WSDL::Deserializer::XSD',
|
||||
|
||||
@@ -2,7 +2,7 @@ package SOAP::WSDL::Factory::Generator;
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %GENERATOR = (
|
||||
'XSD' => 'SOAP::WSDL::Generator::Template::XSD',
|
||||
|
||||
@@ -2,7 +2,7 @@ package SOAP::WSDL::Factory::Serializer;
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %SERIALIZER = (
|
||||
'1.1' => 'SOAP::WSDL::Serializer::XSD',
|
||||
@@ -138,9 +138,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
||||
|
||||
=head1 REPOSITORY INFORMATION
|
||||
|
||||
$Rev: 798 $
|
||||
$Rev: 851 $
|
||||
$LastChangedBy: kutterma $
|
||||
$Id: Serializer.pm 798 2009-02-22 18:44:13Z kutterma $
|
||||
$Id: Serializer.pm 851 2009-05-15 22:45:18Z kutterma $
|
||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Serializer.pm $
|
||||
|
||||
=cut
|
||||
|
||||
@@ -1,7 +1,7 @@
|
||||
package SOAP::WSDL::Factory::Transport;
|
||||
use strict;
|
||||
use warnings;
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %registered_transport_of = ();
|
||||
|
||||
@@ -243,9 +243,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
||||
|
||||
=head1 REPOSITORY INFORMATION
|
||||
|
||||
$Rev: 798 $
|
||||
$Rev: 851 $
|
||||
$LastChangedBy: kutterma $
|
||||
$Id: Transport.pm 798 2009-02-22 18:44:13Z kutterma $
|
||||
$Id: Transport.pm 851 2009-05-15 22:45:18Z kutterma $
|
||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Transport.pm $
|
||||
|
||||
=cut
|
||||
|
||||
@@ -2,7 +2,7 @@ package SOAP::WSDL::Generator::Iterator::WSDL11;
|
||||
use strict; use warnings;
|
||||
use Class::Std::Fast;
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %definitions_of :ATTR(:name<definitions> :default<[]>);
|
||||
my %nodes_of :ATTR(:name<nodes> :default<[]>);
|
||||
|
||||
@@ -3,7 +3,7 @@ use strict; use warnings;
|
||||
|
||||
use Class::Std::Fast::Storable;
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %namespace_prefix_map_of :ATTR(:name<namespace_prefix_map> :default<{}>);
|
||||
my %namespace_map_of :ATTR(:name<namespace_map> :default<{}>);
|
||||
|
||||
@@ -1,11 +1,11 @@
|
||||
package SOAP::WSDL::Generator::Template;
|
||||
use strict; use warnings;
|
||||
use Template;
|
||||
use Template 2.18;
|
||||
use Class::Std::Fast::Storable;
|
||||
use Carp;
|
||||
use SOAP::WSDL::Generator::PrefixResolver;
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %tt_of :ATTR(:get<tt>);
|
||||
my %definitions_of :ATTR(:name<definitions> :default<()>);
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Carp qw(confess);
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use Scalar::Util qw(blessed);
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %namespace_prefix_map_of :ATTR(:name<namespace_prefix_map> :default<{}>);
|
||||
my %namespace_map_of :ATTR(:name<namespace_map> :default<{}>);
|
||||
@@ -129,8 +129,10 @@ sub create_subpackage_name {
|
||||
my $type = ref $arg_ref eq 'HASH' ? $arg_ref->{ value } : $arg_ref;
|
||||
|
||||
my @name_from = $type->get_name() || (); ;
|
||||
my $parent = $type;
|
||||
my $top_node = $parent;
|
||||
|
||||
# search for top node in tree (the one directly below the Schema)
|
||||
my $parent = $type;
|
||||
my $top_node = $parent;
|
||||
if (! $parent->get_parent()->isa('SOAP::WSDL::XSD::Schema') ) {
|
||||
NAMES: while ($parent = $parent->get_parent()) {
|
||||
$top_node = $parent;
|
||||
@@ -141,9 +143,13 @@ sub create_subpackage_name {
|
||||
}
|
||||
}
|
||||
# create name for top node
|
||||
die "FOO" if not defined $top_node;
|
||||
die "No top node found" if not defined $top_node;
|
||||
my $top_node_name = $self->create_xsd_name($top_node);
|
||||
my $package_name = join('::_', $top_node_name , (@name_from) ? join('::', @name_from) : () );
|
||||
|
||||
# replace dots by :: in name - subpackage names may include dots, too
|
||||
$package_name =~s{\.}{::}xg;
|
||||
|
||||
return $package_name;
|
||||
}
|
||||
|
||||
|
||||
@@ -1,11 +1,11 @@
|
||||
package SOAP::WSDL::Generator::Template::XSD;
|
||||
use strict; use warnings;
|
||||
use Template;
|
||||
use Template 2.18;
|
||||
use Class::Std::Fast::Storable;
|
||||
use File::Basename;
|
||||
use File::Spec;
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
use SOAP::WSDL::Generator::Visitor::Typemap;
|
||||
use SOAP::WSDL::Generator::Template::Plugin::XSD;
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
[% USE XSD -%]
|
||||
[% USE XSD;
|
||||
USE Dumper -%]
|
||||
package [% XSD.create_xsd_name(complexType) %];
|
||||
use strict;
|
||||
use warnings;
|
||||
@@ -12,6 +13,8 @@ __PACKAGE__->_set_element_form_qualified([%-
|
||||
IF complexType.schema.get_elementFormDefault == 'qualified'
|
||||
-%]1[% ELSE %]0[% END %]);
|
||||
|
||||
sub get_xmlns { '[% complexType.get_targetNamespace %]' };
|
||||
|
||||
[% INCLUDE complexType/contentModel.tt %]
|
||||
|
||||
1;
|
||||
|
||||
@@ -3,7 +3,7 @@ use strict;
|
||||
use warnings;
|
||||
use Class::Std::Fast::Storable;
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %definitions_of :ATTR(:name<definitions> :default<()>);
|
||||
my %type_prefix_of :ATTR(:name<type_prefix> :default<()>);
|
||||
|
||||
@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
|
||||
|
||||
use base qw(SOAP::WSDL::Generator::Visitor);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %path_of :ATTR(:name<path> :default<[]>);
|
||||
my %typemap_of :ATTR(:name<typemap> :default<()>);
|
||||
|
||||
@@ -32,15 +32,28 @@ this backend:
|
||||
|
||||
=head3 Accessing HTTP(S) webservices protected by NTLM authentication
|
||||
|
||||
If you want to connect to a windows server using some Windows Domain Login, please
|
||||
consider using Kerberos instead of the (older) NTLM mechanism - see below.
|
||||
|
||||
Kerberos and NTLM are (currently) mutually exclusive - when LWP::Authen::Negotiate
|
||||
is installed, it will always be queried (and will always raise an error), even
|
||||
if you don't want to use it. See http://rt.cpan.org/Public/Bug/Display.html?id=32826
|
||||
for details.
|
||||
|
||||
You need the L<NTLM|NTLM> distribution installed to access webservices protected
|
||||
by NTLM authentication. More specifically, you need the Authen::NTLM module
|
||||
from this distribution. Note that this is different from the Authen::NTML
|
||||
distribution by Yee Man Chan also available from CPAN.
|
||||
|
||||
Your user credentials usually need to include the windows domain like this:
|
||||
Your user credentials usually need to include the windows domain or the
|
||||
windows hostname like this:
|
||||
|
||||
testdomain\testuser
|
||||
|
||||
or
|
||||
|
||||
\\testhost\testuser
|
||||
|
||||
Besides passing user credentials as when accessing a web service protected
|
||||
by basic or digest authentication, you also need to enforce connection
|
||||
keep_alive on the transport backens.
|
||||
@@ -56,6 +69,57 @@ You may, of course, decide to just hack the generated class. Be advised that
|
||||
subclassing might be a more appropriate solution - re-generating overwrites
|
||||
changes in interface classes.
|
||||
|
||||
=head3 Accessing HTTP(S) webservices protected by NTLMv2
|
||||
|
||||
There are different variants of NTLM, and by default Authen::NTLM uses the v1 variant.
|
||||
|
||||
NTLM is a connection-based handshake authentication protocol, which requires
|
||||
three or more requests on the same connection:
|
||||
|
||||
Request POST
|
||||
Response 401 Unauthorized
|
||||
WWW-Authenticate: NTLM
|
||||
|
||||
Request Authorization: NTLM <base64-encoded type-1-message>
|
||||
Response 401 Unauthorized
|
||||
WWW-Authenticate: NTLM <base64-encoded type-2-message>
|
||||
|
||||
Request Authorization: NTLM <base64-encoded type-3-message>
|
||||
Response 200 Ok
|
||||
|
||||
If you try to access a NTLMv2 protected web service and switch on LWP::Debug by
|
||||
saying
|
||||
|
||||
use LWP::Debug qw(+);
|
||||
|
||||
you should see at least two lines containing something like
|
||||
|
||||
Authorization NTLM TlRMTVNTUAABAAAAB7IAAAAAAAAAAAAAAwADACAAAABmb28=
|
||||
...
|
||||
Authorization NTLM TlRMTVNTUAABAAAAB7IAAAAAAAAAAAAAAw ... much longer ... ADACAAAABmb28=
|
||||
|
||||
If you're talking to a Server using NTLMv2 exclusively, you will only the first line
|
||||
in the debug output, and then an error.
|
||||
|
||||
To explicitely enable NTLMv2, do the following in your client:
|
||||
|
||||
use Authen::NTLM;
|
||||
ntlmv2(1);
|
||||
|
||||
This globally enables the use of NTLMv2. Note that this is a global setting: All
|
||||
clients running in the same perl interpreter will be affected. This can
|
||||
cause unexpected issues when running under mod_perl.
|
||||
|
||||
=head3 Accessing webservices protected by HTTP Kerberos Authentication
|
||||
|
||||
Use the L<LWP::Authen::Negotiate|LWP::Authen::Negotiate> plugin from CPAN. You
|
||||
need to set up GSSAPI to perform the Kerberos authentication, though. How to do
|
||||
this is implementation specific (MIT or Heimdahl). See your Kerberos/GSSAPI
|
||||
documentation for details.
|
||||
|
||||
(Newer) Windows Web Services usually allow to use both the Negotiate (Kerberos)
|
||||
and NTLM authentication scheme.
|
||||
|
||||
=head3 Accessing HTTPS webservices protected by certificate authentication
|
||||
|
||||
You need Crypt::SSLeay installed to access HTTPS webservices.
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable;
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %part_of :ATTR(:name<part> :default<[]>);
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable;
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %body_of :ATTR(:name<body> :default<[]>);
|
||||
my %header_of :ATTR(:name<header> :default<[]>);
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable;
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %operation_of :ATTR(:name<operation> :default<()>);
|
||||
my %input_of :ATTR(:name<input> :default<[]>);
|
||||
|
||||
@@ -6,7 +6,7 @@ use Class::Std::Fast::Storable;
|
||||
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %element_of :ATTR(:name<element> :default<()>);
|
||||
my %type_of :ATTR(:name<type> :default<()>);
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable;
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %binding_of :ATTR(:name<binding> :default<()>);
|
||||
my %address_of :ATTR(:name<address> :default<()>);
|
||||
|
||||
@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
|
||||
use List::Util;
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %operation_of :ATTR(:name<operation> :default<()>);
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
use Class::Std::Fast::Storable;
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %location :ATTR(:name<location> :default<()>);
|
||||
1;
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
use Class::Std::Fast::Storable;
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %use_of :ATTR(:name<use> :default<q{}>);
|
||||
my %namespace_of :ATTR(:name<namespace> :default<q{}>);
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
use Class::Std::Fast::Storable;
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %use_of :ATTR(:name<use> :default<q{}>);
|
||||
my %namespace_of :ATTR(:name<namespace> :default<q{}>);
|
||||
|
||||
@@ -3,6 +3,6 @@ use strict;
|
||||
use warnings;
|
||||
use base qw(SOAP::WSDL::Header);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
1;
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable;
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %style_of :ATTR(:name<style> :default<()>);
|
||||
my %soapAction_of :ATTR(:name<soapAction> :default<()>);
|
||||
|
||||
8
lib/SOAP/WSDL/SOAP/Typelib/Fault.pm
Normal file
8
lib/SOAP/WSDL/SOAP/Typelib/Fault.pm
Normal file
@@ -0,0 +1,8 @@
|
||||
package SOAP::WSDL::SOAP::Typelib::Fault;
|
||||
use strict;
|
||||
use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
1;
|
||||
@@ -1,51 +1,102 @@
|
||||
package SOAP::WSDL::SOAP::Typelib::Fault11;
|
||||
use strict;
|
||||
use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
{
|
||||
use strict;
|
||||
use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
use SOAP::WSDL::XSD::Typelib::ComplexType;
|
||||
use SOAP::WSDL::XSD::Typelib::Element;
|
||||
use Scalar::Util qw(blessed);
|
||||
|
||||
use base qw(
|
||||
SOAP::WSDL::XSD::Typelib::Element
|
||||
SOAP::WSDL::XSD::Typelib::ComplexType
|
||||
);
|
||||
use SOAP::WSDL::XSD::Typelib::ComplexType;
|
||||
use SOAP::WSDL::XSD::Typelib::Element;
|
||||
|
||||
my %faultcode_of :ATTR(:get<faultcode>);
|
||||
my %faultstring_of :ATTR(:get<faultstring>);
|
||||
my %faultactor_of :ATTR(:get<faultactor>);
|
||||
my %detail_of :ATTR(:get<detail>);
|
||||
use base qw(
|
||||
SOAP::WSDL::SOAP::Typelib::Fault
|
||||
SOAP::WSDL::XSD::Typelib::Element
|
||||
SOAP::WSDL::XSD::Typelib::ComplexType
|
||||
);
|
||||
|
||||
__PACKAGE__->_factory(
|
||||
[ qw(faultcode faultstring faultactor detail) ],
|
||||
{
|
||||
faultcode => \%faultcode_of,
|
||||
faultstring => \%faultstring_of,
|
||||
faultactor => \%faultactor_of,
|
||||
detail => \%detail_of,
|
||||
},
|
||||
{
|
||||
faultcode => 'SOAP::WSDL::XSD::Typelib::Builtin::QName',
|
||||
faultstring => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
||||
faultactor => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
|
||||
detail => 'SOAP::WSDL::XSD::Typelib::Builtin::anyType',
|
||||
my %faultcode_of : ATTR(:get<faultcode>);
|
||||
my %faultstring_of : ATTR(:get<faultstring>);
|
||||
my %faultactor_of : ATTR(:get<faultactor>);
|
||||
my %detail_of : ATTR(:get<detail>);
|
||||
|
||||
__PACKAGE__->_factory(
|
||||
[qw(faultcode faultstring faultactor detail)],
|
||||
{
|
||||
faultcode => \%faultcode_of,
|
||||
faultstring => \%faultstring_of,
|
||||
faultactor => \%faultactor_of,
|
||||
detail => \%detail_of,
|
||||
},
|
||||
{
|
||||
faultcode => 'SOAP::WSDL::XSD::Typelib::Builtin::QName',
|
||||
faultstring => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
||||
faultactor => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
|
||||
detail => 'SOAP::WSDL::SOAP::Typelib::Fault11Detail',
|
||||
} );
|
||||
|
||||
sub get_xmlns { return 'http://schemas.xmlsoap.org/soap/envelope/' }
|
||||
|
||||
__PACKAGE__->__set_name('Fault');
|
||||
__PACKAGE__->__set_nillable(0);
|
||||
__PACKAGE__->__set_minOccurs();
|
||||
__PACKAGE__->__set_maxOccurs();
|
||||
__PACKAGE__->__set_ref('');
|
||||
|
||||
# always return false in boolean context - a fault is never true...
|
||||
sub as_bool : BOOLIFY {
|
||||
return;
|
||||
}
|
||||
);
|
||||
|
||||
sub get_xmlns { return 'http://schemas.xmlsoap.org/soap/envelope/' };
|
||||
# override set_detail to allow "auto-vivification" of a details object
|
||||
# must be implemented via symbol table operation - _factory adds
|
||||
# methods via symbol table, too.
|
||||
|
||||
__PACKAGE__->__set_name('Fault');
|
||||
__PACKAGE__->__set_nillable(0);
|
||||
__PACKAGE__->__set_minOccurs();
|
||||
__PACKAGE__->__set_maxOccurs();
|
||||
__PACKAGE__->__set_ref('');
|
||||
# BLOCK to scope warnings
|
||||
{
|
||||
no warnings qw(redefine);
|
||||
my $set_detail_sub = \&set_detail;
|
||||
*set_detail = sub {
|
||||
my ( $self, $detail ) = @_;
|
||||
|
||||
# always return false in boolean context - a fault is never true...
|
||||
sub as_bool : BOOLIFY { return; }
|
||||
# create SOAP::WSDL::SOAP::Typelib::Fault11Detail wrapper if there
|
||||
# is none
|
||||
if ( not blessed $detail
|
||||
or
|
||||
not $detail->isa('SOAP::WSDL::SOAP::Typelib::Fault11Detail') )
|
||||
{
|
||||
$detail = SOAP::WSDL::SOAP::Typelib::Fault11Detail->new(
|
||||
{value => $detail} );
|
||||
}
|
||||
|
||||
# call original method
|
||||
$set_detail_sub->( $self, $detail );
|
||||
};
|
||||
}
|
||||
Class::Std::initialize();
|
||||
}
|
||||
|
||||
package SOAP::WSDL::SOAP::Typelib::Fault11Detail;
|
||||
{
|
||||
use strict;
|
||||
use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(
|
||||
SOAP::WSDL::XSD::Typelib::Element
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType
|
||||
);
|
||||
|
||||
sub get_xmlns { return 'http://schemas.xmlsoap.org/soap/envelope/' }
|
||||
|
||||
__PACKAGE__->__set_name('Fault');
|
||||
__PACKAGE__->__set_nillable(0);
|
||||
__PACKAGE__->__set_minOccurs();
|
||||
__PACKAGE__->__set_maxOccurs();
|
||||
Class::Std::initialize();
|
||||
}
|
||||
|
||||
Class::Std::initialize();
|
||||
1;
|
||||
|
||||
=pod
|
||||
@@ -88,6 +139,16 @@ Getter/setter for object's faultactor property.
|
||||
|
||||
Getter/setter for detail object's detail property.
|
||||
|
||||
The detail element is a SOAP::WSDL::SOAP::Typelib::Fault11Detail object.
|
||||
This class is automatically loaded when using
|
||||
SOAP::WSDL::SOAP::Typelib::Fault11, so you can't B<use> it separately.
|
||||
|
||||
Any string or object not of this class will be automatically wrapped into
|
||||
a detail object.
|
||||
|
||||
Note that passing a list of detail object is currently not supported (though
|
||||
the SOAP1.1 note allows this).
|
||||
|
||||
=head1 LICENSE AND COPYRIGHT
|
||||
|
||||
Copyright 2007 Martin Kutter. All rights reserved.
|
||||
@@ -101,9 +162,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
||||
|
||||
=head1 REPOSITORY INFORMATION
|
||||
|
||||
$Rev: 798 $
|
||||
$Rev: 851 $
|
||||
$LastChangedBy: kutterma $
|
||||
$Id: Fault11.pm 798 2009-02-22 18:44:13Z kutterma $
|
||||
$Id: Fault11.pm 851 2009-05-15 22:45:18Z kutterma $
|
||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm $
|
||||
|
||||
=cut
|
||||
|
||||
@@ -5,7 +5,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable;
|
||||
use Scalar::Util qw(blessed);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
use SOAP::WSDL::Factory::Serializer;
|
||||
|
||||
@@ -132,9 +132,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
||||
|
||||
=head1 REPOSITORY INFORMATION
|
||||
|
||||
$Rev: 798 $
|
||||
$Rev: 851 $
|
||||
$LastChangedBy: kutterma $
|
||||
$Id: XSD.pm 798 2009-02-22 18:44:13Z kutterma $
|
||||
$Id: XSD.pm 851 2009-05-15 22:45:18Z kutterma $
|
||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Serializer/XSD.pm $
|
||||
|
||||
=cut
|
||||
|
||||
@@ -6,7 +6,7 @@ use Scalar::Util qw(blessed);
|
||||
use SOAP::WSDL::Factory::Deserializer;
|
||||
use SOAP::WSDL::Factory::Serializer;
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %dispatch_to_of :ATTR(:name<dispatch_to> :default<()>);
|
||||
my %action_map_ref_of :ATTR(:name<action_map_ref> :default<{}>);
|
||||
|
||||
@@ -14,7 +14,7 @@ use Class::Std::Fast::Storable;
|
||||
|
||||
use base qw(SOAP::WSDL::Server);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
# mostly copied from SOAP::Lite. Unfortunately we can't use SOAP::Lite's CGI
|
||||
# server directly - we would have to swap out it's base class...
|
||||
|
||||
@@ -16,7 +16,7 @@ use Apache2::Const -compile => qw(
|
||||
HTTP_LENGTH_REQUIRED
|
||||
);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %LOADED_OF = ();
|
||||
|
||||
|
||||
@@ -14,7 +14,7 @@ use Class::Std::Fast::Storable;
|
||||
|
||||
use base qw(SOAP::WSDL::Server);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
# mostly copied from SOAP::Lite. Unfortunately we can't use SOAP::Lite's CGI
|
||||
# server directly - we would have to swap out it's base class...
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable;
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %port_of :ATTR(:name<port> :default<[]>);
|
||||
|
||||
|
||||
@@ -2,7 +2,7 @@ package SOAP::WSDL::Transport::HTTP;
|
||||
use strict; use warnings;
|
||||
use base qw(LWP::UserAgent);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
# create methods normally inherited from SOAP::Client
|
||||
SUBFACTORY: {
|
||||
@@ -95,9 +95,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
||||
|
||||
=head1 REPOSITORY INFORMATION
|
||||
|
||||
$Rev: 798 $
|
||||
$Rev: 851 $
|
||||
$LastChangedBy: kutterma $
|
||||
$Id: HTTP.pm 798 2009-02-22 18:44:13Z kutterma $
|
||||
$Id: HTTP.pm 851 2009-05-15 22:45:18Z kutterma $
|
||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Transport/HTTP.pm $
|
||||
|
||||
=cut
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'basic';
|
||||
use SOAP::WSDL::Factory::Transport;
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
# register on loading
|
||||
SOAP::WSDL::Factory::Transport->register( http => __PACKAGE__ );
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable;
|
||||
use SOAP::WSDL::Factory::Transport;
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
SOAP::WSDL::Factory::Transport->register( http => __PACKAGE__ );
|
||||
SOAP::WSDL::Factory::Transport->register( https => __PACKAGE__ );
|
||||
|
||||
@@ -2,7 +2,7 @@ package SOAP::WSDL::TypeLookup;
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %TYPE_FROM = (
|
||||
# wsdl:
|
||||
|
||||
@@ -5,7 +5,7 @@ use SOAP::WSDL::XSD::Schema::Builtin;
|
||||
use Class::Std::Fast::Storable;
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %schema_of :ATTR(:name<schema> :default<[]>);
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
#<enumeration value="">
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
#<attribute
|
||||
# default = string
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
#<attributeGroup
|
||||
# id = ID
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable;
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
# only used in SOAP::WSDL - will be obsolete once SOAP::WSDL uses the
|
||||
# generative approach, too
|
||||
|
||||
@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
|
||||
use Scalar::Util qw(blessed);
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
# id provided by Base
|
||||
# name provided by Base
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable;
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
# id provided by Base
|
||||
# name provided by Base
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
#<enumeration value="">
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
#<pattern value="">
|
||||
|
||||
# id provided by Base
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
#<xs:group name="myModelGroup">
|
||||
# <xs:sequence>
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
#<minExclusive value="">
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
#<minExclusive value="">
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
#<minExclusive value="">
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
#<maxLength value="">
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
#<minExclusive value="">
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
#<minExclusive value="">
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
#<minExclusive value="">
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
#<pattern value="">
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable;
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
# child elements
|
||||
my %attributeGroup_of :ATTR(:name<attributeGroup> :default<[]>);
|
||||
|
||||
@@ -6,7 +6,7 @@ use SOAP::WSDL::XSD::Schema;
|
||||
use SOAP::WSDL::XSD::Builtin;
|
||||
use base qw(SOAP::WSDL::XSD::Schema);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
# all builtin types - add validation (e.g. content restrictions) later...
|
||||
my %BUILTINS = (
|
||||
@@ -103,9 +103,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
||||
|
||||
=head1 REPOSITORY INFORMATION
|
||||
|
||||
$Rev: 798 $
|
||||
$Rev: 851 $
|
||||
$LastChangedBy: kutterma $
|
||||
$Id: Builtin.pm 798 2009-02-22 18:44:13Z kutterma $
|
||||
$Id: Builtin.pm 851 2009-05-15 22:45:18Z kutterma $
|
||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Schema/Builtin.pm $
|
||||
|
||||
=cut
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable;
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %length_of :ATTR(:name<length> :default<[]>);
|
||||
my %minLength_of :ATTR(:name<minLength> :default<[]>);
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
#<totalDigits value="">
|
||||
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
|
||||
use base qw(SOAP::WSDL::XSD::Typelib::Element);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
sub start_tag {
|
||||
# my ($self, $opt, $value) = @_;
|
||||
|
||||
@@ -3,7 +3,7 @@ use strict;
|
||||
use warnings;
|
||||
use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
sub serialize {
|
||||
# we work on @_ for performance.
|
||||
|
||||
@@ -3,7 +3,7 @@ use strict;
|
||||
use warnings;
|
||||
use Class::Std::Fast::Storable;
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::anyType;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
|
||||
|
||||
@@ -3,7 +3,7 @@ use strict;
|
||||
use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
sub get_xmlns { 'http://www.w3.org/2001/XMLSchema' };
|
||||
|
||||
|
||||
@@ -3,7 +3,7 @@ use strict;
|
||||
use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none', cache => 1;
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
|
||||
|
||||
|
||||
@@ -6,7 +6,7 @@ use Date::Format;
|
||||
use Class::Std::Fast::Storable constructor => 'none', cache => 1;
|
||||
use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
sub set_value {
|
||||
# use set_value from base class if we have a XML-Time format
|
||||
|
||||
@@ -10,7 +10,7 @@ require Class::Std::Fast::Storable;
|
||||
|
||||
use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anyType);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
# remove in 2.1
|
||||
our $AS_HASH_REF_WITHOUT_ATTRIBUTES = 0;
|
||||
@@ -23,7 +23,10 @@ my %NAMES_OF; # XML names of elements in a class
|
||||
|
||||
|
||||
# XML Attribute handling
|
||||
my %xml_attr_of :ATTR();
|
||||
my %xml_attr_of :ATTR();
|
||||
|
||||
# Namespace handling
|
||||
my %xmlns_of :ATTR();
|
||||
|
||||
# don't you ever dare to use this !
|
||||
our $___attributes_of_ref = \%ATTRIBUTES_OF;
|
||||
@@ -319,6 +322,7 @@ sub _factory {
|
||||
*{ "$class\::_serialize" } = sub {
|
||||
my $ident = ${ $_[0] };
|
||||
my $option_ref = $_[1];
|
||||
|
||||
# return concatenated return value of serialize call of all
|
||||
# elements retrieved from get_elements expanding list refs.
|
||||
return \join q{} , map {
|
||||
@@ -327,7 +331,7 @@ sub _factory {
|
||||
# do we have some content
|
||||
if (defined $element) {
|
||||
$element = [ $element ] if not ref $element eq 'ARRAY';
|
||||
# from 2.00.08 on $NAMES_OF is filled - use || $_; for
|
||||
# from 2.00.10 on $NAMES_OF is filled - use || $_; for
|
||||
# backward compatibility
|
||||
my $name = $NAMES_OF{$class}->{$_} || $_;
|
||||
my $target_namespace = $_[0]->get_xmlns();
|
||||
@@ -345,19 +349,45 @@ sub _factory {
|
||||
# serialize complextype elments (of other types) with their
|
||||
# serializer, but add element tags around.
|
||||
else {
|
||||
# TODO: check whether we have to handle
|
||||
# types from different namespaces special, too
|
||||
if (!defined $ELEMENT_FORM_QUALIFIED_OF{ $class }
|
||||
# default for undef is true
|
||||
if (! defined $ELEMENT_FORM_QUALIFIED_OF{ $class }
|
||||
or $ELEMENT_FORM_QUALIFIED_OF{ $class }
|
||||
) {
|
||||
join q{}, $_->start_tag({ name => $name , %{ $option_ref } })
|
||||
, $_->serialize($option_ref)
|
||||
, $_->end_tag({ name => $name , %{ $option_ref } });
|
||||
# handle types from different namespaces
|
||||
#
|
||||
# serialize with last namespace put on stack
|
||||
# if the last namespace is a change from the
|
||||
# before-last
|
||||
#
|
||||
if (
|
||||
exists $option_ref->{ xmlns_stack }
|
||||
&& (scalar @{ $option_ref->{ xmlns_stack } } >= 2)
|
||||
&& ($option_ref->{ xmlns_stack }->[-1] ne $option_ref->{ xmlns_stack }->[-2])) {
|
||||
# warn "New namespace: ", $option_ref->{ xmlns_stack }->[-1];
|
||||
join q{}, $_->start_tag({ name => $name ,
|
||||
xmlns => $option_ref->{ xmlns_stack }->[-1],
|
||||
%{ $option_ref } })
|
||||
, $_->serialize($option_ref)
|
||||
, $_->end_tag({ name => $name , %{ $option_ref } });
|
||||
}
|
||||
else {
|
||||
join q{}, $_->start_tag({ name => $name , %{ $option_ref } })
|
||||
, $_->serialize($option_ref)
|
||||
, $_->end_tag({ name => $name , %{ $option_ref } });
|
||||
}
|
||||
}
|
||||
else {
|
||||
# remove xmlns option if there is one
|
||||
my $set_xmlns = delete $option_ref->{xmlns}
|
||||
if (exists $option_ref->{xmlns});
|
||||
# in elementFormDefault="unqualified" mode,
|
||||
# the serialize method has to set
|
||||
# xmnlns="" on all elements inside a ComplexType
|
||||
#
|
||||
# Other serializers usually use prefixes
|
||||
# for "unqualified" and just omit all prefixes
|
||||
# for inner elements
|
||||
|
||||
# check whether we "had" a xmlns around
|
||||
my $set_xmlns = delete $option_ref->{xmlns};
|
||||
|
||||
# serialize start tag with xmlns="" if out parent
|
||||
# did not do that
|
||||
join q{}, $_->start_tag({
|
||||
@@ -400,10 +430,14 @@ sub __get_attr_class {};
|
||||
sub __serialize_complex {
|
||||
# we work on @_ for performance.
|
||||
$_[1] ||= {}; # $option_ref
|
||||
|
||||
|
||||
push @{ $_[1]->{ xmlns_stack } }, $_[0]->get_xmlns();
|
||||
|
||||
# get content first (pass by reference to avoid copying)
|
||||
my $content_ref = $_[0]->_serialize($_[1]); # option_ref
|
||||
|
||||
pop @{ $_[1]->{ xmlns_stack } };
|
||||
|
||||
# do we have a empty element ?
|
||||
return $_[0]->start_tag({ %{ $_[1] }, empty => 1 })
|
||||
if not length ${ $content_ref };
|
||||
@@ -411,6 +445,10 @@ sub __serialize_complex {
|
||||
return join q{}, $_[0]->start_tag($_[1]), ${ $content_ref }, $_[0]->end_tag();
|
||||
}
|
||||
|
||||
sub get_xmlns {
|
||||
return q{}
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
@@ -633,9 +671,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
||||
|
||||
=head1 REPOSITORY INFORMATION
|
||||
|
||||
$Rev: 798 $
|
||||
$Rev: 851 $
|
||||
$LastChangedBy: kutterma $
|
||||
$Id: ComplexType.pm 798 2009-02-22 18:44:13Z kutterma $
|
||||
$Id: ComplexType.pm 851 2009-05-15 22:45:18Z kutterma $
|
||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm $
|
||||
|
||||
=cut
|
||||
|
||||
@@ -2,7 +2,7 @@ package SOAP::WSDL::XSD::Typelib::Element;
|
||||
use strict; use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
my %NAME;
|
||||
my %NILLABLE;
|
||||
@@ -177,9 +177,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
||||
|
||||
=head1 REPOSITORY INFORMATION
|
||||
|
||||
$Rev: 798 $
|
||||
$Rev: 851 $
|
||||
$LastChangedBy: kutterma $
|
||||
$Id: Element.pm 798 2009-02-22 18:44:13Z kutterma $
|
||||
$Id: Element.pm 851 2009-05-15 22:45:18Z kutterma $
|
||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/Element.pm $
|
||||
|
||||
=cut
|
||||
|
||||
@@ -2,14 +2,14 @@ package SOAP::WSDL::XSD::Typelib::SimpleType;
|
||||
use strict; use warnings;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin;
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
package SOAP::WSDL::XSD::Typelib::SimpleType::restriction;
|
||||
use strict;
|
||||
use SOAP::WSDL::XSD::Typelib::Builtin;
|
||||
use base qw(SOAP::WSDL::XSD::Typelib::SimpleType);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
1;
|
||||
__END__
|
||||
@@ -132,9 +132,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
||||
|
||||
=head1 REPOSITORY INFORMATION
|
||||
|
||||
$Rev: 798 $
|
||||
$Rev: 851 $
|
||||
$LastChangedBy: kutterma $
|
||||
$Id: SimpleType.pm 798 2009-02-22 18:44:13Z kutterma $
|
||||
$Id: SimpleType.pm 851 2009-05-15 22:45:18Z kutterma $
|
||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm $
|
||||
|
||||
=cut
|
||||
|
||||
@@ -4,7 +4,7 @@ use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::Base);
|
||||
|
||||
use version; our $VERSION = qv('2.00.08');
|
||||
use version; our $VERSION = qv('2.00.10');
|
||||
|
||||
#<pattern value="">
|
||||
|
||||
|
||||
0
t/CodeFirst/ComplexType.pm
Normal file → Executable file
0
t/CodeFirst/ComplexType.pm
Normal file → Executable file
0
t/CodeFirst/element.pm
Normal file → Executable file
0
t/CodeFirst/element.pm
Normal file → Executable file
0
t/CodeFirst/sequence.pm
Normal file → Executable file
0
t/CodeFirst/sequence.pm
Normal file → Executable file
77
t/CodeFirst/test.pl
Normal file → Executable file
77
t/CodeFirst/test.pl
Normal file → Executable file
@@ -5,26 +5,85 @@ use lib '../lib';
|
||||
use base q{CodeFirst};
|
||||
|
||||
sub test :WebMethod(
|
||||
action => "test",
|
||||
returns => "bar",
|
||||
header => "bam",
|
||||
body => "baz"
|
||||
name => "sayHello",
|
||||
action => "uri:helloWorld/sayHello",
|
||||
request_body => "CodeFirst::HelloRequest",
|
||||
response_body => "CodeFirst::HelloResponse"
|
||||
) {
|
||||
|
||||
# return either [ \%body, \%header ]
|
||||
# or \%body
|
||||
# or [ Body->new(), Header->new ]
|
||||
# or even [ Body->new(), [ Header1->new(), Header2->new() ]]
|
||||
# or any combination of that
|
||||
return [{
|
||||
|
||||
},
|
||||
{
|
||||
|
||||
}];
|
||||
}
|
||||
|
||||
=pod
|
||||
|
||||
... would translate to
|
||||
|
||||
<element name="test">
|
||||
<complexType>
|
||||
<sequence>
|
||||
<element name="testRequest" type="bam"/>
|
||||
</sequence>
|
||||
</complexType>
|
||||
</element>
|
||||
|
||||
=cut
|
||||
|
||||
|
||||
=pod
|
||||
|
||||
sub test2 :WebMethod(
|
||||
action => "test2",
|
||||
returns => "bar",
|
||||
header => "bam",
|
||||
body => "baz"
|
||||
request_header => "bar",
|
||||
reqest_body => "bam",
|
||||
response_header => "bam",
|
||||
response_body => "baz"
|
||||
) {
|
||||
}
|
||||
|
||||
=cut
|
||||
|
||||
package main;
|
||||
use Data::Dumper;
|
||||
my $test = testCodeFirst->new();
|
||||
# print Dumper $test->_action_map;
|
||||
|
||||
print Dumper $test->get_transport()->get_action_map_ref();
|
||||
# print Dumper $test->_action_map;
|
||||
# print Dumper $test->get_transport()->get_action_map_ref();
|
||||
|
||||
#print $test->get_wsdl("http://localhost/foo")->toString();
|
||||
use CodeFirst::Serializer;
|
||||
use CodeFirst::Deserializer;
|
||||
use CodeFirst::HelloResponse;
|
||||
use CodeFirst::HelloRequest;
|
||||
my $serializer = CodeFirst::Serializer->new();
|
||||
|
||||
#print $serializer->serialize("sayHelloResponse", "uri:MooseX.SOAP.CodeFirst", CodeFirst::HelloResponse->new(
|
||||
# Result => "Test"
|
||||
#))->toString;
|
||||
#
|
||||
my $xml = $serializer->serialize("sayHello", "uri:MooseX.SOAP.testCodeFirst", CodeFirst::HelloRequest->new(
|
||||
Name => 'Flint',
|
||||
GivenName => 'Erol',
|
||||
))->toString;
|
||||
#print "\n\n";
|
||||
print $xml, "\n";
|
||||
|
||||
print $test->get_wsdl()->toString(), "\n";
|
||||
|
||||
my $deserializer = CodeFirst::Deserializer->new();
|
||||
$deserializer->schema( $test->schema );
|
||||
|
||||
print Dumper $deserializer->deserialize($xml, 'CodeFirst::HelloRequest');
|
||||
|
||||
|
||||
|
||||
1;
|
||||
@@ -1,66 +1,96 @@
|
||||
package FaultDeserializer;
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More tests => 15;
|
||||
use SOAP::WSDL::SOAP::Typelib::Fault11;
|
||||
|
||||
sub new { bless {}, shift }
|
||||
|
||||
sub deserialize {
|
||||
die SOAP::WSDL::SOAP::Typelib::Fault11->new( {} );
|
||||
}
|
||||
|
||||
package main;
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More tests => 16;
|
||||
use SOAP::WSDL::Transport::Loopback;
|
||||
use Scalar::Util qw(blessed);
|
||||
|
||||
use_ok qw(SOAP::WSDL::Client);
|
||||
|
||||
{
|
||||
no warnings qw(redefine once);
|
||||
*SOAP::WSDL::Factory::Transport::get_transport = sub {
|
||||
my ($self, $url , %args_of) = @_;
|
||||
my ( $self, $url, %args_of ) = @_;
|
||||
if (%args_of) {
|
||||
is $args_of{foo}, 'bar';
|
||||
}
|
||||
};
|
||||
}
|
||||
ok my $client = SOAP::WSDL::Client->new();
|
||||
|
||||
ok $client = SOAP::WSDL::Client->new({
|
||||
proxy => 'http://localhost',
|
||||
});
|
||||
sub test_client_basics {
|
||||
ok my $client = SOAP::WSDL::Client->new();
|
||||
ok $client = SOAP::WSDL::Client->new( {proxy => 'http://localhost',} );
|
||||
is $client->get_content_type(), 'text/xml; charset=utf-8';
|
||||
is $client->get_endpoint(), 'http://localhost';
|
||||
$client->set_proxy( 'http://localhost', foo => 'bar', );
|
||||
|
||||
is $client->get_content_type(), 'text/xml; charset=utf-8';
|
||||
#TODO is this behaviour still required? declare as deprecated and remove...
|
||||
$client->set_proxy( ['http://localhost', foo => 'bar',] );
|
||||
|
||||
is $client->get_endpoint(), 'http://localhost';
|
||||
is $client->get_proxy(), $client->get_transport(),
|
||||
'get_proxy returns same as get_transport';
|
||||
|
||||
$client->set_proxy('http://localhost',
|
||||
foo => 'bar',
|
||||
);
|
||||
ok $client->set_soap_version('1.1');
|
||||
is $client->get_soap_version(), '1.1';
|
||||
|
||||
#TODO is this behaviour still required? declare as deprecated and remove...
|
||||
$client->set_proxy(
|
||||
[ 'http://localhost',
|
||||
foo => 'bar',
|
||||
]
|
||||
);
|
||||
$client->set_deserializer_args( {strict => 0} );
|
||||
is $client->get_deserializer_args()->{strict}, 0;
|
||||
}
|
||||
|
||||
sub test_call {
|
||||
my $client = SOAP::WSDL::Client->new();
|
||||
$client->no_dispatch(1);
|
||||
$client->set_serializer('main');
|
||||
my $serialize = $client->call(
|
||||
{operation => 'testMethod'},
|
||||
{foo => 'bar'},
|
||||
{bar => 'baz'} );
|
||||
is $serialize->{body}->{foo}, 'bar';
|
||||
is $serialize->{header}->{bar}, 'baz';
|
||||
|
||||
is $client->get_proxy(), $client->get_transport(), 'get_proxy returns same as get_transport';
|
||||
# Old calling style compatibility test - foo => bar is body...
|
||||
$serialize = $client->call( {operation => 'testMethod'}, foo => 'bar' );
|
||||
is $serialize->{body}->{foo}, 'bar';
|
||||
|
||||
ok $client->set_soap_version('1.1');
|
||||
is $client->get_soap_version(), '1.1';
|
||||
|
||||
$client->no_dispatch(1);
|
||||
$client->set_serializer('main');
|
||||
my $serialize = $client->call({
|
||||
operation => 'testMethod'
|
||||
}, { foo => 'bar'}, { bar => 'baz'});
|
||||
is $serialize->{ body }->{ foo }, 'bar';
|
||||
is $serialize->{ header }->{ bar }, 'baz';
|
||||
|
||||
# Old calling style compatibility test - foo => bar is body...
|
||||
$serialize = $client->call({
|
||||
operation => 'testMethod'
|
||||
}, foo => 'bar');
|
||||
is $serialize->{ body }->{ foo }, 'bar';
|
||||
|
||||
# Old calling style compatibility test - foo => bar is body...
|
||||
$serialize = $client->call('testMethod', foo => 'bar');
|
||||
is $serialize->{ body }->{ foo }, 'bar';
|
||||
# Old calling style compatibility test - foo => bar is body...
|
||||
$serialize = $client->call( 'testMethod', foo => 'bar' );
|
||||
is $serialize->{body}->{foo}, 'bar';
|
||||
}
|
||||
|
||||
sub serialize {
|
||||
my $self = shift;
|
||||
return shift;
|
||||
}
|
||||
|
||||
$client->set_deserializer_args({ strict => 0 });
|
||||
is $client->get_deserializer_args()->{ strict }, 0;
|
||||
|
||||
sub test_deserializer_fault {
|
||||
|
||||
my $client = SOAP::WSDL::Client->new();
|
||||
$client->set_deserializer( FaultDeserializer->new() );
|
||||
$client->set_transport( SOAP::WSDL::Transport::Loopback->new() );
|
||||
|
||||
my $fault = $client->call(
|
||||
{operation => 'testMethod'},
|
||||
{foo => 'bar'},
|
||||
{bar => 'baz'} );
|
||||
|
||||
ok( (blessed $fault and $fault->isa('SOAP::WSDL::SOAP::Typelib::Fault11')),
|
||||
'Return fault on throwing during deserialization ' . $@);
|
||||
|
||||
}
|
||||
|
||||
test_client_basics();
|
||||
test_call();
|
||||
test_deserializer_fault();
|
||||
|
||||
|
||||
@@ -43,6 +43,6 @@ $fault = $deserializer->deserialize('');
|
||||
|
||||
isa_ok $fault, 'SOAP::Fault';
|
||||
|
||||
is $fault->faultactor(), 'soap:Server';
|
||||
is $fault->faultactor(), 'SOAP-ENV:Server';
|
||||
like $fault->faultstring(), qr{no \s element \s found}x;
|
||||
|
||||
|
||||
@@ -20,7 +20,7 @@ my $fault = $obj->generate_fault();
|
||||
|
||||
is $fault->get_faultstring(), 'Unknown error';
|
||||
is $fault->get_faultactor(), 'urn:localhost';
|
||||
is $fault->get_faultcode(), 'soap:Client';
|
||||
is $fault->get_faultcode(), 'SOAP-ENV:Client';
|
||||
|
||||
isa_ok $obj->deserialize('rubbeldiekatz'), 'SOAP::WSDL::SOAP::Typelib::Fault11';
|
||||
isa_ok $obj->deserialize('<zumsel></zumsel>'), 'SOAP::WSDL::SOAP::Typelib::Fault11';
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
use Test::More tests => 14;
|
||||
use Test::More tests => 15;
|
||||
use File::Basename qw(dirname);
|
||||
use File::Spec;
|
||||
use File::Path;
|
||||
@@ -63,6 +63,8 @@ use_ok qw(MyInterfaces::My::SOAP::testService::testPort);
|
||||
use_ok qw(MyServer::My::SOAP::testService::testPort);
|
||||
use_ok qw(MyTypes::testComplexTypeRestriction);
|
||||
use_ok qw(MyTypes::testComplexTypeAll);
|
||||
# type with dot in name including atomic type
|
||||
use_ok qw(MyTypes::test::ComplexTypeElementAtomicSimpleType);
|
||||
SKIP: {
|
||||
eval { require Test::Pod::Content; }
|
||||
or skip 'Cannot test pod content without Test::Pod::Content', 6;
|
||||
|
||||
@@ -73,16 +73,18 @@ __PACKAGE__->_factory(
|
||||
);
|
||||
|
||||
package MyElementSimpleContent;
|
||||
use base qw(
|
||||
SOAP::WSDL::XSD::Typelib::Element
|
||||
SOAP::WSDL::XSD::Typelib::ComplexType
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::string
|
||||
);
|
||||
{
|
||||
use base qw(
|
||||
SOAP::WSDL::XSD::Typelib::Element
|
||||
SOAP::WSDL::XSD::Typelib::ComplexType
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::string
|
||||
);
|
||||
|
||||
__PACKAGE__->__set_name( 'MyElementSimpleContent' );
|
||||
|
||||
sub __get_attr_class { 'MyElement::_ATTR' };
|
||||
__PACKAGE__->__set_name( 'MyElementSimpleContent' );
|
||||
|
||||
sub __get_attr_class { 'MyElement::_ATTR' };
|
||||
sub get_xmlns { 'http://www.w3.org/2001/XMLSchema' }
|
||||
}
|
||||
package main;
|
||||
use Test::More tests => 127;
|
||||
use Storable;
|
||||
@@ -392,4 +394,4 @@ ok ! exists $obj->as_hash_ref(1)->{ xmlattr };
|
||||
local $SOAP::WSDL::XSD::Typelib::ComplexType::AS_HASH_REF_WITHOUT_ATTRIBUTES = 1;
|
||||
ok ! exists $obj->as_hash_ref()->{ xmlattr };
|
||||
ok ! exists $obj->as_hash_ref(1)->{ xmlattr };
|
||||
}
|
||||
}
|
||||
|
||||
@@ -1,81 +0,0 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<wsdl:definitions targetNamespace="http://order.soap.services"
|
||||
xmlns:impl="http://order.soap.services" xmlns:intf="http://order.soap.services"
|
||||
xmlns:apachesoap="http://xml.apache.org/xml-soap"
|
||||
xmlns:wsdlsoap="http://schemas.xmlsoap.org/wsdl/soap/"
|
||||
xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
|
||||
xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:tns1="http://database.services"
|
||||
xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
|
||||
<!--WSDL created by Apache Axis version: 1.2RC3
|
||||
Built on Feb 28, 2005 (10:15:14 EST)-->
|
||||
<wsdl:types>
|
||||
<schema xmlns="http://www.w3.org/2001/XMLSchema"
|
||||
targetNamespace="http://database.services">
|
||||
<import namespace="http://schemas.xmlsoap.org/soap/encoding/" />
|
||||
<complexType name="ProcedureResponse">
|
||||
<sequence>
|
||||
<element name="message" nillable="true" type="soapenc:string" />
|
||||
<element name="status" type="xsd:int" />
|
||||
</sequence>
|
||||
</complexType>
|
||||
</schema>
|
||||
</wsdl:types>
|
||||
|
||||
<wsdl:message name="confirmRequest">
|
||||
<wsdl:part name="language_id" type="soapenc:string" />
|
||||
<wsdl:part name="user_id" type="soapenc:string" />
|
||||
<wsdl:part name="supplier_code" type="soapenc:string" />
|
||||
<wsdl:part name="customer_no" type="soapenc:string" />
|
||||
<wsdl:part name="author" type="soapenc:string" />
|
||||
<wsdl:part name="title" type="soapenc:string" />
|
||||
<wsdl:part name="isbn" type="soapenc:string" />
|
||||
<wsdl:part name="classification" type="soapenc:string" />
|
||||
<wsdl:part name="purchase_note" type="soapenc:string" />
|
||||
<wsdl:part name="article_no" type="soapenc:string" />
|
||||
<wsdl:part name="price" type="xsd:double" />
|
||||
<wsdl:part name="currency_id" type="soapenc:string" />
|
||||
<wsdl:part name="delivery_date" type="xsd:dateTime" />
|
||||
<wsdl:part name="info_note" type="soapenc:string" />
|
||||
<wsdl:part name="no_of_copies" type="xsd:int" />
|
||||
<wsdl:part name="order_no" type="soapenc:string" />
|
||||
<wsdl:part name="order_date" type="xsd:dateTime" />
|
||||
<wsdl:part name="title_no" type="soapenc:string" />
|
||||
</wsdl:message>
|
||||
|
||||
<wsdl:message name="confirmResponse">
|
||||
<wsdl:part name="confirmReturn" type="tns1:ProcedureResponse" />
|
||||
</wsdl:message>
|
||||
|
||||
<wsdl:portType name="OrderImpl">
|
||||
<wsdl:operation name="confirm"
|
||||
parameterOrder="language_id user_id supplier_code customer_no author title isbn classification purchase_note article_no price currency_id delivery_date info_note no_of_copies order_no order_date title_no">
|
||||
<wsdl:input name="confirmRequest" message="impl:confirmRequest" />
|
||||
<wsdl:output name="confirmResponse" message="impl:confirmResponse" />
|
||||
</wsdl:operation>
|
||||
</wsdl:portType>
|
||||
|
||||
<wsdl:binding name="OrderSoapBinding" type="impl:OrderImpl">
|
||||
<wsdlsoap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http" />
|
||||
<wsdl:operation name="confirm">
|
||||
<wsdlsoap:operation soapAction="" />
|
||||
<wsdl:input name="confirmRequest">
|
||||
<wsdlsoap:body use="encoded"
|
||||
encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
|
||||
namespace="http://order.soap.services" />
|
||||
</wsdl:input>
|
||||
|
||||
<wsdl:output name="confirmResponse">
|
||||
<wsdlsoap:body use="encoded"
|
||||
encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
|
||||
namespace="http://order.soap.services" />
|
||||
</wsdl:output>
|
||||
</wsdl:operation>
|
||||
</wsdl:binding>
|
||||
|
||||
<wsdl:service name="OrderImplService">
|
||||
<wsdl:port name="Order" binding="impl:OrderSoapBinding">
|
||||
<wsdlsoap:address location="http://example.com/services/services/Order" />
|
||||
</wsdl:port>
|
||||
|
||||
</wsdl:service>
|
||||
</wsdl:definitions>
|
||||
@@ -1,202 +0,0 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<wsdl:definitions targetNamespace="http://example.com/soap/services/ETest"
|
||||
xmlns="http://schemas.xmlsoap.org/wsdl/"
|
||||
xmlns:apachesoap="http://xml.apache.org/xml-soap"
|
||||
xmlns:impl="http://example.com/soap/services/ETest"
|
||||
xmlns:intf="http://example.com/soap/services/ETest"
|
||||
xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:tns1="urn:ETest"
|
||||
xmlns:tns2="urn:acquisition" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
|
||||
xmlns:wsdlsoap="http://schemas.xmlsoap.org/wsdl/soap/"
|
||||
xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<wsdl:types>
|
||||
<schema targetNamespace="urn:ETest" xmlns="http://www.w3.org/2001/XMLSchema">
|
||||
<import namespace="http://schemas.xmlsoap.org/soap/encoding/" />
|
||||
<complexType name="CreationBaseData">
|
||||
<sequence>
|
||||
<element name="createdBy" nillable="true" type="xsd:long" />
|
||||
<element name="creationDate" nillable="true" type="xsd:dateTime" />
|
||||
<element name="updateDateCenter" nillable="true" type="xsd:dateTime" />
|
||||
<element name="updateDateLocal" nillable="true" type="xsd:dateTime" />
|
||||
<element name="updatedBy" nillable="true" type="xsd:long" />
|
||||
</sequence>
|
||||
</complexType>
|
||||
<complexType name="CreationData">
|
||||
<complexContent>
|
||||
<extension base="tns1:CreationBaseData">
|
||||
<sequence>
|
||||
<element name="creatorFullName" nillable="true" type="xsd:string" />
|
||||
<element name="modifierFullName" nillable="true" type="xsd:string" />
|
||||
</sequence>
|
||||
</extension>
|
||||
</complexContent>
|
||||
</complexType>
|
||||
<complexType abstract="true" name="EProductData">
|
||||
<sequence>
|
||||
<element name="EStatus" nillable="true" type="xsd:string" />
|
||||
<element name="EStatusUpdatedate" nillable="true" type="xsd:dateTime" />
|
||||
<element name="SFXID" nillable="true" type="xsd:string" />
|
||||
<element name="activationFromDate" nillable="true" type="xsd:dateTime" />
|
||||
<element name="activationToDate" nillable="true" type="xsd:dateTime" />
|
||||
<element name="activityStatusDateFrom" nillable="true" type="xsd:dateTime" />
|
||||
<element name="activityStatusDateTo" nillable="true" type="xsd:dateTime" />
|
||||
<element name="canEditSFXID" type="xsd:boolean" />
|
||||
<element name="concurrentNumberOfUsers" nillable="true" type="xsd:int" />
|
||||
<element name="creationData" nillable="true" type="tns1:CreationData" />
|
||||
<element name="deleteable" type="xsd:boolean" />
|
||||
<element name="ETestCode" nillable="true" type="xsd:string" />
|
||||
<element name="id" nillable="true" type="xsd:long" />
|
||||
<element name="instanceCode" nillable="true" type="xsd:string" />
|
||||
<element name="mainContact" nillable="true" type="xsd:string" />
|
||||
<element name="metaLibID" nillable="true" type="xsd:string" />
|
||||
<element name="otherID" nillable="true" type="xsd:string" />
|
||||
<element name="otherSource" nillable="true" type="xsd:string" />
|
||||
<element name="privateNote" nillable="true" type="xsd:string" />
|
||||
<element name="procurementStatus" nillable="true" type="xsd:string" />
|
||||
<element name="procurementStatusUpdateDate" nillable="true" type="xsd:dateTime" />
|
||||
<element name="procurementStatusUpdatedate" nillable="true" type="xsd:dateTime" />
|
||||
<element name="sourceInstanceCode" nillable="true" type="xsd:string" />
|
||||
<element name="sponseringLibraryCode" nillable="true" type="xsd:string" />
|
||||
<element name="sponseringLibraryName" nillable="true" type="xsd:string" />
|
||||
<element name="updateTarget" nillable="true" type="xsd:string" />
|
||||
<element name="workExpressionCode" nillable="true" type="xsd:string" />
|
||||
</sequence>
|
||||
</complexType>
|
||||
<complexType name="EProductInformation">
|
||||
<sequence>
|
||||
<element name="acquisitions" nillable="true"
|
||||
type="impl:ArrayOf_tns2_AcquisitionData" />
|
||||
<element name="data" nillable="true" type="tns1:EProductData" />
|
||||
</sequence>
|
||||
</complexType>
|
||||
</schema>
|
||||
<schema targetNamespace="urn:acquisition" xmlns="http://www.w3.org/2001/XMLSchema">
|
||||
<import namespace="http://schemas.xmlsoap.org/soap/encoding/" />
|
||||
<complexType name="AcquisitionCommonData">
|
||||
<sequence>
|
||||
<element name="budgets" nillable="true" type="xsd:string" />
|
||||
<element name="campusCode" nillable="true" type="xsd:string" />
|
||||
<element name="concurrentUsersNote" nillable="true" type="xsd:string" />
|
||||
<element name="creationData" nillable="true" type="tns1:CreationData" />
|
||||
<element name="id" nillable="true" type="xsd:long" />
|
||||
<element name="instituteCode" nillable="true" type="xsd:string" />
|
||||
</sequence>
|
||||
</complexType>
|
||||
<complexType name="AcquisitionData">
|
||||
<sequence>
|
||||
<element name="ILSSubscriptionNo" nillable="true" type="xsd:string" />
|
||||
<element name="acquisitionCode" nillable="true" type="xsd:string" />
|
||||
<element name="acquisitionCommonData" nillable="true"
|
||||
type="tns2:AcquisitionCommonData" />
|
||||
<element name="acquisitionMethod" nillable="true" type="xsd:string" />
|
||||
<element name="acquisitionNumber" nillable="true" type="xsd:string" />
|
||||
<element name="acquisitionStatus" nillable="true" type="xsd:string" />
|
||||
<element name="acquisitionStatusDate" nillable="true" type="xsd:dateTime" />
|
||||
<element name="advanceNoticeDate" nillable="true" type="xsd:dateTime" />
|
||||
<element name="autoRenewal" nillable="true" type="xsd:boolean" />
|
||||
<element name="consortialAgreement" type="xsd:boolean" />
|
||||
<element name="discountOnPrice" nillable="true" type="xsd:int" />
|
||||
<element name="id" nillable="true" type="xsd:long" />
|
||||
<element name="instanceCode" nillable="true" type="xsd:string" />
|
||||
<element name="materialType" nillable="true" type="xsd:string" />
|
||||
<element name="noteForILS" nillable="true" type="xsd:string" />
|
||||
<element name="noteForVendor" nillable="true" type="xsd:string" />
|
||||
<element name="noticePeriodCode" nillable="true" type="xsd:string" />
|
||||
<element name="numberOfCopies" nillable="true" type="xsd:int" />
|
||||
<element name="orderDate" nillable="true" type="xsd:dateTime" />
|
||||
<element name="orderForm" nillable="true" type="xsd:string" />
|
||||
<element name="orderSendMethod" nillable="true" type="xsd:string" />
|
||||
<element name="pooledConcurrentUsers" nillable="true" type="xsd:int" />
|
||||
<element name="price" nillable="true" type="xsd:double" />
|
||||
<element name="pricingCap" nillable="true" type="xsd:int" />
|
||||
<element name="pricingCapFrom" nillable="true" type="xsd:dateTime" />
|
||||
<element name="pricingCapTo" nillable="true" type="xsd:dateTime" />
|
||||
<element name="pricingModel" nillable="true" type="xsd:string" />
|
||||
<element name="printCancellationNote" nillable="true" type="xsd:string" />
|
||||
<element name="printCancellationRestriction" type="xsd:boolean" />
|
||||
<element name="printPurchaseOrderNo" nillable="true" type="xsd:string" />
|
||||
<element name="purchaseOrderNo" nillable="true" type="xsd:string" />
|
||||
<element name="renewallOrCancellationDate" nillable="true" type="xsd:dateTime" />
|
||||
<element name="renewallOrCancellationDescisionNote" nillable="true"
|
||||
type="xsd:string" />
|
||||
<element name="renewallOrCancellationNoteForILS" nillable="true"
|
||||
type="xsd:string" />
|
||||
<element name="renewallOrCancellationNoteForVendor" nillable="true"
|
||||
type="xsd:string" />
|
||||
<element name="subscriptionNotification" nillable="true" type="xsd:int" />
|
||||
<element name="subscriptionPeriodCode" nillable="true" type="xsd:string" />
|
||||
<element name="subscriptionType" nillable="true" type="xsd:string" />
|
||||
<element name="subscriptionTypeNote" nillable="true" type="xsd:string" />
|
||||
<element name="vendorAdvancedNotice" nillable="true" type="xsd:int" />
|
||||
<element name="vendorAdvancedNoticeVal" nillable="true" type="xsd:string" />
|
||||
<element name="vendorCode" nillable="true" type="xsd:string" />
|
||||
<element name="vendorName" nillable="true" type="xsd:string" />
|
||||
<element name="vendorSubscriptionCode" nillable="true" type="xsd:string" />
|
||||
</sequence>
|
||||
</complexType>
|
||||
</schema>
|
||||
<schema targetNamespace="http://example.com/soap/services/ETest"
|
||||
xmlns="http://www.w3.org/2001/XMLSchema">
|
||||
<import namespace="http://schemas.xmlsoap.org/soap/encoding/" />
|
||||
<complexType name="ArrayOf_tns2_AcquisitionData">
|
||||
<complexContent>
|
||||
<restriction base="soapenc:Array">
|
||||
<attribute ref="soapenc:arrayType" wsdl:arrayType="tns2:AcquisitionData[]" />
|
||||
</restriction>
|
||||
</complexContent>
|
||||
</complexType>
|
||||
</schema>
|
||||
</wsdl:types>
|
||||
<wsdl:message name="getETestResponse">
|
||||
<wsdl:part name="getETestReturn" type="tns1:EProductInformation" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="getFixedETestResponse">
|
||||
<wsdl:part name="getFixedETestReturn" type="tns1:EProductInformation" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="getFixedETestRequest"></wsdl:message>
|
||||
<wsdl:message name="getETestRequest">
|
||||
<wsdl:part name="indexName" type="xsd:string" />
|
||||
<wsdl:part name="indexValue" type="xsd:string" />
|
||||
<wsdl:part name="withStatus" type="xsd:string" />
|
||||
</wsdl:message>
|
||||
<wsdl:portType name="ETestWeb">
|
||||
<wsdl:operation name="getETest" parameterOrder="indexName indexValue withStatus">
|
||||
<wsdl:input message="impl:getETestRequest" name="getETestRequest" />
|
||||
<wsdl:output message="impl:getETestResponse" name="getETestResponse" />
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="getFixedETest">
|
||||
<wsdl:input message="impl:getFixedETestRequest" name="getFixedETestRequest" />
|
||||
<wsdl:output message="impl:getFixedETestResponse"
|
||||
name="getFixedETestResponse" />
|
||||
</wsdl:operation>
|
||||
</wsdl:portType>
|
||||
<wsdl:binding name="ETestSoapBinding" type="impl:ETestWeb">
|
||||
<wsdlsoap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http" />
|
||||
<wsdl:operation name="getETest">
|
||||
<wsdlsoap:operation soapAction="" />
|
||||
<wsdl:input name="getETestRequest">
|
||||
<wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
|
||||
namespace="http://ETest.webservice.api.verde.exlibris.com" use="encoded" />
|
||||
</wsdl:input>
|
||||
<wsdl:output name="getETestResponse">
|
||||
<wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
|
||||
namespace="http://example.com/soap/services/ETest" use="encoded" />
|
||||
</wsdl:output>
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="getFixedETest">
|
||||
<wsdlsoap:operation soapAction="" />
|
||||
<wsdl:input name="getFixedETestRequest">
|
||||
<wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
|
||||
namespace="http://ETest.webservice.api.verde.exlibris.com" use="encoded" />
|
||||
</wsdl:input>
|
||||
<wsdl:output name="getFixedETestResponse">
|
||||
<wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
|
||||
namespace="http://example.com/soap/services/ETest" use="encoded" />
|
||||
</wsdl:output>
|
||||
</wsdl:operation>
|
||||
</wsdl:binding>
|
||||
<wsdl:service name="ETestWebService">
|
||||
<wsdl:port binding="impl:ETestSoapBinding" name="ETest">
|
||||
<wsdlsoap:address location="http://example.com/soap/services/ETest" />
|
||||
</wsdl:port>
|
||||
</wsdl:service>
|
||||
</wsdl:definitions>
|
||||
@@ -1,160 +0,0 @@
|
||||
<wsdl:definitions xmlns:oi="http://example.com/OITest/"
|
||||
xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
|
||||
xmlns:ws="http://example.com/OITest/ws/"
|
||||
xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
|
||||
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
|
||||
xmlns:ns="http://www.w3.org/2001/XMLSchema"
|
||||
targetNamespace="http://example.com/OITest/ws/">
|
||||
<wsdl:types>
|
||||
<xsi:schema targetNamespace="http://example.com/OITest/ws/"
|
||||
xmlns:xsi="http://www.w3.org/2001/XMLSchema"
|
||||
xmlns="http://example.com/OITest/ws/" elementFormDefault="unqualified"
|
||||
attributeFormDefault="unqualified">
|
||||
</xsi:schema>
|
||||
</wsdl:types>
|
||||
<wsdl:message name="AvailableToSellRequest">
|
||||
<wsdl:part name="atsInquiry" element="oi:atsInquiry" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="AvailableToSellResponse">
|
||||
<wsdl:part name="availableToSell" element="oi:availableToSell" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="POResponse">
|
||||
<wsdl:part name="acknowledgement" element="oi:acknowledgement" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="OITestWebServicesFault">
|
||||
<wsdl:part name="OITestFault" element="oi:OITestFault" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="CatalogRequest">
|
||||
<wsdl:part name="catalogRequest" element="oi:catalogRequest" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="CatalogReponse">
|
||||
<wsdl:part name="catalog" element="oi:catalog" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="CatalogListRequest">
|
||||
<wsdl:part name="catalogListInfo" element="oi:catalogListRequest" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="CatalogListResponse">
|
||||
<wsdl:part name="catalogList" element="oi:catalogList" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="POSubmitRequest">
|
||||
<wsdl:part name="submitPO" element="oi:submitPO" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="POCancelRequest">
|
||||
<wsdl:part name="cancelPO" element="oi:cancelPO" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="POChangeRequest">
|
||||
<wsdl:part name="changePO" element="oi:changePO" />
|
||||
</wsdl:message>
|
||||
<wsdl:portType name="OITestPort">
|
||||
<wsdl:operation name="ATSCheck">
|
||||
<wsdl:input message="ws:AvailableToSellRequest" />
|
||||
<wsdl:output message="ws:AvailableToSellResponse" />
|
||||
<wsdl:fault name="OITestFault" message="ws:OITestWebServicesFault" />
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="POSubmit">
|
||||
<wsdl:input message="ws:POSubmitRequest" />
|
||||
<wsdl:output message="ws:POResponse" />
|
||||
<wsdl:fault name="OITestFault" message="ws:OITestWebServicesFault" />
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="POCancel">
|
||||
<wsdl:input message="ws:POCancelRequest" />
|
||||
<wsdl:output message="ws:POResponse" />
|
||||
<wsdl:fault name="OITestFault" message="ws:OITestWebServicesFault" />
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="POChange">
|
||||
<wsdl:input message="ws:POChangeRequest" />
|
||||
<wsdl:output message="ws:POResponse" />
|
||||
<wsdl:fault name="OITestFault" message="ws:OITestWebServicesFault" />
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="CatalogRequest">
|
||||
<wsdl:input message="ws:CatalogRequest" />
|
||||
<wsdl:output message="ws:CatalogReponse" />
|
||||
<wsdl:fault name="OITestFault" message="ws:OITestWebServicesFault" />
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="CatalogListRequest">
|
||||
<wsdl:input message="ws:CatalogListRequest" />
|
||||
<wsdl:output message="ws:CatalogListResponse" />
|
||||
<wsdl:fault name="OITestFault" message="ws:OITestWebServicesFault" />
|
||||
</wsdl:operation>
|
||||
</wsdl:portType>
|
||||
<wsdl:binding name="OITestBinding" type="ws:OITestPort">
|
||||
<soap:binding style="document" transport="http://schemas.xmlsoap.org/soap/http" />
|
||||
<wsdl:operation name="ATSCheck">
|
||||
<soap:operation soapAction="http://example.com/OITest/ATSCheck" />
|
||||
<wsdl:input>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:input>
|
||||
<wsdl:output>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:output>
|
||||
<wsdl:fault name="OITestFault">
|
||||
<soap:fault name="OITestFault" use="literal" />
|
||||
</wsdl:fault>
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="POSubmit">
|
||||
<soap:operation soapAction="http://example.com/OITest/POSubmit" />
|
||||
<wsdl:input>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:input>
|
||||
<wsdl:output>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:output>
|
||||
<wsdl:fault name="OITestFault">
|
||||
<soap:fault name="OITestFault" use="literal" />
|
||||
</wsdl:fault>
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="POCancel">
|
||||
<soap:operation soapAction="http://example.com/OITest/POCancel" />
|
||||
<wsdl:input>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:input>
|
||||
<wsdl:output>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:output>
|
||||
<wsdl:fault name="OITestFault">
|
||||
<soap:fault name="OITestFault" use="literal" />
|
||||
</wsdl:fault>
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="POChange">
|
||||
<soap:operation soapAction="http://example.com/OITest/POChange" />
|
||||
<wsdl:input>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:input>
|
||||
<wsdl:output>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:output>
|
||||
<wsdl:fault name="OITestFault">
|
||||
<soap:fault name="OITestFault" use="literal" />
|
||||
</wsdl:fault>
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="CatalogRequest">
|
||||
<soap:operation soapAction="http://example.com/OITest/CatalogRequest" />
|
||||
<wsdl:input>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:input>
|
||||
<wsdl:output>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:output>
|
||||
<wsdl:fault name="OITestFault">
|
||||
<soap:fault name="OITestFault" use="literal" />
|
||||
</wsdl:fault>
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="CatalogListRequest">
|
||||
<soap:operation soapAction="http://example.com/OITest/CatalogListRequest" />
|
||||
<wsdl:input>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:input>
|
||||
<wsdl:output>
|
||||
<soap:body use="literal" />
|
||||
</wsdl:output>
|
||||
<wsdl:fault name="OITestFault">
|
||||
<soap:fault name="OITestFault" use="literal" />
|
||||
</wsdl:fault>
|
||||
</wsdl:operation>
|
||||
</wsdl:binding>
|
||||
<wsdl:service name="OITestService">
|
||||
<wsdl:port name="OITestService" binding="ws:OITestBinding">
|
||||
<soap:address location="http://localhost:8080/ws/services/OITestService" />
|
||||
</wsdl:port>
|
||||
</wsdl:service>
|
||||
</wsdl:definitions>
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user