Compare commits
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
9023aa06a4 | ||
|
|
3b30e8d0e2 |
@@ -5,7 +5,7 @@ $build = Module::Build->new(
|
|||||||
create_makefile_pl => 'small',
|
create_makefile_pl => 'small',
|
||||||
dist_abstract => 'SOAP with WSDL support',
|
dist_abstract => 'SOAP with WSDL support',
|
||||||
dist_name => 'SOAP-WSDL',
|
dist_name => 'SOAP-WSDL',
|
||||||
dist_version => '2.00.08',
|
dist_version => '2.00.10',
|
||||||
module_name => 'SOAP::WSDL',
|
module_name => 'SOAP::WSDL',
|
||||||
license => 'artistic',
|
license => 'artistic',
|
||||||
requires => {
|
requires => {
|
||||||
|
|||||||
@@ -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.
|
I'm proud to present a new release of SOAP::WSDL.
|
||||||
@@ -37,6 +37,44 @@ Features:
|
|||||||
|
|
||||||
The following changes have been made:
|
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
|
2.00.08 - Feb 22 2009
|
||||||
|
|
||||||
The following bugs have been fixed (the numbers in square brackets are the
|
The following bugs have been fixed (the numbers in square brackets are the
|
||||||
|
|||||||
@@ -197,6 +197,7 @@ lib/SOAP/WSDL/SOAP/Body.pm
|
|||||||
lib/SOAP/WSDL/SOAP/Header.pm
|
lib/SOAP/WSDL/SOAP/Header.pm
|
||||||
lib/SOAP/WSDL/SOAP/HeaderFault.pm
|
lib/SOAP/WSDL/SOAP/HeaderFault.pm
|
||||||
lib/SOAP/WSDL/SOAP/Operation.pm
|
lib/SOAP/WSDL/SOAP/Operation.pm
|
||||||
|
lib/SOAP/WSDL/SOAP/Typelib/Fault.pm
|
||||||
lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm
|
lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm
|
||||||
lib/SOAP/WSDL/Transport/HTTP.pm
|
lib/SOAP/WSDL/Transport/HTTP.pm
|
||||||
lib/SOAP/WSDL/Transport/Loopback.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/05_simpleType-union.wsdl
|
||||||
t/acceptance/wsdl/10_helloworld.asmx.xml
|
t/acceptance/wsdl/10_helloworld.asmx.xml
|
||||||
t/acceptance/wsdl/11_helloworld.wsdl
|
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/elementAtomicComplexType.xml
|
||||||
t/acceptance/wsdl/email_account.wsdl
|
t/acceptance/wsdl/email_account.wsdl
|
||||||
t/acceptance/wsdl/generator_test.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/import_loop.xsd
|
||||||
t/acceptance/wsdl/message_gateway.wsdl
|
t/acceptance/wsdl/message_gateway.wsdl
|
||||||
t/acceptance/wsdl/nested_complextype.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-import.wsdl
|
||||||
t/acceptance/wsdl/WSDLParser-imported.wsdl
|
t/acceptance/wsdl/WSDLParser-imported.wsdl
|
||||||
t/acceptance/wsdl/WSDLParser.wsdl
|
t/acceptance/wsdl/WSDLParser.wsdl
|
||||||
|
|||||||
@@ -1,12 +1,12 @@
|
|||||||
---
|
---
|
||||||
name: SOAP-WSDL
|
name: SOAP-WSDL
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
author:
|
author:
|
||||||
- 'Martin Kutter <martin.kutter@fen-net.de>'
|
- 'Martin Kutter <martin.kutter@fen-net.de>'
|
||||||
abstract: SOAP with WSDL support
|
abstract: SOAP with WSDL support
|
||||||
license: artistic
|
license: artistic
|
||||||
resources:
|
resources:
|
||||||
license: ~
|
license: http://opensource.org/licenses/artistic-license.php
|
||||||
requires:
|
requires:
|
||||||
Class::Std::Fast: 0.0.5
|
Class::Std::Fast: 0.0.5
|
||||||
Data::Dumper: 0
|
Data::Dumper: 0
|
||||||
@@ -41,220 +41,225 @@ build_requires:
|
|||||||
provides:
|
provides:
|
||||||
SOAP::WSDL:
|
SOAP::WSDL:
|
||||||
file: lib/SOAP/WSDL.pm
|
file: lib/SOAP/WSDL.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Base:
|
SOAP::WSDL::Base:
|
||||||
file: lib/SOAP/WSDL/Base.pm
|
file: lib/SOAP/WSDL/Base.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Binding:
|
SOAP::WSDL::Binding:
|
||||||
file: lib/SOAP/WSDL/Binding.pm
|
file: lib/SOAP/WSDL/Binding.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Client:
|
SOAP::WSDL::Client:
|
||||||
file: lib/SOAP/WSDL/Client.pm
|
file: lib/SOAP/WSDL/Client.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Client::Base:
|
SOAP::WSDL::Client::Base:
|
||||||
file: lib/SOAP/WSDL/Client/Base.pm
|
file: lib/SOAP/WSDL/Client/Base.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Definitions:
|
SOAP::WSDL::Definitions:
|
||||||
file: lib/SOAP/WSDL/Definitions.pm
|
file: lib/SOAP/WSDL/Definitions.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Deserializer::Hash:
|
SOAP::WSDL::Deserializer::Hash:
|
||||||
file: lib/SOAP/WSDL/Deserializer/Hash.pm
|
file: lib/SOAP/WSDL/Deserializer/Hash.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Deserializer::SOM:
|
SOAP::WSDL::Deserializer::SOM:
|
||||||
file: lib/SOAP/WSDL/Deserializer/SOM.pm
|
file: lib/SOAP/WSDL/Deserializer/SOM.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Deserializer::XSD:
|
SOAP::WSDL::Deserializer::XSD:
|
||||||
file: lib/SOAP/WSDL/Deserializer/XSD.pm
|
file: lib/SOAP/WSDL/Deserializer/XSD.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Expat::Base:
|
SOAP::WSDL::Expat::Base:
|
||||||
file: lib/SOAP/WSDL/Expat/Base.pm
|
file: lib/SOAP/WSDL/Expat/Base.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Expat::Message2Hash:
|
SOAP::WSDL::Expat::Message2Hash:
|
||||||
file: lib/SOAP/WSDL/Expat/Message2Hash.pm
|
file: lib/SOAP/WSDL/Expat/Message2Hash.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Expat::MessageParser:
|
SOAP::WSDL::Expat::MessageParser:
|
||||||
file: lib/SOAP/WSDL/Expat/MessageParser.pm
|
file: lib/SOAP/WSDL/Expat/MessageParser.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Expat::MessageStreamParser:
|
SOAP::WSDL::Expat::MessageStreamParser:
|
||||||
file: lib/SOAP/WSDL/Expat/MessageStreamParser.pm
|
file: lib/SOAP/WSDL/Expat/MessageStreamParser.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Expat::WSDLParser:
|
SOAP::WSDL::Expat::WSDLParser:
|
||||||
file: lib/SOAP/WSDL/Expat/WSDLParser.pm
|
file: lib/SOAP/WSDL/Expat/WSDLParser.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Factory::Deserializer:
|
SOAP::WSDL::Factory::Deserializer:
|
||||||
file: lib/SOAP/WSDL/Factory/Deserializer.pm
|
file: lib/SOAP/WSDL/Factory/Deserializer.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Factory::Generator:
|
SOAP::WSDL::Factory::Generator:
|
||||||
file: lib/SOAP/WSDL/Factory/Generator.pm
|
file: lib/SOAP/WSDL/Factory/Generator.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Factory::Serializer:
|
SOAP::WSDL::Factory::Serializer:
|
||||||
file: lib/SOAP/WSDL/Factory/Serializer.pm
|
file: lib/SOAP/WSDL/Factory/Serializer.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Factory::Transport:
|
SOAP::WSDL::Factory::Transport:
|
||||||
file: lib/SOAP/WSDL/Factory/Transport.pm
|
file: lib/SOAP/WSDL/Factory/Transport.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Generator::Iterator::WSDL11:
|
SOAP::WSDL::Generator::Iterator::WSDL11:
|
||||||
file: lib/SOAP/WSDL/Generator/Iterator/WSDL11.pm
|
file: lib/SOAP/WSDL/Generator/Iterator/WSDL11.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Generator::PrefixResolver:
|
SOAP::WSDL::Generator::PrefixResolver:
|
||||||
file: lib/SOAP/WSDL/Generator/PrefixResolver.pm
|
file: lib/SOAP/WSDL/Generator/PrefixResolver.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Generator::Template:
|
SOAP::WSDL::Generator::Template:
|
||||||
file: lib/SOAP/WSDL/Generator/Template.pm
|
file: lib/SOAP/WSDL/Generator/Template.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Generator::Template::Plugin::XSD:
|
SOAP::WSDL::Generator::Template::Plugin::XSD:
|
||||||
file: lib/SOAP/WSDL/Generator/Template/Plugin/XSD.pm
|
file: lib/SOAP/WSDL/Generator/Template/Plugin/XSD.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Generator::Template::XSD:
|
SOAP::WSDL::Generator::Template::XSD:
|
||||||
file: lib/SOAP/WSDL/Generator/Template/XSD.pm
|
file: lib/SOAP/WSDL/Generator/Template/XSD.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Generator::Visitor:
|
SOAP::WSDL::Generator::Visitor:
|
||||||
file: lib/SOAP/WSDL/Generator/Visitor.pm
|
file: lib/SOAP/WSDL/Generator/Visitor.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Generator::Visitor::Typemap:
|
SOAP::WSDL::Generator::Visitor::Typemap:
|
||||||
file: lib/SOAP/WSDL/Generator/Visitor/Typemap.pm
|
file: lib/SOAP/WSDL/Generator/Visitor/Typemap.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Message:
|
SOAP::WSDL::Message:
|
||||||
file: lib/SOAP/WSDL/Message.pm
|
file: lib/SOAP/WSDL/Message.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::OpMessage:
|
SOAP::WSDL::OpMessage:
|
||||||
file: lib/SOAP/WSDL/OpMessage.pm
|
file: lib/SOAP/WSDL/OpMessage.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Operation:
|
SOAP::WSDL::Operation:
|
||||||
file: lib/SOAP/WSDL/Operation.pm
|
file: lib/SOAP/WSDL/Operation.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Part:
|
SOAP::WSDL::Part:
|
||||||
file: lib/SOAP/WSDL/Part.pm
|
file: lib/SOAP/WSDL/Part.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Port:
|
SOAP::WSDL::Port:
|
||||||
file: lib/SOAP/WSDL/Port.pm
|
file: lib/SOAP/WSDL/Port.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::PortType:
|
SOAP::WSDL::PortType:
|
||||||
file: lib/SOAP/WSDL/PortType.pm
|
file: lib/SOAP/WSDL/PortType.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::SOAP::Address:
|
SOAP::WSDL::SOAP::Address:
|
||||||
file: lib/SOAP/WSDL/SOAP/Address.pm
|
file: lib/SOAP/WSDL/SOAP/Address.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::SOAP::Body:
|
SOAP::WSDL::SOAP::Body:
|
||||||
file: lib/SOAP/WSDL/SOAP/Body.pm
|
file: lib/SOAP/WSDL/SOAP/Body.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::SOAP::Header:
|
SOAP::WSDL::SOAP::Header:
|
||||||
file: lib/SOAP/WSDL/SOAP/Header.pm
|
file: lib/SOAP/WSDL/SOAP/Header.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::SOAP::HeaderFault:
|
SOAP::WSDL::SOAP::HeaderFault:
|
||||||
file: lib/SOAP/WSDL/SOAP/HeaderFault.pm
|
file: lib/SOAP/WSDL/SOAP/HeaderFault.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::SOAP::Operation:
|
SOAP::WSDL::SOAP::Operation:
|
||||||
file: lib/SOAP/WSDL/SOAP/Operation.pm
|
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:
|
SOAP::WSDL::SOAP::Typelib::Fault11:
|
||||||
file: lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm
|
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:
|
SOAP::WSDL::Serializer::XSD:
|
||||||
file: lib/SOAP/WSDL/Serializer/XSD.pm
|
file: lib/SOAP/WSDL/Serializer/XSD.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Server:
|
SOAP::WSDL::Server:
|
||||||
file: lib/SOAP/WSDL/Server.pm
|
file: lib/SOAP/WSDL/Server.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Server::CGI:
|
SOAP::WSDL::Server::CGI:
|
||||||
file: lib/SOAP/WSDL/Server/CGI.pm
|
file: lib/SOAP/WSDL/Server/CGI.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Server::Mod_Perl2:
|
SOAP::WSDL::Server::Mod_Perl2:
|
||||||
file: lib/SOAP/WSDL/Server/Mod_Perl2.pm
|
file: lib/SOAP/WSDL/Server/Mod_Perl2.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Server::Simple:
|
SOAP::WSDL::Server::Simple:
|
||||||
file: lib/SOAP/WSDL/Server/Simple.pm
|
file: lib/SOAP/WSDL/Server/Simple.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Service:
|
SOAP::WSDL::Service:
|
||||||
file: lib/SOAP/WSDL/Service.pm
|
file: lib/SOAP/WSDL/Service.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Transport::HTTP:
|
SOAP::WSDL::Transport::HTTP:
|
||||||
file: lib/SOAP/WSDL/Transport/HTTP.pm
|
file: lib/SOAP/WSDL/Transport/HTTP.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Transport::Loopback:
|
SOAP::WSDL::Transport::Loopback:
|
||||||
file: lib/SOAP/WSDL/Transport/Loopback.pm
|
file: lib/SOAP/WSDL/Transport/Loopback.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Transport::Test:
|
SOAP::WSDL::Transport::Test:
|
||||||
file: lib/SOAP/WSDL/Transport/Test.pm
|
file: lib/SOAP/WSDL/Transport/Test.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::TypeLookup:
|
SOAP::WSDL::TypeLookup:
|
||||||
file: lib/SOAP/WSDL/TypeLookup.pm
|
file: lib/SOAP/WSDL/TypeLookup.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::Types:
|
SOAP::WSDL::Types:
|
||||||
file: lib/SOAP/WSDL/Types.pm
|
file: lib/SOAP/WSDL/Types.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::Annotation:
|
SOAP::WSDL::XSD::Annotation:
|
||||||
file: lib/SOAP/WSDL/XSD/Annotation.pm
|
file: lib/SOAP/WSDL/XSD/Annotation.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::Attribute:
|
SOAP::WSDL::XSD::Attribute:
|
||||||
file: lib/SOAP/WSDL/XSD/Attribute.pm
|
file: lib/SOAP/WSDL/XSD/Attribute.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::AttributeGroup:
|
SOAP::WSDL::XSD::AttributeGroup:
|
||||||
file: lib/SOAP/WSDL/XSD/AttributeGroup.pm
|
file: lib/SOAP/WSDL/XSD/AttributeGroup.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::Builtin:
|
SOAP::WSDL::XSD::Builtin:
|
||||||
file: lib/SOAP/WSDL/XSD/Builtin.pm
|
file: lib/SOAP/WSDL/XSD/Builtin.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::ComplexType:
|
SOAP::WSDL::XSD::ComplexType:
|
||||||
file: lib/SOAP/WSDL/XSD/ComplexType.pm
|
file: lib/SOAP/WSDL/XSD/ComplexType.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::Element:
|
SOAP::WSDL::XSD::Element:
|
||||||
file: lib/SOAP/WSDL/XSD/Element.pm
|
file: lib/SOAP/WSDL/XSD/Element.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::Enumeration:
|
SOAP::WSDL::XSD::Enumeration:
|
||||||
file: lib/SOAP/WSDL/XSD/Enumeration.pm
|
file: lib/SOAP/WSDL/XSD/Enumeration.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::FractionDigits:
|
SOAP::WSDL::XSD::FractionDigits:
|
||||||
file: lib/SOAP/WSDL/XSD/FractionDigits.pm
|
file: lib/SOAP/WSDL/XSD/FractionDigits.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::Group:
|
SOAP::WSDL::XSD::Group:
|
||||||
file: lib/SOAP/WSDL/XSD/Group.pm
|
file: lib/SOAP/WSDL/XSD/Group.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::Length:
|
SOAP::WSDL::XSD::Length:
|
||||||
file: lib/SOAP/WSDL/XSD/Length.pm
|
file: lib/SOAP/WSDL/XSD/Length.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::MaxExclusive:
|
SOAP::WSDL::XSD::MaxExclusive:
|
||||||
file: lib/SOAP/WSDL/XSD/MaxExclusive.pm
|
file: lib/SOAP/WSDL/XSD/MaxExclusive.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::MaxInclusive:
|
SOAP::WSDL::XSD::MaxInclusive:
|
||||||
file: lib/SOAP/WSDL/XSD/MaxInclusive.pm
|
file: lib/SOAP/WSDL/XSD/MaxInclusive.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::MaxLength:
|
SOAP::WSDL::XSD::MaxLength:
|
||||||
file: lib/SOAP/WSDL/XSD/MaxLength.pm
|
file: lib/SOAP/WSDL/XSD/MaxLength.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::MinExclusive:
|
SOAP::WSDL::XSD::MinExclusive:
|
||||||
file: lib/SOAP/WSDL/XSD/MinExclusive.pm
|
file: lib/SOAP/WSDL/XSD/MinExclusive.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::MinInclusive:
|
SOAP::WSDL::XSD::MinInclusive:
|
||||||
file: lib/SOAP/WSDL/XSD/MinInclusive.pm
|
file: lib/SOAP/WSDL/XSD/MinInclusive.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::MinLength:
|
SOAP::WSDL::XSD::MinLength:
|
||||||
file: lib/SOAP/WSDL/XSD/MinLength.pm
|
file: lib/SOAP/WSDL/XSD/MinLength.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::Pattern:
|
SOAP::WSDL::XSD::Pattern:
|
||||||
file: lib/SOAP/WSDL/XSD/Pattern.pm
|
file: lib/SOAP/WSDL/XSD/Pattern.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::Schema:
|
SOAP::WSDL::XSD::Schema:
|
||||||
file: lib/SOAP/WSDL/XSD/Schema.pm
|
file: lib/SOAP/WSDL/XSD/Schema.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::Schema::Builtin:
|
SOAP::WSDL::XSD::Schema::Builtin:
|
||||||
file: lib/SOAP/WSDL/XSD/Schema/Builtin.pm
|
file: lib/SOAP/WSDL/XSD/Schema/Builtin.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::SimpleType:
|
SOAP::WSDL::XSD::SimpleType:
|
||||||
file: lib/SOAP/WSDL/XSD/SimpleType.pm
|
file: lib/SOAP/WSDL/XSD/SimpleType.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::TotalDigits:
|
SOAP::WSDL::XSD::TotalDigits:
|
||||||
file: lib/SOAP/WSDL/XSD/TotalDigits.pm
|
file: lib/SOAP/WSDL/XSD/TotalDigits.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::Typelib::Attribute:
|
SOAP::WSDL::XSD::Typelib::Attribute:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Attribute.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Attribute.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::Typelib::AttributeSet:
|
SOAP::WSDL::XSD::Typelib::AttributeSet:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/AttributeSet.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/AttributeSet.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin:
|
SOAP::WSDL::XSD::Typelib::Builtin:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::ENTITY:
|
SOAP::WSDL::XSD::Typelib::Builtin::ENTITY:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/ENTITY.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/ENTITY.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::ID:
|
SOAP::WSDL::XSD::Typelib::Builtin::ID:
|
||||||
@@ -279,14 +284,14 @@ provides:
|
|||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anySimpleType.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anySimpleType.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::anyType:
|
SOAP::WSDL::XSD::Typelib::Builtin::anyType:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anyType.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anyType.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::anyURI:
|
SOAP::WSDL::XSD::Typelib::Builtin::anyURI:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anyURI.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/anyURI.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::base64Binary:
|
SOAP::WSDL::XSD::Typelib::Builtin::base64Binary:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/base64Binary.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/base64Binary.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::boolean:
|
SOAP::WSDL::XSD::Typelib::Builtin::boolean:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/boolean.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/boolean.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::byte:
|
SOAP::WSDL::XSD::Typelib::Builtin::byte:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/byte.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/byte.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::date:
|
SOAP::WSDL::XSD::Typelib::Builtin::date:
|
||||||
@@ -339,7 +344,7 @@ provides:
|
|||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/string.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/string.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::time:
|
SOAP::WSDL::XSD::Typelib::Builtin::time:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/time.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/time.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::token:
|
SOAP::WSDL::XSD::Typelib::Builtin::token:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/token.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/token.pm
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::unsignedByte:
|
SOAP::WSDL::XSD::Typelib::Builtin::unsignedByte:
|
||||||
@@ -352,20 +357,20 @@ provides:
|
|||||||
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedShort.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedShort.pm
|
||||||
SOAP::WSDL::XSD::Typelib::ComplexType:
|
SOAP::WSDL::XSD::Typelib::ComplexType:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::Typelib::Element:
|
SOAP::WSDL::XSD::Typelib::Element:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/Element.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/Element.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::Typelib::SimpleType:
|
SOAP::WSDL::XSD::Typelib::SimpleType:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::Typelib::SimpleType::restriction:
|
SOAP::WSDL::XSD::Typelib::SimpleType::restriction:
|
||||||
file: lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm
|
file: lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
SOAP::WSDL::XSD::WhiteSpace:
|
SOAP::WSDL::XSD::WhiteSpace:
|
||||||
file: lib/SOAP/WSDL/XSD/WhiteSpace.pm
|
file: lib/SOAP/WSDL/XSD/WhiteSpace.pm
|
||||||
version: 2.00.08
|
version: 2.00.10
|
||||||
generated_by: Module::Build version 0.31012
|
generated_by: Module::Build version 0.280801
|
||||||
meta-spec:
|
meta-spec:
|
||||||
url: http://module-build.sourceforge.net/META-spec-v1.2.html
|
url: http://module-build.sourceforge.net/META-spec-v1.2.html
|
||||||
version: 1.2
|
version: 1.2
|
||||||
|
|||||||
+1
-1
@@ -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;
|
require 5.8.0;
|
||||||
use Module::Build::Compat 0.02;
|
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.ContextConfiguration;
|
||||||
import org.springframework.test.context.junit4.SpringJUnit4ClassRunner;
|
import org.springframework.test.context.junit4.SpringJUnit4ClassRunner;
|
||||||
|
|
||||||
|
// Spring JUnit Test runner
|
||||||
@RunWith(SpringJUnit4ClassRunner.class)
|
@RunWith(SpringJUnit4ClassRunner.class)
|
||||||
|
|
||||||
|
// load spring context from here
|
||||||
@ContextConfiguration(locations = { "classpath:test-context.xml"})
|
@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 {
|
public class HelloWorldTest {
|
||||||
|
|
||||||
|
// soapClient bean automatically provided by spring
|
||||||
@Autowired
|
@Autowired
|
||||||
private Service1Soap soapClient;
|
private Service1Soap soapClient;
|
||||||
|
|
||||||
|
|||||||
+3
-3
@@ -14,7 +14,7 @@ use Class::Std::Fast constructor => 'none';
|
|||||||
use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
|
use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
|
||||||
use LWP::UserAgent;
|
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 %no_dispatch_of :ATTR(:name<no_dispatch>);
|
||||||
my %wsdl_of :ATTR(:name<wsdl>);
|
my %wsdl_of :ATTR(:name<wsdl>);
|
||||||
@@ -831,9 +831,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 798 $
|
$Rev: 851 $
|
||||||
$LastChangedBy: kutterma $
|
$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 $
|
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ use List::Util;
|
|||||||
use Scalar::Util;
|
use Scalar::Util;
|
||||||
use Carp qw(croak carp confess);
|
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 %id_of :ATTR(:name<id> :default<()>);
|
||||||
my %lang_of :ATTR(:name<lang> :default<()>);
|
my %lang_of :ATTR(:name<lang> :default<()>);
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
|
|||||||
|
|
||||||
use base qw(SOAP::WSDL::Base);
|
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 %operation_of :ATTR(:name<operation> :default<()>);
|
||||||
my %type_of :ATTR(:name<type> :default<()>);
|
my %type_of :ATTR(:name<type> :default<()>);
|
||||||
|
|||||||
+21
-12
@@ -11,7 +11,7 @@ use SOAP::WSDL::Factory::Serializer;
|
|||||||
use SOAP::WSDL::Factory::Transport;
|
use SOAP::WSDL::Factory::Transport;
|
||||||
use SOAP::WSDL::Expat::MessageParser;
|
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 %class_resolver_of :ATTR(:name<class_resolver> :default<()>);
|
||||||
my %no_dispatch_of :ATTR(:name<no_dispatch> :default<()>);
|
my %no_dispatch_of :ATTR(:name<no_dispatch> :default<()>);
|
||||||
@@ -171,20 +171,29 @@ sub call {
|
|||||||
# Try deserializing response - there may be some,
|
# Try deserializing response - there may be some,
|
||||||
# even if transport did not succeed (got a 500 response)
|
# even if transport did not succeed (got a 500 response)
|
||||||
if ( $response ) {
|
if ( $response ) {
|
||||||
my ($result_body, $result_header) = eval {
|
# as our faults are false, returning a success marker is the only
|
||||||
$deserializer_of{ $ident }->deserialize( $response );
|
# 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
|
return wantarray
|
||||||
? ($result_body, $result_header)
|
? ($result_body, $result_header)
|
||||||
: $result_body;
|
: $result_body;
|
||||||
}
|
}
|
||||||
return $deserializer_of{ $ident }->generate_fault({
|
elsif (blessed $@) { #}&& $@->isa('SOAP::WSDL::SOAP::Typelib::Fault11')) {
|
||||||
code => 'soap:Server',
|
return $@;
|
||||||
role => 'urn:localhost',
|
}
|
||||||
message => "Error deserializing message: $@. \n"
|
else {
|
||||||
. "Message was: \n$response"
|
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)
|
# 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
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 798 $
|
$Rev: 851 $
|
||||||
$LastChangedBy: kutterma $
|
$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 $
|
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use base 'SOAP::WSDL::Client';
|
use base 'SOAP::WSDL::Client';
|
||||||
use Scalar::Util qw(blessed);
|
use Scalar::Util qw(blessed);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
sub call {
|
sub call {
|
||||||
my ($self, $method, $body, $header) = @_;
|
my ($self, $method, $body, $header) = @_;
|
||||||
@@ -85,9 +85,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 798 $
|
$Rev: 851 $
|
||||||
$LastChangedBy: kutterma $
|
$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 $
|
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Client/Base.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ use List::Util qw(first);
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
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 %types_of :ATTR(:name<types> :default<[]>);
|
||||||
my %message_of :ATTR(:name<message> :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
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 798 $
|
$Rev: 851 $
|
||||||
$LastChangedBy: kutterma $
|
$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 $
|
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Definitions.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -8,7 +8,7 @@ use SOAP::WSDL::Expat::Message2Hash;
|
|||||||
use SOAP::WSDL::Factory::Deserializer;
|
use SOAP::WSDL::Factory::Deserializer;
|
||||||
SOAP::WSDL::Factory::Deserializer->register( '1.1', __PACKAGE__ );
|
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 {
|
sub BUILD {
|
||||||
my ($self, $ident, $args_of_ref) = @_;
|
my ($self, $ident, $args_of_ref) = @_;
|
||||||
@@ -38,7 +38,7 @@ sub deserialize {
|
|||||||
sub generate_fault {
|
sub generate_fault {
|
||||||
my ($self, $args_from_ref) = @_;
|
my ($self, $args_from_ref) = @_;
|
||||||
return SOAP::WSDL::SOAP::Typelib::Fault11->new({
|
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',
|
faultactor => $args_from_ref->{ role } || 'urn:localhost',
|
||||||
faultstring => $args_from_ref->{ message } || "Unknown error"
|
faultstring => $args_from_ref->{ message } || "Unknown error"
|
||||||
});
|
});
|
||||||
@@ -163,9 +163,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 798 $
|
$Rev: 851 $
|
||||||
$LastChangedBy: kutterma $
|
$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 $
|
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/Hash.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -2,7 +2,7 @@ package SOAP::WSDL::Deserializer::SOM;
|
|||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
our @ISA;
|
our @ISA;
|
||||||
|
|
||||||
eval {
|
eval {
|
||||||
@@ -18,7 +18,7 @@ sub deserialize {
|
|||||||
my $result = eval { $self->SUPER::deserialize(@_) };
|
my $result = eval { $self->SUPER::deserialize(@_) };
|
||||||
if ($@) {
|
if ($@) {
|
||||||
return SOAP::Fault->new(
|
return SOAP::Fault->new(
|
||||||
faultactor => 'soap:Server',
|
faultactor => 'SOAP-ENV:Server',
|
||||||
faultstring => $@,
|
faultstring => $@,
|
||||||
);
|
);
|
||||||
}
|
}
|
||||||
@@ -140,9 +140,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 798 $
|
$Rev: 851 $
|
||||||
$LastChangedBy: kutterma $
|
$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 $
|
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/SOM.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
|
|||||||
use SOAP::WSDL::SOAP::Typelib::Fault11;
|
use SOAP::WSDL::SOAP::Typelib::Fault11;
|
||||||
use SOAP::WSDL::Expat::MessageParser;
|
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 %class_resolver_of :ATTR(:name<class_resolver> :default<()>);
|
||||||
my %strict_of :ATTR(:get<strict> :init_arg<strict> :default<1>);
|
my %strict_of :ATTR(:get<strict> :init_arg<strict> :default<1>);
|
||||||
@@ -38,7 +38,7 @@ sub deserialize {
|
|||||||
eval { $parser_of{ ${ $self } }->parse_string( $content ) };
|
eval { $parser_of{ ${ $self } }->parse_string( $content ) };
|
||||||
if ($@) {
|
if ($@) {
|
||||||
return $self->generate_fault({
|
return $self->generate_fault({
|
||||||
code => 'soap:Server',
|
code => 'SOAP-ENV:Server',
|
||||||
role => 'urn:localhost',
|
role => 'urn:localhost',
|
||||||
message => "Error deserializing message: $@. \n"
|
message => "Error deserializing message: $@. \n"
|
||||||
. "Message was: \n$content"
|
. "Message was: \n$content"
|
||||||
@@ -50,7 +50,7 @@ sub deserialize {
|
|||||||
sub generate_fault {
|
sub generate_fault {
|
||||||
my ($self, $args_from_ref) = @_;
|
my ($self, $args_from_ref) = @_;
|
||||||
return SOAP::WSDL::SOAP::Typelib::Fault11->new({
|
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',
|
faultactor => $args_from_ref->{ role } || 'urn:localhost',
|
||||||
faultstring => $args_from_ref->{ message } || "Unknown error"
|
faultstring => $args_from_ref->{ message } || "Unknown error"
|
||||||
});
|
});
|
||||||
@@ -126,9 +126,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 798 $
|
$Rev: 851 $
|
||||||
$LastChangedBy: kutterma $
|
$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 $
|
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Deserializer/XSD.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -6,7 +6,7 @@ use XML::Parser::Expat;
|
|||||||
|
|
||||||
# TODO: convert to Class::Std::Fast based class - hash based classes suck.
|
# 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 {
|
sub new {
|
||||||
my ($class, $arg_ref) = @_;
|
my ($class, $arg_ref) = @_;
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
use base qw(SOAP::WSDL::Expat::Base);
|
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 {
|
sub _initialize {
|
||||||
my ($self, $parser) = @_;
|
my ($self, $parser) = @_;
|
||||||
|
|||||||
@@ -9,7 +9,7 @@ use base qw(SOAP::WSDL::Expat::Base);
|
|||||||
|
|
||||||
BEGIN { require Class::Std::Fast };
|
BEGIN { require Class::Std::Fast };
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
# GLOBALS
|
# GLOBALS
|
||||||
my $OBJECT_CACHE_REF = Class::Std::Fast::OBJECT_CACHE_REF();
|
my $OBJECT_CACHE_REF = Class::Std::Fast::OBJECT_CACHE_REF();
|
||||||
@@ -330,10 +330,10 @@ the same terms as perl itself
|
|||||||
|
|
||||||
=head1 Repository information
|
=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) $
|
$LastChangedDate: 2009-05-16 00:45:18 +0200 (Sa, 16. Mai 2009) $
|
||||||
$LastChangedRevision: 798 $
|
$LastChangedRevision: 851 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
|
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageParser.pm $
|
$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 SOAP::WSDL::Expat::MessageParser;
|
||||||
use base qw(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 {
|
sub parse_start {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
@@ -69,9 +69,9 @@ the same terms as perl itself
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 798 $
|
$Rev: 851 $
|
||||||
$LastChangedBy: kutterma $
|
$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 $
|
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/MessageStreamParser.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ use Carp;
|
|||||||
use SOAP::WSDL::TypeLookup;
|
use SOAP::WSDL::TypeLookup;
|
||||||
use base qw(SOAP::WSDL::Expat::Base);
|
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
|
# 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
|
=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) $
|
$LastChangedDate: 2009-05-16 00:45:18 +0200 (Sa, 16. Mai 2009) $
|
||||||
$LastChangedRevision: 798 $
|
$LastChangedRevision: 851 $
|
||||||
$LastChangedBy: kutterma $
|
$LastChangedBy: kutterma $
|
||||||
|
|
||||||
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Expat/WSDLParser.pm $
|
$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 strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
my %DESERIALIZER = (
|
my %DESERIALIZER = (
|
||||||
'1.1' => 'SOAP::WSDL::Deserializer::XSD',
|
'1.1' => 'SOAP::WSDL::Deserializer::XSD',
|
||||||
|
|||||||
@@ -2,7 +2,7 @@ package SOAP::WSDL::Factory::Generator;
|
|||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
my %GENERATOR = (
|
my %GENERATOR = (
|
||||||
'XSD' => 'SOAP::WSDL::Generator::Template::XSD',
|
'XSD' => 'SOAP::WSDL::Generator::Template::XSD',
|
||||||
|
|||||||
@@ -2,7 +2,7 @@ package SOAP::WSDL::Factory::Serializer;
|
|||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
my %SERIALIZER = (
|
my %SERIALIZER = (
|
||||||
'1.1' => 'SOAP::WSDL::Serializer::XSD',
|
'1.1' => 'SOAP::WSDL::Serializer::XSD',
|
||||||
@@ -138,9 +138,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 798 $
|
$Rev: 851 $
|
||||||
$LastChangedBy: kutterma $
|
$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 $
|
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Serializer.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -1,7 +1,7 @@
|
|||||||
package SOAP::WSDL::Factory::Transport;
|
package SOAP::WSDL::Factory::Transport;
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
my %registered_transport_of = ();
|
my %registered_transport_of = ();
|
||||||
|
|
||||||
@@ -243,9 +243,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 798 $
|
$Rev: 851 $
|
||||||
$LastChangedBy: kutterma $
|
$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 $
|
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Factory/Transport.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -2,7 +2,7 @@ package SOAP::WSDL::Generator::Iterator::WSDL11;
|
|||||||
use strict; use warnings;
|
use strict; use warnings;
|
||||||
use Class::Std::Fast;
|
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 %definitions_of :ATTR(:name<definitions> :default<[]>);
|
||||||
my %nodes_of :ATTR(:name<nodes> :default<[]>);
|
my %nodes_of :ATTR(:name<nodes> :default<[]>);
|
||||||
|
|||||||
@@ -3,7 +3,7 @@ use strict; use warnings;
|
|||||||
|
|
||||||
use Class::Std::Fast::Storable;
|
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_prefix_map_of :ATTR(:name<namespace_prefix_map> :default<{}>);
|
||||||
my %namespace_map_of :ATTR(:name<namespace_map> :default<{}>);
|
my %namespace_map_of :ATTR(:name<namespace_map> :default<{}>);
|
||||||
|
|||||||
@@ -1,11 +1,11 @@
|
|||||||
package SOAP::WSDL::Generator::Template;
|
package SOAP::WSDL::Generator::Template;
|
||||||
use strict; use warnings;
|
use strict; use warnings;
|
||||||
use Template;
|
use Template 2.18;
|
||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use Carp;
|
use Carp;
|
||||||
use SOAP::WSDL::Generator::PrefixResolver;
|
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 %tt_of :ATTR(:get<tt>);
|
||||||
my %definitions_of :ATTR(:name<definitions> :default<()>);
|
my %definitions_of :ATTR(:name<definitions> :default<()>);
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Carp qw(confess);
|
use Carp qw(confess);
|
||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use Scalar::Util qw(blessed);
|
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_prefix_map_of :ATTR(:name<namespace_prefix_map> :default<{}>);
|
||||||
my %namespace_map_of :ATTR(:name<namespace_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 $type = ref $arg_ref eq 'HASH' ? $arg_ref->{ value } : $arg_ref;
|
||||||
|
|
||||||
my @name_from = $type->get_name() || (); ;
|
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') ) {
|
if (! $parent->get_parent()->isa('SOAP::WSDL::XSD::Schema') ) {
|
||||||
NAMES: while ($parent = $parent->get_parent()) {
|
NAMES: while ($parent = $parent->get_parent()) {
|
||||||
$top_node = $parent;
|
$top_node = $parent;
|
||||||
@@ -141,9 +143,13 @@ sub create_subpackage_name {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
# create name for top node
|
# 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 $top_node_name = $self->create_xsd_name($top_node);
|
||||||
my $package_name = join('::_', $top_node_name , (@name_from) ? join('::', @name_from) : () );
|
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;
|
return $package_name;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
@@ -1,11 +1,11 @@
|
|||||||
package SOAP::WSDL::Generator::Template::XSD;
|
package SOAP::WSDL::Generator::Template::XSD;
|
||||||
use strict; use warnings;
|
use strict; use warnings;
|
||||||
use Template;
|
use Template 2.18;
|
||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use File::Basename;
|
use File::Basename;
|
||||||
use File::Spec;
|
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::Visitor::Typemap;
|
||||||
use SOAP::WSDL::Generator::Template::Plugin::XSD;
|
use SOAP::WSDL::Generator::Template::Plugin::XSD;
|
||||||
|
|||||||
@@ -1,4 +1,5 @@
|
|||||||
[% USE XSD -%]
|
[% USE XSD;
|
||||||
|
USE Dumper -%]
|
||||||
package [% XSD.create_xsd_name(complexType) %];
|
package [% XSD.create_xsd_name(complexType) %];
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
@@ -12,6 +13,8 @@ __PACKAGE__->_set_element_form_qualified([%-
|
|||||||
IF complexType.schema.get_elementFormDefault == 'qualified'
|
IF complexType.schema.get_elementFormDefault == 'qualified'
|
||||||
-%]1[% ELSE %]0[% END %]);
|
-%]1[% ELSE %]0[% END %]);
|
||||||
|
|
||||||
|
sub get_xmlns { '[% complexType.get_targetNamespace %]' };
|
||||||
|
|
||||||
[% INCLUDE complexType/contentModel.tt %]
|
[% INCLUDE complexType/contentModel.tt %]
|
||||||
|
|
||||||
1;
|
1;
|
||||||
|
|||||||
@@ -3,7 +3,7 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
use Class::Std::Fast::Storable;
|
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 %definitions_of :ATTR(:name<definitions> :default<()>);
|
||||||
my %type_prefix_of :ATTR(:name<type_prefix> :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 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 %path_of :ATTR(:name<path> :default<[]>);
|
||||||
my %typemap_of :ATTR(:name<typemap> :default<()>);
|
my %typemap_of :ATTR(:name<typemap> :default<()>);
|
||||||
|
|||||||
@@ -32,15 +32,28 @@ this backend:
|
|||||||
|
|
||||||
=head3 Accessing HTTP(S) webservices protected by NTLM authentication
|
=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
|
You need the L<NTLM|NTLM> distribution installed to access webservices protected
|
||||||
by NTLM authentication. More specifically, you need the Authen::NTLM module
|
by NTLM authentication. More specifically, you need the Authen::NTLM module
|
||||||
from this distribution. Note that this is different from the Authen::NTML
|
from this distribution. Note that this is different from the Authen::NTML
|
||||||
distribution by Yee Man Chan also available from CPAN.
|
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
|
testdomain\testuser
|
||||||
|
|
||||||
|
or
|
||||||
|
|
||||||
|
\\testhost\testuser
|
||||||
|
|
||||||
Besides passing user credentials as when accessing a web service protected
|
Besides passing user credentials as when accessing a web service protected
|
||||||
by basic or digest authentication, you also need to enforce connection
|
by basic or digest authentication, you also need to enforce connection
|
||||||
keep_alive on the transport backens.
|
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
|
subclassing might be a more appropriate solution - re-generating overwrites
|
||||||
changes in interface classes.
|
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
|
=head3 Accessing HTTPS webservices protected by certificate authentication
|
||||||
|
|
||||||
You need Crypt::SSLeay installed to access HTTPS webservices.
|
You need Crypt::SSLeay installed to access HTTPS webservices.
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
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<[]>);
|
my %part_of :ATTR(:name<part> :default<[]>);
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
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 %body_of :ATTR(:name<body> :default<[]>);
|
||||||
my %header_of :ATTR(:name<header> :default<[]>);
|
my %header_of :ATTR(:name<header> :default<[]>);
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
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 %operation_of :ATTR(:name<operation> :default<()>);
|
||||||
my %input_of :ATTR(:name<input> :default<[]>);
|
my %input_of :ATTR(:name<input> :default<[]>);
|
||||||
|
|||||||
@@ -6,7 +6,7 @@ use Class::Std::Fast::Storable;
|
|||||||
|
|
||||||
use base qw(SOAP::WSDL::Base);
|
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 %element_of :ATTR(:name<element> :default<()>);
|
||||||
my %type_of :ATTR(:name<type> :default<()>);
|
my %type_of :ATTR(:name<type> :default<()>);
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
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 %binding_of :ATTR(:name<binding> :default<()>);
|
||||||
my %address_of :ATTR(:name<address> :default<()>);
|
my %address_of :ATTR(:name<address> :default<()>);
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
|
|||||||
use List::Util;
|
use List::Util;
|
||||||
use base qw(SOAP::WSDL::Base);
|
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 %operation_of :ATTR(:name<operation> :default<()>);
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
use Class::Std::Fast::Storable;
|
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<()>);
|
my %location :ATTR(:name<location> :default<()>);
|
||||||
1;
|
1;
|
||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
use Class::Std::Fast::Storable;
|
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 %use_of :ATTR(:name<use> :default<q{}>);
|
||||||
my %namespace_of :ATTR(:name<namespace> :default<q{}>);
|
my %namespace_of :ATTR(:name<namespace> :default<q{}>);
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
use Class::Std::Fast::Storable;
|
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 %use_of :ATTR(:name<use> :default<q{}>);
|
||||||
my %namespace_of :ATTR(:name<namespace> :default<q{}>);
|
my %namespace_of :ATTR(:name<namespace> :default<q{}>);
|
||||||
|
|||||||
@@ -3,6 +3,6 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
use base qw(SOAP::WSDL::Header);
|
use base qw(SOAP::WSDL::Header);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
1;
|
1;
|
||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
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 %style_of :ATTR(:name<style> :default<()>);
|
||||||
my %soapAction_of :ATTR(:name<soapAction> :default<()>);
|
my %soapAction_of :ATTR(:name<soapAction> :default<()>);
|
||||||
|
|||||||
@@ -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;
|
package SOAP::WSDL::SOAP::Typelib::Fault11;
|
||||||
use strict;
|
{
|
||||||
use warnings;
|
use strict;
|
||||||
use Class::Std::Fast::Storable constructor => 'none';
|
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 Scalar::Util qw(blessed);
|
||||||
use SOAP::WSDL::XSD::Typelib::Element;
|
|
||||||
|
|
||||||
use base qw(
|
use SOAP::WSDL::XSD::Typelib::ComplexType;
|
||||||
SOAP::WSDL::XSD::Typelib::Element
|
use SOAP::WSDL::XSD::Typelib::Element;
|
||||||
SOAP::WSDL::XSD::Typelib::ComplexType
|
|
||||||
);
|
|
||||||
|
|
||||||
my %faultcode_of :ATTR(:get<faultcode>);
|
use base qw(
|
||||||
my %faultstring_of :ATTR(:get<faultstring>);
|
SOAP::WSDL::SOAP::Typelib::Fault
|
||||||
my %faultactor_of :ATTR(:get<faultactor>);
|
SOAP::WSDL::XSD::Typelib::Element
|
||||||
my %detail_of :ATTR(:get<detail>);
|
SOAP::WSDL::XSD::Typelib::ComplexType
|
||||||
|
);
|
||||||
|
|
||||||
__PACKAGE__->_factory(
|
my %faultcode_of : ATTR(:get<faultcode>);
|
||||||
[ qw(faultcode faultstring faultactor detail) ],
|
my %faultstring_of : ATTR(:get<faultstring>);
|
||||||
{
|
my %faultactor_of : ATTR(:get<faultactor>);
|
||||||
faultcode => \%faultcode_of,
|
my %detail_of : ATTR(:get<detail>);
|
||||||
faultstring => \%faultstring_of,
|
|
||||||
faultactor => \%faultactor_of,
|
__PACKAGE__->_factory(
|
||||||
detail => \%detail_of,
|
[qw(faultcode faultstring faultactor detail)],
|
||||||
},
|
{
|
||||||
{
|
faultcode => \%faultcode_of,
|
||||||
faultcode => 'SOAP::WSDL::XSD::Typelib::Builtin::QName',
|
faultstring => \%faultstring_of,
|
||||||
faultstring => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
faultactor => \%faultactor_of,
|
||||||
faultactor => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
|
detail => \%detail_of,
|
||||||
detail => 'SOAP::WSDL::XSD::Typelib::Builtin::anyType',
|
},
|
||||||
|
{
|
||||||
|
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');
|
# BLOCK to scope warnings
|
||||||
__PACKAGE__->__set_nillable(0);
|
{
|
||||||
__PACKAGE__->__set_minOccurs();
|
no warnings qw(redefine);
|
||||||
__PACKAGE__->__set_maxOccurs();
|
my $set_detail_sub = \&set_detail;
|
||||||
__PACKAGE__->__set_ref('');
|
*set_detail = sub {
|
||||||
|
my ( $self, $detail ) = @_;
|
||||||
|
|
||||||
# always return false in boolean context - a fault is never true...
|
# create SOAP::WSDL::SOAP::Typelib::Fault11Detail wrapper if there
|
||||||
sub as_bool : BOOLIFY { return; }
|
# 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;
|
1;
|
||||||
|
|
||||||
=pod
|
=pod
|
||||||
@@ -88,6 +139,16 @@ Getter/setter for object's faultactor property.
|
|||||||
|
|
||||||
Getter/setter for detail object's detail 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
|
=head1 LICENSE AND COPYRIGHT
|
||||||
|
|
||||||
Copyright 2007 Martin Kutter. All rights reserved.
|
Copyright 2007 Martin Kutter. All rights reserved.
|
||||||
@@ -101,9 +162,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 798 $
|
$Rev: 851 $
|
||||||
$LastChangedBy: kutterma $
|
$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 $
|
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/SOAP/Typelib/Fault11.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use Scalar::Util qw(blessed);
|
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;
|
use SOAP::WSDL::Factory::Serializer;
|
||||||
|
|
||||||
@@ -132,9 +132,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 798 $
|
$Rev: 851 $
|
||||||
$LastChangedBy: kutterma $
|
$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 $
|
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Serializer/XSD.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -6,7 +6,7 @@ use Scalar::Util qw(blessed);
|
|||||||
use SOAP::WSDL::Factory::Deserializer;
|
use SOAP::WSDL::Factory::Deserializer;
|
||||||
use SOAP::WSDL::Factory::Serializer;
|
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 %dispatch_to_of :ATTR(:name<dispatch_to> :default<()>);
|
||||||
my %action_map_ref_of :ATTR(:name<action_map_ref> :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 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
|
# 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...
|
# server directly - we would have to swap out it's base class...
|
||||||
|
|||||||
@@ -16,7 +16,7 @@ use Apache2::Const -compile => qw(
|
|||||||
HTTP_LENGTH_REQUIRED
|
HTTP_LENGTH_REQUIRED
|
||||||
);
|
);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
my %LOADED_OF = ();
|
my %LOADED_OF = ();
|
||||||
|
|
||||||
|
|||||||
@@ -14,7 +14,7 @@ use Class::Std::Fast::Storable;
|
|||||||
|
|
||||||
use base qw(SOAP::WSDL::Server);
|
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
|
# 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...
|
# server directly - we would have to swap out it's base class...
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
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<[]>);
|
my %port_of :ATTR(:name<port> :default<[]>);
|
||||||
|
|
||||||
|
|||||||
@@ -2,7 +2,7 @@ package SOAP::WSDL::Transport::HTTP;
|
|||||||
use strict; use warnings;
|
use strict; use warnings;
|
||||||
use base qw(LWP::UserAgent);
|
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
|
# create methods normally inherited from SOAP::Client
|
||||||
SUBFACTORY: {
|
SUBFACTORY: {
|
||||||
@@ -95,9 +95,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 798 $
|
$Rev: 851 $
|
||||||
$LastChangedBy: kutterma $
|
$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 $
|
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/Transport/HTTP.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'basic';
|
use Class::Std::Fast::Storable constructor => 'basic';
|
||||||
use SOAP::WSDL::Factory::Transport;
|
use SOAP::WSDL::Factory::Transport;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
# register on loading
|
# register on loading
|
||||||
SOAP::WSDL::Factory::Transport->register( http => __PACKAGE__ );
|
SOAP::WSDL::Factory::Transport->register( http => __PACKAGE__ );
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use SOAP::WSDL::Factory::Transport;
|
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( http => __PACKAGE__ );
|
||||||
SOAP::WSDL::Factory::Transport->register( https => __PACKAGE__ );
|
SOAP::WSDL::Factory::Transport->register( https => __PACKAGE__ );
|
||||||
|
|||||||
@@ -2,7 +2,7 @@ package SOAP::WSDL::TypeLookup;
|
|||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
my %TYPE_FROM = (
|
my %TYPE_FROM = (
|
||||||
# wsdl:
|
# wsdl:
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ use SOAP::WSDL::XSD::Schema::Builtin;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
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<[]>);
|
my %schema_of :ATTR(:name<schema> :default<[]>);
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
#<enumeration value="">
|
#<enumeration value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
#<attribute
|
#<attribute
|
||||||
# default = string
|
# default = string
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
#<attributeGroup
|
#<attributeGroup
|
||||||
# id = ID
|
# id = ID
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
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
|
# only used in SOAP::WSDL - will be obsolete once SOAP::WSDL uses the
|
||||||
# generative approach, too
|
# generative approach, too
|
||||||
|
|||||||
@@ -5,7 +5,7 @@ use Class::Std::Fast::Storable;
|
|||||||
use Scalar::Util qw(blessed);
|
use Scalar::Util qw(blessed);
|
||||||
use base qw(SOAP::WSDL::Base);
|
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
|
# id provided by Base
|
||||||
# name provided by Base
|
# name provided by Base
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
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
|
# id provided by Base
|
||||||
# name provided by Base
|
# name provided by Base
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
#<enumeration value="">
|
#<enumeration value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
#<pattern value="">
|
#<pattern value="">
|
||||||
|
|
||||||
# id provided by Base
|
# id provided by Base
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
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:group name="myModelGroup">
|
||||||
# <xs:sequence>
|
# <xs:sequence>
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
#<minExclusive value="">
|
#<minExclusive value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
#<minExclusive value="">
|
#<minExclusive value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
#<minExclusive value="">
|
#<minExclusive value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
#<maxLength value="">
|
#<maxLength value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
#<minExclusive value="">
|
#<minExclusive value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
#<minExclusive value="">
|
#<minExclusive value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
#<minExclusive value="">
|
#<minExclusive value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
#<pattern value="">
|
#<pattern value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
# child elements
|
# child elements
|
||||||
my %attributeGroup_of :ATTR(:name<attributeGroup> :default<[]>);
|
my %attributeGroup_of :ATTR(:name<attributeGroup> :default<[]>);
|
||||||
|
|||||||
@@ -6,7 +6,7 @@ use SOAP::WSDL::XSD::Schema;
|
|||||||
use SOAP::WSDL::XSD::Builtin;
|
use SOAP::WSDL::XSD::Builtin;
|
||||||
use base qw(SOAP::WSDL::XSD::Schema);
|
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...
|
# all builtin types - add validation (e.g. content restrictions) later...
|
||||||
my %BUILTINS = (
|
my %BUILTINS = (
|
||||||
@@ -103,9 +103,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 798 $
|
$Rev: 851 $
|
||||||
$LastChangedBy: kutterma $
|
$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 $
|
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Schema/Builtin.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable;
|
use Class::Std::Fast::Storable;
|
||||||
use base qw(SOAP::WSDL::Base);
|
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 %length_of :ATTR(:name<length> :default<[]>);
|
||||||
my %minLength_of :ATTR(:name<minLength> :default<[]>);
|
my %minLength_of :ATTR(:name<minLength> :default<[]>);
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
#<totalDigits value="">
|
#<totalDigits value="">
|
||||||
|
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
|
|
||||||
use base qw(SOAP::WSDL::XSD::Typelib::Element);
|
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 {
|
sub start_tag {
|
||||||
# my ($self, $opt, $value) = @_;
|
# my ($self, $opt, $value) = @_;
|
||||||
|
|||||||
@@ -3,7 +3,7 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
|
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 {
|
sub serialize {
|
||||||
# we work on @_ for performance.
|
# we work on @_ for performance.
|
||||||
|
|||||||
@@ -3,7 +3,7 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
use Class::Std::Fast::Storable;
|
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::anyType;
|
||||||
use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
|
use SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType;
|
||||||
|
|||||||
@@ -3,7 +3,7 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
use Class::Std::Fast::Storable constructor => 'none';
|
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' };
|
sub get_xmlns { 'http://www.w3.org/2001/XMLSchema' };
|
||||||
|
|
||||||
|
|||||||
@@ -3,7 +3,7 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
use Class::Std::Fast::Storable constructor => 'none', cache => 1;
|
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);
|
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 Class::Std::Fast::Storable constructor => 'none', cache => 1;
|
||||||
use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
|
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 {
|
sub set_value {
|
||||||
# use set_value from base class if we have a XML-Time format
|
# 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 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
|
# remove in 2.1
|
||||||
our $AS_HASH_REF_WITHOUT_ATTRIBUTES = 0;
|
our $AS_HASH_REF_WITHOUT_ATTRIBUTES = 0;
|
||||||
@@ -23,7 +23,10 @@ my %NAMES_OF; # XML names of elements in a class
|
|||||||
|
|
||||||
|
|
||||||
# XML Attribute handling
|
# 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 !
|
# don't you ever dare to use this !
|
||||||
our $___attributes_of_ref = \%ATTRIBUTES_OF;
|
our $___attributes_of_ref = \%ATTRIBUTES_OF;
|
||||||
@@ -319,6 +322,7 @@ sub _factory {
|
|||||||
*{ "$class\::_serialize" } = sub {
|
*{ "$class\::_serialize" } = sub {
|
||||||
my $ident = ${ $_[0] };
|
my $ident = ${ $_[0] };
|
||||||
my $option_ref = $_[1];
|
my $option_ref = $_[1];
|
||||||
|
|
||||||
# return concatenated return value of serialize call of all
|
# return concatenated return value of serialize call of all
|
||||||
# elements retrieved from get_elements expanding list refs.
|
# elements retrieved from get_elements expanding list refs.
|
||||||
return \join q{} , map {
|
return \join q{} , map {
|
||||||
@@ -327,7 +331,7 @@ sub _factory {
|
|||||||
# do we have some content
|
# do we have some content
|
||||||
if (defined $element) {
|
if (defined $element) {
|
||||||
$element = [ $element ] if not ref $element eq 'ARRAY';
|
$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
|
# backward compatibility
|
||||||
my $name = $NAMES_OF{$class}->{$_} || $_;
|
my $name = $NAMES_OF{$class}->{$_} || $_;
|
||||||
my $target_namespace = $_[0]->get_xmlns();
|
my $target_namespace = $_[0]->get_xmlns();
|
||||||
@@ -345,19 +349,45 @@ sub _factory {
|
|||||||
# serialize complextype elments (of other types) with their
|
# serialize complextype elments (of other types) with their
|
||||||
# serializer, but add element tags around.
|
# serializer, but add element tags around.
|
||||||
else {
|
else {
|
||||||
# TODO: check whether we have to handle
|
# default for undef is true
|
||||||
# types from different namespaces special, too
|
if (! defined $ELEMENT_FORM_QUALIFIED_OF{ $class }
|
||||||
if (!defined $ELEMENT_FORM_QUALIFIED_OF{ $class }
|
|
||||||
or $ELEMENT_FORM_QUALIFIED_OF{ $class }
|
or $ELEMENT_FORM_QUALIFIED_OF{ $class }
|
||||||
) {
|
) {
|
||||||
join q{}, $_->start_tag({ name => $name , %{ $option_ref } })
|
# handle types from different namespaces
|
||||||
, $_->serialize($option_ref)
|
#
|
||||||
, $_->end_tag({ name => $name , %{ $option_ref } });
|
# 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 {
|
else {
|
||||||
# remove xmlns option if there is one
|
# in elementFormDefault="unqualified" mode,
|
||||||
my $set_xmlns = delete $option_ref->{xmlns}
|
# the serialize method has to set
|
||||||
if (exists $option_ref->{xmlns});
|
# 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
|
# serialize start tag with xmlns="" if out parent
|
||||||
# did not do that
|
# did not do that
|
||||||
join q{}, $_->start_tag({
|
join q{}, $_->start_tag({
|
||||||
@@ -400,10 +430,14 @@ sub __get_attr_class {};
|
|||||||
sub __serialize_complex {
|
sub __serialize_complex {
|
||||||
# we work on @_ for performance.
|
# we work on @_ for performance.
|
||||||
$_[1] ||= {}; # $option_ref
|
$_[1] ||= {}; # $option_ref
|
||||||
|
|
||||||
|
push @{ $_[1]->{ xmlns_stack } }, $_[0]->get_xmlns();
|
||||||
|
|
||||||
# get content first (pass by reference to avoid copying)
|
# get content first (pass by reference to avoid copying)
|
||||||
my $content_ref = $_[0]->_serialize($_[1]); # option_ref
|
my $content_ref = $_[0]->_serialize($_[1]); # option_ref
|
||||||
|
|
||||||
|
pop @{ $_[1]->{ xmlns_stack } };
|
||||||
|
|
||||||
# do we have a empty element ?
|
# do we have a empty element ?
|
||||||
return $_[0]->start_tag({ %{ $_[1] }, empty => 1 })
|
return $_[0]->start_tag({ %{ $_[1] }, empty => 1 })
|
||||||
if not length ${ $content_ref };
|
if not length ${ $content_ref };
|
||||||
@@ -411,6 +445,10 @@ sub __serialize_complex {
|
|||||||
return join q{}, $_[0]->start_tag($_[1]), ${ $content_ref }, $_[0]->end_tag();
|
return join q{}, $_[0]->start_tag($_[1]), ${ $content_ref }, $_[0]->end_tag();
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub get_xmlns {
|
||||||
|
return q{}
|
||||||
|
}
|
||||||
|
|
||||||
1;
|
1;
|
||||||
|
|
||||||
__END__
|
__END__
|
||||||
@@ -633,9 +671,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 798 $
|
$Rev: 851 $
|
||||||
$LastChangedBy: kutterma $
|
$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 $
|
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -2,7 +2,7 @@ package SOAP::WSDL::XSD::Typelib::Element;
|
|||||||
use strict; use warnings;
|
use strict; use warnings;
|
||||||
use Class::Std::Fast::Storable constructor => 'none';
|
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 %NAME;
|
||||||
my %NILLABLE;
|
my %NILLABLE;
|
||||||
@@ -177,9 +177,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 798 $
|
$Rev: 851 $
|
||||||
$LastChangedBy: kutterma $
|
$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 $
|
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/Element.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -2,14 +2,14 @@ package SOAP::WSDL::XSD::Typelib::SimpleType;
|
|||||||
use strict; use warnings;
|
use strict; use warnings;
|
||||||
use SOAP::WSDL::XSD::Typelib::Builtin;
|
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;
|
package SOAP::WSDL::XSD::Typelib::SimpleType::restriction;
|
||||||
use strict;
|
use strict;
|
||||||
use SOAP::WSDL::XSD::Typelib::Builtin;
|
use SOAP::WSDL::XSD::Typelib::Builtin;
|
||||||
use base qw(SOAP::WSDL::XSD::Typelib::SimpleType);
|
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;
|
1;
|
||||||
__END__
|
__END__
|
||||||
@@ -132,9 +132,9 @@ Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
|
|||||||
|
|
||||||
=head1 REPOSITORY INFORMATION
|
=head1 REPOSITORY INFORMATION
|
||||||
|
|
||||||
$Rev: 798 $
|
$Rev: 851 $
|
||||||
$LastChangedBy: kutterma $
|
$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 $
|
$HeadURL: https://soap-wsdl.svn.sourceforge.net/svnroot/soap-wsdl/SOAP-WSDL/trunk/lib/SOAP/WSDL/XSD/Typelib/SimpleType.pm $
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|||||||
@@ -4,7 +4,7 @@ use warnings;
|
|||||||
use Class::Std::Fast::Storable constructor => 'none';
|
use Class::Std::Fast::Storable constructor => 'none';
|
||||||
use base qw(SOAP::WSDL::Base);
|
use base qw(SOAP::WSDL::Base);
|
||||||
|
|
||||||
use version; our $VERSION = qv('2.00.08');
|
use version; our $VERSION = qv('2.00.10');
|
||||||
|
|
||||||
#<pattern value="">
|
#<pattern value="">
|
||||||
|
|
||||||
|
|||||||
Regular → Executable
Regular → Executable
Regular → Executable
Regular → Executable
+68
-9
@@ -5,26 +5,85 @@ use lib '../lib';
|
|||||||
use base q{CodeFirst};
|
use base q{CodeFirst};
|
||||||
|
|
||||||
sub test :WebMethod(
|
sub test :WebMethod(
|
||||||
action => "test",
|
name => "sayHello",
|
||||||
returns => "bar",
|
action => "uri:helloWorld/sayHello",
|
||||||
header => "bam",
|
request_body => "CodeFirst::HelloRequest",
|
||||||
body => "baz"
|
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(
|
sub test2 :WebMethod(
|
||||||
action => "test2",
|
action => "test2",
|
||||||
returns => "bar",
|
request_header => "bar",
|
||||||
header => "bam",
|
reqest_body => "bam",
|
||||||
body => "baz"
|
response_header => "bam",
|
||||||
|
response_body => "baz"
|
||||||
) {
|
) {
|
||||||
}
|
}
|
||||||
|
|
||||||
|
=cut
|
||||||
|
|
||||||
package main;
|
package main;
|
||||||
use Data::Dumper;
|
use Data::Dumper;
|
||||||
my $test = testCodeFirst->new();
|
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;
|
||||||
+70
-40
@@ -1,66 +1,96 @@
|
|||||||
|
package FaultDeserializer;
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
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);
|
use_ok qw(SOAP::WSDL::Client);
|
||||||
|
|
||||||
{
|
{
|
||||||
no warnings qw(redefine once);
|
no warnings qw(redefine once);
|
||||||
*SOAP::WSDL::Factory::Transport::get_transport = sub {
|
*SOAP::WSDL::Factory::Transport::get_transport = sub {
|
||||||
my ($self, $url , %args_of) = @_;
|
my ( $self, $url, %args_of ) = @_;
|
||||||
if (%args_of) {
|
if (%args_of) {
|
||||||
is $args_of{foo}, 'bar';
|
is $args_of{foo}, 'bar';
|
||||||
}
|
}
|
||||||
};
|
};
|
||||||
}
|
}
|
||||||
ok my $client = SOAP::WSDL::Client->new();
|
|
||||||
|
|
||||||
ok $client = SOAP::WSDL::Client->new({
|
sub test_client_basics {
|
||||||
proxy => 'http://localhost',
|
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',
|
ok $client->set_soap_version('1.1');
|
||||||
foo => 'bar',
|
is $client->get_soap_version(), '1.1';
|
||||||
);
|
|
||||||
|
|
||||||
#TODO is this behaviour still required? declare as deprecated and remove...
|
$client->set_deserializer_args( {strict => 0} );
|
||||||
$client->set_proxy(
|
is $client->get_deserializer_args()->{strict}, 0;
|
||||||
[ 'http://localhost',
|
}
|
||||||
foo => 'bar',
|
|
||||||
]
|
|
||||||
);
|
|
||||||
|
|
||||||
|
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');
|
# Old calling style compatibility test - foo => bar is body...
|
||||||
is $client->get_soap_version(), '1.1';
|
$serialize = $client->call( 'testMethod', foo => 'bar' );
|
||||||
|
is $serialize->{body}->{foo}, 'bar';
|
||||||
$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';
|
|
||||||
|
|
||||||
sub serialize {
|
sub serialize {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
return 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';
|
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;
|
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_faultstring(), 'Unknown error';
|
||||||
is $fault->get_faultactor(), 'urn:localhost';
|
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('rubbeldiekatz'), 'SOAP::WSDL::SOAP::Typelib::Fault11';
|
||||||
isa_ok $obj->deserialize('<zumsel></zumsel>'), '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::Basename qw(dirname);
|
||||||
use File::Spec;
|
use File::Spec;
|
||||||
use File::Path;
|
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(MyServer::My::SOAP::testService::testPort);
|
||||||
use_ok qw(MyTypes::testComplexTypeRestriction);
|
use_ok qw(MyTypes::testComplexTypeRestriction);
|
||||||
use_ok qw(MyTypes::testComplexTypeAll);
|
use_ok qw(MyTypes::testComplexTypeAll);
|
||||||
|
# type with dot in name including atomic type
|
||||||
|
use_ok qw(MyTypes::test::ComplexTypeElementAtomicSimpleType);
|
||||||
SKIP: {
|
SKIP: {
|
||||||
eval { require Test::Pod::Content; }
|
eval { require Test::Pod::Content; }
|
||||||
or skip 'Cannot test pod content without Test::Pod::Content', 6;
|
or skip 'Cannot test pod content without Test::Pod::Content', 6;
|
||||||
|
|||||||
@@ -73,16 +73,18 @@ __PACKAGE__->_factory(
|
|||||||
);
|
);
|
||||||
|
|
||||||
package MyElementSimpleContent;
|
package MyElementSimpleContent;
|
||||||
use base qw(
|
{
|
||||||
SOAP::WSDL::XSD::Typelib::Element
|
use base qw(
|
||||||
SOAP::WSDL::XSD::Typelib::ComplexType
|
SOAP::WSDL::XSD::Typelib::Element
|
||||||
SOAP::WSDL::XSD::Typelib::Builtin::string
|
SOAP::WSDL::XSD::Typelib::ComplexType
|
||||||
);
|
SOAP::WSDL::XSD::Typelib::Builtin::string
|
||||||
|
);
|
||||||
|
|
||||||
__PACKAGE__->__set_name( 'MyElementSimpleContent' );
|
__PACKAGE__->__set_name( 'MyElementSimpleContent' );
|
||||||
|
|
||||||
sub __get_attr_class { 'MyElement::_ATTR' };
|
|
||||||
|
|
||||||
|
sub __get_attr_class { 'MyElement::_ATTR' };
|
||||||
|
sub get_xmlns { 'http://www.w3.org/2001/XMLSchema' }
|
||||||
|
}
|
||||||
package main;
|
package main;
|
||||||
use Test::More tests => 127;
|
use Test::More tests => 127;
|
||||||
use Storable;
|
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;
|
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()->{ xmlattr };
|
||||||
ok ! exists $obj->as_hash_ref(1)->{ 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