ZaneYork
/
zoneminder
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

WSDiscovery version changed from 1.1 to 1.0

This commit is contained in:
Jan M. Hochstein 2016-03-19 18:36:12 +01:00
parent fe46785e94
commit 39053f9325
71 changed files with 1142 additions and 1281 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
onvif/proxy/lib/WSDiscovery/Elements/EndpointReference.pm
View File

@ -1,63 +0,0 @@
package WSDiscovery::Elements::EndpointReference;
use strict;
use warnings;
{ # BLOCK to scope variables
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' }
__PACKAGE__->__set_name('EndpointReference');
__PACKAGE__->__set_nillable();
__PACKAGE__->__set_minOccurs();
__PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref();
use base qw(
SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::EndpointReferenceType
);
}
1;
=pod
=head1 NAME
WSDiscovery::Elements::EndpointReference
=head1 DESCRIPTION
Perl data type class for the XML Schema defined element
EndpointReference from the namespace http://www.w3.org/2005/08/addressing.
=head1 METHODS
=head2 new
my $element = WSDiscovery::Elements::EndpointReference->new($data);
Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::EndpointReferenceType
Address => { value => $some_value },
ReferenceParameters => { # WSDiscovery::Types::ReferenceParametersType
},
Metadata => { # WSDiscovery::Types::MetadataType
},
},
=head1 AUTHOR
Generated by SOAP::WSDL
=cut

63
onvif/proxy/lib/WSDiscovery/Elements/FaultTo.pm
View File

@ -1,63 +0,0 @@
package WSDiscovery::Elements::FaultTo;
use strict;
use warnings;
{ # BLOCK to scope variables
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' }
__PACKAGE__->__set_name('FaultTo');
__PACKAGE__->__set_nillable();
__PACKAGE__->__set_minOccurs();
__PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref();
use base qw(
SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::EndpointReferenceType
);
}
1;
=pod
=head1 NAME
WSDiscovery::Elements::FaultTo
=head1 DESCRIPTION
Perl data type class for the XML Schema defined element
FaultTo from the namespace http://www.w3.org/2005/08/addressing.
=head1 METHODS
=head2 new
my $element = WSDiscovery::Elements::FaultTo->new($data);
Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::EndpointReferenceType
Address => { value => $some_value },
ReferenceParameters => { # WSDiscovery::Types::ReferenceParametersType
},
Metadata => { # WSDiscovery::Types::MetadataType
},
},
=head1 AUTHOR
Generated by SOAP::WSDL
=cut

63
onvif/proxy/lib/WSDiscovery/Elements/From.pm
View File

@ -1,63 +0,0 @@
package WSDiscovery::Elements::From;
use strict;
use warnings;
{ # BLOCK to scope variables
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' }
__PACKAGE__->__set_name('From');
__PACKAGE__->__set_nillable();
__PACKAGE__->__set_minOccurs();
__PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref();
use base qw(
SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::EndpointReferenceType
);
}
1;
=pod
=head1 NAME
WSDiscovery::Elements::From
=head1 DESCRIPTION
Perl data type class for the XML Schema defined element
From from the namespace http://www.w3.org/2005/08/addressing.
=head1 METHODS
=head2 new
my $element = WSDiscovery::Elements::From->new($data);
Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::EndpointReferenceType
Address => { value => $some_value },
ReferenceParameters => { # WSDiscovery::Types::ReferenceParametersType
},
Metadata => { # WSDiscovery::Types::MetadataType
},
},
=head1 AUTHOR
Generated by SOAP::WSDL
=cut

58
onvif/proxy/lib/WSDiscovery/Elements/Metadata.pm
View File

@ -1,58 +0,0 @@
package WSDiscovery::Elements::Metadata;
use strict;
use warnings;
{ # BLOCK to scope variables
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' }
__PACKAGE__->__set_name('Metadata');
__PACKAGE__->__set_nillable();
__PACKAGE__->__set_minOccurs();
__PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref();
use base qw(
SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::MetadataType
);
}
1;
=pod
=head1 NAME
WSDiscovery::Elements::Metadata
=head1 DESCRIPTION
Perl data type class for the XML Schema defined element
Metadata from the namespace http://www.w3.org/2005/08/addressing.
=head1 METHODS
=head2 new
my $element = WSDiscovery::Elements::Metadata->new($data);
Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::MetadataType
},
=head1 AUTHOR
Generated by SOAP::WSDL
=cut

60
onvif/proxy/lib/WSDiscovery/Elements/ProblemAction.pm
View File

@ -1,60 +0,0 @@
package WSDiscovery::Elements::ProblemAction;
use strict;
use warnings;
{ # BLOCK to scope variables
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' }
__PACKAGE__->__set_name('ProblemAction');
__PACKAGE__->__set_nillable();
__PACKAGE__->__set_minOccurs();
__PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref();
use base qw(
SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::ProblemActionType
);
}
1;
=pod
=head1 NAME
WSDiscovery::Elements::ProblemAction
=head1 DESCRIPTION
Perl data type class for the XML Schema defined element
ProblemAction from the namespace http://www.w3.org/2005/08/addressing.
=head1 METHODS
=head2 new
my $element = WSDiscovery::Elements::ProblemAction->new($data);
Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::ProblemActionType
Action => { value => $some_value },
SoapAction => $some_value, # anyURI
},
=head1 AUTHOR
Generated by SOAP::WSDL
=cut

57
onvif/proxy/lib/WSDiscovery/Elements/ProblemHeaderQName.pm
View File

@ -1,57 +0,0 @@
package WSDiscovery::Elements::ProblemHeaderQName;
use strict;
use warnings;
{ # BLOCK to scope variables
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' }
__PACKAGE__->__set_name('ProblemHeaderQName');
__PACKAGE__->__set_nillable();
__PACKAGE__->__set_minOccurs();
__PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref();
use base qw(
SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::AttributedQNameType
);
}
1;
=pod
=head1 NAME
WSDiscovery::Elements::ProblemHeaderQName
=head1 DESCRIPTION
Perl data type class for the XML Schema defined element
ProblemHeaderQName from the namespace http://www.w3.org/2005/08/addressing.
=head1 METHODS
=head2 new
my $element = WSDiscovery::Elements::ProblemHeaderQName->new($data);
Constructor. The following data structure may be passed to new():
{ value => $some_value },
=head1 AUTHOR
Generated by SOAP::WSDL
=cut

58
onvif/proxy/lib/WSDiscovery/Elements/ReferenceParameters.pm
View File

@ -1,58 +0,0 @@
package WSDiscovery::Elements::ReferenceParameters;
use strict;
use warnings;
{ # BLOCK to scope variables
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' }
__PACKAGE__->__set_name('ReferenceParameters');
__PACKAGE__->__set_nillable();
__PACKAGE__->__set_minOccurs();
__PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref();
use base qw(
SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::ReferenceParametersType
);
}
1;
=pod
=head1 NAME
WSDiscovery::Elements::ReferenceParameters
=head1 DESCRIPTION
Perl data type class for the XML Schema defined element
ReferenceParameters from the namespace http://www.w3.org/2005/08/addressing.
=head1 METHODS
=head2 new
my $element = WSDiscovery::Elements::ReferenceParameters->new($data);
Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::ReferenceParametersType
},
=head1 AUTHOR
Generated by SOAP::WSDL
=cut

63
onvif/proxy/lib/WSDiscovery/Elements/ReplyTo.pm
View File

@ -1,63 +0,0 @@
package WSDiscovery::Elements::ReplyTo;
use strict;
use warnings;
{ # BLOCK to scope variables
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' }
__PACKAGE__->__set_name('ReplyTo');
__PACKAGE__->__set_nillable();
__PACKAGE__->__set_minOccurs();
__PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref();
use base qw(
SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::EndpointReferenceType
);
}
1;
=pod
=head1 NAME
WSDiscovery::Elements::ReplyTo
=head1 DESCRIPTION
Perl data type class for the XML Schema defined element
ReplyTo from the namespace http://www.w3.org/2005/08/addressing.
=head1 METHODS
=head2 new
my $element = WSDiscovery::Elements::ReplyTo->new($data);
Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::EndpointReferenceType
Address => { value => $some_value },
ReferenceParameters => { # WSDiscovery::Types::ReferenceParametersType
},
Metadata => { # WSDiscovery::Types::MetadataType
},
},
=head1 AUTHOR
Generated by SOAP::WSDL
=cut

65
onvif/proxy/lib/WSDiscovery/Elements/Resolve.pm
View File

@ -1,65 +0,0 @@
package WSDiscovery::Elements::Resolve;
use strict;
use warnings;
{ # BLOCK to scope variables
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' }
__PACKAGE__->__set_name('Resolve');
__PACKAGE__->__set_nillable();
__PACKAGE__->__set_minOccurs();
__PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref();
use base qw(
SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::ResolveType
);
}
1;
=pod
=head1 NAME
WSDiscovery::Elements::Resolve
=head1 DESCRIPTION
Perl data type class for the XML Schema defined element
Resolve from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01.
=head1 METHODS
=head2 new
my $element = WSDiscovery::Elements::Resolve->new($data);
Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::ResolveType
EndpointReference => { # WSDiscovery::Types::EndpointReferenceType
Address => { value => $some_value },
ReferenceParameters => { # WSDiscovery::Types::ReferenceParametersType
},
Metadata => { # WSDiscovery::Types::MetadataType
},
},
},
=head1 AUTHOR
Generated by SOAP::WSDL
=cut

59
onvif/proxy/lib/WSDiscovery/Typemaps/WSDiscovery.pm
View File

@ -1,59 +0,0 @@
package WSDiscovery::Typemaps::WSDiscovery;
use strict;
use warnings;
our $typemap_1 = {
'ProbeMatches/ProbeMatch/XAddrs' => 'WSDiscovery::Types::UriListType',
'ProbeMatches/ProbeMatch' => 'WSDiscovery::Types::ProbeMatchType',
'Fault/detail' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
'ProbeMatches/ProbeMatch/EndpointReference/Metadata' => 'WSDiscovery::Types::MetadataType',
'ProbeMatches/ProbeMatch/Scopes' => 'WSDiscovery::Types::ScopesType',
'ProbeMatches/ProbeMatch/EndpointReference/Address' => 'WSDiscovery::Types::AttributedURIType',
'Probe/Types' => 'WSDiscovery::Types::QNameListType',
'Probe' => 'WSDiscovery::Elements::Probe',
'Fault/faultstring' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
'ProbeMatches/ProbeMatch/MetadataVersion' => 'SOAP::WSDL::XSD::Typelib::Builtin::unsignedInt',
'Probe/Scopes' => 'WSDiscovery::Types::ScopesType',
'Fault/faultactor' => 'SOAP::WSDL::XSD::Typelib::Builtin::token',
'Fault/faultcode' => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
'ProbeMatches/ProbeMatch/Types' => 'WSDiscovery::Types::QNameListType',
'ProbeMatches/ProbeMatch/EndpointReference/ReferenceParameters' => 'WSDiscovery::Types::ReferenceParametersType',
'ProbeMatches/ProbeMatch/EndpointReference' => 'WSDiscovery::Types::EndpointReferenceType',
'Fault' => 'SOAP::WSDL::SOAP::Typelib::Fault11',
'ProbeMatches' => 'WSDiscovery::Elements::ProbeMatches',
'MessageID' => 'WSDiscovery::Elements::MessageID',
'RelatesTo' => '__SKIP__',
'To' => '__SKIP__',
'Action' => '__SKIP__',
'AppSequence' => '__SKIP__',
};
;
sub get_class {
my $name = join '/', @{ $_[1] };
return $typemap_1->{ $name };
}
sub get_typemap {
return $typemap_1;
}
1;
__END__
__END__
=pod
=head1 NAME
WSDiscovery::Typemaps::WSDiscovery - typemap for WSDiscovery
=head1 DESCRIPTION
Typemap created by SOAP::WSDL for map-based SOAP message parsers.
=cut

137
onvif/proxy/lib/WSDiscovery/Types/EndpointReferenceType.pm
View File

@ -1,137 +0,0 @@
package WSDiscovery::Types::EndpointReferenceType;
use strict;
use warnings;
__PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' };
our $XML_ATTRIBUTE_CLASS;
undef $XML_ATTRIBUTE_CLASS;
sub __get_attr_class {
return $XML_ATTRIBUTE_CLASS;
}
use Class::Std::Fast::Storable constructor => 'none';
use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
Class::Std::initialize();
{ # BLOCK to scope variables
my %Address_of :ATTR(:get<Address>);
my %ReferenceParameters_of :ATTR(:get<ReferenceParameters>);
my %Metadata_of :ATTR(:get<Metadata>);
__PACKAGE__->_factory(
[ qw( Address
ReferenceParameters
Metadata
) ],
{
'Address' => \%Address_of,
'ReferenceParameters' => \%ReferenceParameters_of,
'Metadata' => \%Metadata_of,
},
{
'Address' => 'WSDiscovery::Types::AttributedURIType',
'ReferenceParameters' => 'WSDiscovery::Elements::ReferenceParameters',
'Metadata' => 'WSDiscovery::Elements::Metadata',
},
{
'Address' => 'Address',
'ReferenceParameters' => '',
'Metadata' => '',
}
);
} # end BLOCK
1;
=pod
=head1 NAME
WSDiscovery::Types::EndpointReferenceType
=head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType
EndpointReferenceType from the namespace http://www.w3.org/2005/08/addressing.
=head2 PROPERTIES
The following properties may be accessed using get_PROPERTY / set_PROPERTY
methods:
=over
=item * Address
=item * ReferenceParameters
Note: The name of this property has been altered, because it didn't match
perl's notion of variable/subroutine names. The altered name is used in
perl code only, XML output uses the original name:
=item * Metadata
Note: The name of this property has been altered, because it didn't match
perl's notion of variable/subroutine names. The altered name is used in
perl code only, XML output uses the original name:
=back
=head1 METHODS
=head2 new
Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::EndpointReferenceType
Address => { value => $some_value },
ReferenceParameters => { # WSDiscovery::Types::ReferenceParametersType
},
Metadata => { # WSDiscovery::Types::MetadataType
},
},
=head1 AUTHOR
Generated by SOAP::WSDL
=cut

119
onvif/proxy/lib/WSDiscovery/Types/ProblemActionType.pm
View File

@ -1,119 +0,0 @@
package WSDiscovery::Types::ProblemActionType;
use strict;
use warnings;
__PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' };
our $XML_ATTRIBUTE_CLASS;
undef $XML_ATTRIBUTE_CLASS;
sub __get_attr_class {
return $XML_ATTRIBUTE_CLASS;
}
use Class::Std::Fast::Storable constructor => 'none';
use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
Class::Std::initialize();
{ # BLOCK to scope variables
my %Action_of :ATTR(:get<Action>);
my %SoapAction_of :ATTR(:get<SoapAction>);
__PACKAGE__->_factory(
[ qw( Action
SoapAction
) ],
{
'Action' => \%Action_of,
'SoapAction' => \%SoapAction_of,
},
{
'Action' => 'WSDiscovery::Elements::Action',
'SoapAction' => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
},
{
'Action' => '',
'SoapAction' => 'SoapAction',
}
);
} # end BLOCK
1;
=pod
=head1 NAME
WSDiscovery::Types::ProblemActionType
=head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType
ProblemActionType from the namespace http://www.w3.org/2005/08/addressing.
=head2 PROPERTIES
The following properties may be accessed using get_PROPERTY / set_PROPERTY
methods:
=over
=item * Action
Note: The name of this property has been altered, because it didn't match
perl's notion of variable/subroutine names. The altered name is used in
perl code only, XML output uses the original name:
=item * SoapAction
=back
=head1 METHODS
=head2 new
Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::ProblemActionType
Action => { value => $some_value },
SoapAction => $some_value, # anyURI
},
=head1 AUTHOR
Generated by SOAP::WSDL
=cut

76
onvif/proxy/lib/WSDiscovery/Types/RelationshipTypeOpenEnum.pm
View File

@ -1,76 +0,0 @@
package WSDiscovery::Types::RelationshipTypeOpenEnum;
use strict;
use warnings;
sub get_xmlns { 'http://www.w3.org/2005/08/addressing'};
# derivation by union
# union is not fully supported yet - value space constraints are not
# checked yet.
# This implementation of union resorts to the simplest possible base, which
# is: "If the <list> or <union> alternative is chosen, then the
# simple ur-type definition·."
#
use base qw(
SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType
);
1;
__END__
=pod
=head1 NAME
=head1 DESCRIPTION
Perl data type class for the XML Schema defined simpleType
RelationshipTypeOpenEnum from the namespace http://www.w3.org/2005/08/addressing.
This type class is derived by union.
Derivation by union is not fully supported yet - value space constraints are
not checked yet.
The current implementation of union resorts to inheriting from the base type,
which means (quoted from the XML Schema specs): "If the <list> or <union>
alternative is chosen, then the simple ur-type definition·."
=head1 METHODS
=head2 new
Constructor.
=head2 get_value / set_value
Getter and setter for the simpleType's value.
=head1 OVERLOADING
Depending on the simple type's base type, the following operations are overloaded
Stringification
Numerification
Boolification
Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
=head1 AUTHOR
Generated by SOAP::WSDL
=cut

14
onvif/proxy/lib/WSDiscovery/Attributes/IsReferenceParameter.pm → onvif/proxy/lib/WSDiscovery10/Attributes/Action.pm
View File

@ -1,17 +1,17 @@
package WSDiscovery::Attributes::IsReferenceParameter; package WSDiscovery10::Attributes::Action;
use strict; use strict;
use warnings; use warnings;
{ # BLOCK to scope variables { # BLOCK to scope variables
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' } sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' }
__PACKAGE__->__set_name('IsReferenceParameter'); __PACKAGE__->__set_name('Action');
__PACKAGE__->__set_ref(); __PACKAGE__->__set_ref();
use base qw( use base qw(
SOAP::WSDL::XSD::Typelib::Attribute SOAP::WSDL::XSD::Typelib::Attribute
SOAP::WSDL::XSD::Typelib::Builtin::boolean SOAP::WSDL::XSD::Typelib::Builtin::anyURI
); );
} }
@ -23,12 +23,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Attributes::IsReferenceParameter WSDiscovery10::Attributes::Action
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined attribute Perl data type class for the XML Schema defined attribute
IsReferenceParameter from the namespace http://www.w3.org/2005/08/addressing. Action from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing.
@ -40,7 +40,7 @@ IsReferenceParameter from the namespace http://www.w3.org/2005/08/addressing.
=head2 new =head2 new
my $element = WSDiscovery::Attributes::IsReferenceParameter->new($data); my $element = WSDiscovery10::Attributes::Action->new($data);
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():

10
onvif/proxy/lib/WSDiscovery/Attributes/Id.pm → onvif/proxy/lib/WSDiscovery10/Attributes/Id.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Attributes::Id; package WSDiscovery10::Attributes::Id;
use strict; use strict;
use warnings; use warnings;
{ # BLOCK to scope variables { # BLOCK to scope variables
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' } sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }
__PACKAGE__->__set_name('Id'); __PACKAGE__->__set_name('Id');
__PACKAGE__->__set_ref(); __PACKAGE__->__set_ref();
@ -23,12 +23,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Attributes::Id WSDiscovery10::Attributes::Id
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined attribute Perl data type class for the XML Schema defined attribute
Id from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. Id from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -40,7 +40,7 @@ Id from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01.
=head2 new =head2 new
my $element = WSDiscovery::Attributes::Id->new($data); my $element = WSDiscovery10::Attributes::Id->new($data);
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():

12
onvif/proxy/lib/WSDiscovery/Elements/Action.pm → onvif/proxy/lib/WSDiscovery10/Elements/Action.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Elements::Action; package WSDiscovery10::Elements::Action;
use strict; use strict;
use warnings; use warnings;
{ # BLOCK to scope variables { # BLOCK to scope variables
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' } sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' }
__PACKAGE__->__set_name('Action'); __PACKAGE__->__set_name('Action');
__PACKAGE__->__set_nillable(); __PACKAGE__->__set_nillable();
@ -14,7 +14,7 @@ __PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref(); __PACKAGE__->__set_ref();
use base qw( use base qw(
SOAP::WSDL::XSD::Typelib::Element SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::AttributedURIType WSDiscovery10::Types::AttributedURI
); );
} }
@ -26,12 +26,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Elements::Action WSDiscovery10::Elements::Action
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined element Perl data type class for the XML Schema defined element
Action from the namespace http://www.w3.org/2005/08/addressing. Action from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing.
@ -43,7 +43,7 @@ Action from the namespace http://www.w3.org/2005/08/addressing.
=head2 new =head2 new
my $element = WSDiscovery::Elements::Action->new($data); my $element = WSDiscovery10::Elements::Action->new($data);
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():

14
onvif/proxy/lib/WSDiscovery/Elements/AppSequence.pm → onvif/proxy/lib/WSDiscovery10/Elements/AppSequence.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Elements::AppSequence; package WSDiscovery10::Elements::AppSequence;
use strict; use strict;
use warnings; use warnings;
{ # BLOCK to scope variables { # BLOCK to scope variables
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' } sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }
__PACKAGE__->__set_name('AppSequence'); __PACKAGE__->__set_name('AppSequence');
__PACKAGE__->__set_nillable(); __PACKAGE__->__set_nillable();
@ -14,7 +14,7 @@ __PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref(); __PACKAGE__->__set_ref();
use base qw( use base qw(
SOAP::WSDL::XSD::Typelib::Element SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::AppSequenceType WSDiscovery10::Types::AppSequenceType
); );
} }
@ -26,12 +26,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Elements::AppSequence WSDiscovery10::Elements::AppSequence
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined element Perl data type class for the XML Schema defined element
AppSequence from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. AppSequence from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -43,11 +43,11 @@ AppSequence from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/200
=head2 new =head2 new
my $element = WSDiscovery::Elements::AppSequence->new($data); my $element = WSDiscovery10::Elements::AppSequence->new($data);
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::AppSequenceType { # WSDiscovery10::Types::AppSequenceType
}, },
=head1 AUTHOR =head1 AUTHOR

22
onvif/proxy/lib/WSDiscovery/Elements/Bye.pm → onvif/proxy/lib/WSDiscovery10/Elements/Bye.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Elements::Bye; package WSDiscovery10::Elements::Bye;
use strict; use strict;
use warnings; use warnings;
{ # BLOCK to scope variables { # BLOCK to scope variables
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' } sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }
__PACKAGE__->__set_name('Bye'); __PACKAGE__->__set_name('Bye');
__PACKAGE__->__set_nillable(); __PACKAGE__->__set_nillable();
@ -14,7 +14,7 @@ __PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref(); __PACKAGE__->__set_ref();
use base qw( use base qw(
SOAP::WSDL::XSD::Typelib::Element SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::ByeType WSDiscovery10::Types::ByeType
); );
} }
@ -26,12 +26,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Elements::Bye WSDiscovery10::Elements::Bye
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined element Perl data type class for the XML Schema defined element
Bye from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. Bye from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -43,17 +43,19 @@ Bye from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01.
=head2 new =head2 new
my $element = WSDiscovery::Elements::Bye->new($data); my $element = WSDiscovery10::Elements::Bye->new($data);
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::ByeType { # WSDiscovery10::Types::ByeType
EndpointReference => { # WSDiscovery::Types::EndpointReferenceType EndpointReference => { # WSDiscovery10::Types::EndpointReferenceType
Address => { value => $some_value }, Address => { value => $some_value },
ReferenceParameters => { # WSDiscovery::Types::ReferenceParametersType ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType
}, },
Metadata => { # WSDiscovery::Types::MetadataType ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType
}, },
PortType => { value => $some_value },
ServiceName => { value => $some_value },
}, },
Types => $some_value, # QNameListType Types => $some_value, # QNameListType
Scopes => { value => $some_value }, Scopes => { value => $some_value },

65
onvif/proxy/lib/WSDiscovery10/Elements/EndpointReference.pm Normal file
View File

@ -0,0 +1,65 @@
package WSDiscovery10::Elements::EndpointReference;
use strict;
use warnings;
{ # BLOCK to scope variables
sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' }
__PACKAGE__->__set_name('EndpointReference');
__PACKAGE__->__set_nillable();
__PACKAGE__->__set_minOccurs();
__PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref();
use base qw(
SOAP::WSDL::XSD::Typelib::Element
WSDiscovery10::Types::EndpointReferenceType
);
}
1;
=pod
=head1 NAME
WSDiscovery10::Elements::EndpointReference
=head1 DESCRIPTION
Perl data type class for the XML Schema defined element
EndpointReference from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing.
=head1 METHODS
=head2 new
my $element = WSDiscovery10::Elements::EndpointReference->new($data);
Constructor. The following data structure may be passed to new():
{ # WSDiscovery10::Types::EndpointReferenceType
Address => { value => $some_value },
ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType
},
ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType
},
PortType => { value => $some_value },
ServiceName => { value => $some_value },
},
=head1 AUTHOR
Generated by SOAP::WSDL
=cut

65
onvif/proxy/lib/WSDiscovery10/Elements/FaultTo.pm Normal file
View File

@ -0,0 +1,65 @@
package WSDiscovery10::Elements::FaultTo;
use strict;
use warnings;
{ # BLOCK to scope variables
sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' }
__PACKAGE__->__set_name('FaultTo');
__PACKAGE__->__set_nillable();
__PACKAGE__->__set_minOccurs();
__PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref();
use base qw(
SOAP::WSDL::XSD::Typelib::Element
WSDiscovery10::Types::EndpointReferenceType
);
}
1;
=pod
=head1 NAME
WSDiscovery10::Elements::FaultTo
=head1 DESCRIPTION
Perl data type class for the XML Schema defined element
FaultTo from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing.
=head1 METHODS
=head2 new
my $element = WSDiscovery10::Elements::FaultTo->new($data);
Constructor. The following data structure may be passed to new():
{ # WSDiscovery10::Types::EndpointReferenceType
Address => { value => $some_value },
ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType
},
ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType
},
PortType => { value => $some_value },
ServiceName => { value => $some_value },
},
=head1 AUTHOR
Generated by SOAP::WSDL
=cut

65
onvif/proxy/lib/WSDiscovery10/Elements/From.pm Normal file
View File

@ -0,0 +1,65 @@
package WSDiscovery10::Elements::From;
use strict;
use warnings;
{ # BLOCK to scope variables
sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' }
__PACKAGE__->__set_name('From');
__PACKAGE__->__set_nillable();
__PACKAGE__->__set_minOccurs();
__PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref();
use base qw(
SOAP::WSDL::XSD::Typelib::Element
WSDiscovery10::Types::EndpointReferenceType
);
}
1;
=pod
=head1 NAME
WSDiscovery10::Elements::From
=head1 DESCRIPTION
Perl data type class for the XML Schema defined element
From from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing.
=head1 METHODS
=head2 new
my $element = WSDiscovery10::Elements::From->new($data);
Constructor. The following data structure may be passed to new():
{ # WSDiscovery10::Types::EndpointReferenceType
Address => { value => $some_value },
ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType
},
ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType
},
PortType => { value => $some_value },
ServiceName => { value => $some_value },
},
=head1 AUTHOR
Generated by SOAP::WSDL
=cut

22
onvif/proxy/lib/WSDiscovery/Elements/Hello.pm → onvif/proxy/lib/WSDiscovery10/Elements/Hello.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Elements::Hello; package WSDiscovery10::Elements::Hello;
use strict; use strict;
use warnings; use warnings;
{ # BLOCK to scope variables { # BLOCK to scope variables
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' } sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }
__PACKAGE__->__set_name('Hello'); __PACKAGE__->__set_name('Hello');
__PACKAGE__->__set_nillable(); __PACKAGE__->__set_nillable();
@ -14,7 +14,7 @@ __PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref(); __PACKAGE__->__set_ref();
use base qw( use base qw(
SOAP::WSDL::XSD::Typelib::Element SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::HelloType WSDiscovery10::Types::HelloType
); );
} }
@ -26,12 +26,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Elements::Hello WSDiscovery10::Elements::Hello
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined element Perl data type class for the XML Schema defined element
Hello from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. Hello from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -43,17 +43,19 @@ Hello from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01.
=head2 new =head2 new
my $element = WSDiscovery::Elements::Hello->new($data); my $element = WSDiscovery10::Elements::Hello->new($data);
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::HelloType { # WSDiscovery10::Types::HelloType
EndpointReference => { # WSDiscovery::Types::EndpointReferenceType EndpointReference => { # WSDiscovery10::Types::EndpointReferenceType
Address => { value => $some_value }, Address => { value => $some_value },
ReferenceParameters => { # WSDiscovery::Types::ReferenceParametersType ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType
}, },
Metadata => { # WSDiscovery::Types::MetadataType ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType
}, },
PortType => { value => $some_value },
ServiceName => { value => $some_value },
}, },
Types => $some_value, # QNameListType Types => $some_value, # QNameListType
Scopes => { value => $some_value }, Scopes => { value => $some_value },

12
onvif/proxy/lib/WSDiscovery/Elements/MessageID.pm → onvif/proxy/lib/WSDiscovery10/Elements/MessageID.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Elements::MessageID; package WSDiscovery10::Elements::MessageID;
use strict; use strict;
use warnings; use warnings;
{ # BLOCK to scope variables { # BLOCK to scope variables
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' } sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' }
__PACKAGE__->__set_name('MessageID'); __PACKAGE__->__set_name('MessageID');
__PACKAGE__->__set_nillable(); __PACKAGE__->__set_nillable();
@ -14,7 +14,7 @@ __PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref(); __PACKAGE__->__set_ref();
use base qw( use base qw(
SOAP::WSDL::XSD::Typelib::Element SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::AttributedURIType WSDiscovery10::Types::AttributedURI
); );
} }
@ -26,12 +26,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Elements::MessageID WSDiscovery10::Elements::MessageID
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined element Perl data type class for the XML Schema defined element
MessageID from the namespace http://www.w3.org/2005/08/addressing. MessageID from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing.
@ -43,7 +43,7 @@ MessageID from the namespace http://www.w3.org/2005/08/addressing.
=head2 new =head2 new
my $element = WSDiscovery::Elements::MessageID->new($data); my $element = WSDiscovery10::Elements::MessageID->new($data);
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():

10
onvif/proxy/lib/WSDiscovery/Elements/MetadataVersion.pm → onvif/proxy/lib/WSDiscovery10/Elements/MetadataVersion.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Elements::MetadataVersion; package WSDiscovery10::Elements::MetadataVersion;
use strict; use strict;
use warnings; use warnings;
{ # BLOCK to scope variables { # BLOCK to scope variables
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' } sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }
__PACKAGE__->__set_name('MetadataVersion'); __PACKAGE__->__set_name('MetadataVersion');
__PACKAGE__->__set_nillable(); __PACKAGE__->__set_nillable();
@ -26,12 +26,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Elements::MetadataVersion WSDiscovery10::Elements::MetadataVersion
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined element Perl data type class for the XML Schema defined element
MetadataVersion from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. MetadataVersion from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -43,7 +43,7 @@ MetadataVersion from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery
=head2 new =head2 new
my $element = WSDiscovery::Elements::MetadataVersion->new($data); my $element = WSDiscovery10::Elements::MetadataVersion->new($data);
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():

14
onvif/proxy/lib/WSDiscovery/Elements/Probe.pm → onvif/proxy/lib/WSDiscovery10/Elements/Probe.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Elements::Probe; package WSDiscovery10::Elements::Probe;
use strict; use strict;
use warnings; use warnings;
{ # BLOCK to scope variables { # BLOCK to scope variables
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' } sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }
__PACKAGE__->__set_name('Probe'); __PACKAGE__->__set_name('Probe');
__PACKAGE__->__set_nillable(); __PACKAGE__->__set_nillable();
@ -14,7 +14,7 @@ __PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref(); __PACKAGE__->__set_ref();
use base qw( use base qw(
SOAP::WSDL::XSD::Typelib::Element SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::ProbeType WSDiscovery10::Types::ProbeType
); );
} }
@ -26,12 +26,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Elements::Probe WSDiscovery10::Elements::Probe
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined element Perl data type class for the XML Schema defined element
Probe from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. Probe from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -43,11 +43,11 @@ Probe from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01.
=head2 new =head2 new
my $element = WSDiscovery::Elements::Probe->new($data); my $element = WSDiscovery10::Elements::Probe->new($data);
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::ProbeType { # WSDiscovery10::Types::ProbeType
Types => $some_value, # QNameListType Types => $some_value, # QNameListType
Scopes => { value => $some_value }, Scopes => { value => $some_value },
}, },

24
onvif/proxy/lib/WSDiscovery/Elements/ProbeMatches.pm → onvif/proxy/lib/WSDiscovery10/Elements/ProbeMatches.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Elements::ProbeMatches; package WSDiscovery10::Elements::ProbeMatches;
use strict; use strict;
use warnings; use warnings;
{ # BLOCK to scope variables { # BLOCK to scope variables
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' } sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }
__PACKAGE__->__set_name('ProbeMatches'); __PACKAGE__->__set_name('ProbeMatches');
__PACKAGE__->__set_nillable(); __PACKAGE__->__set_nillable();
@ -14,7 +14,7 @@ __PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref(); __PACKAGE__->__set_ref();
use base qw( use base qw(
SOAP::WSDL::XSD::Typelib::Element SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::ProbeMatchesType WSDiscovery10::Types::ProbeMatchesType
); );
} }
@ -26,12 +26,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Elements::ProbeMatches WSDiscovery10::Elements::ProbeMatches
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined element Perl data type class for the XML Schema defined element
ProbeMatches from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. ProbeMatches from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -43,18 +43,20 @@ ProbeMatches from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/20
=head2 new =head2 new
my $element = WSDiscovery::Elements::ProbeMatches->new($data); my $element = WSDiscovery10::Elements::ProbeMatches->new($data);
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::ProbeMatchesType { # WSDiscovery10::Types::ProbeMatchesType
ProbeMatch => { # WSDiscovery::Types::ProbeMatchType ProbeMatch => { # WSDiscovery10::Types::ProbeMatchType
EndpointReference => { # WSDiscovery::Types::EndpointReferenceType EndpointReference => { # WSDiscovery10::Types::EndpointReferenceType
Address => { value => $some_value }, Address => { value => $some_value },
ReferenceParameters => { # WSDiscovery::Types::ReferenceParametersType ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType
}, },
Metadata => { # WSDiscovery::Types::MetadataType ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType
}, },
PortType => { value => $some_value },
ServiceName => { value => $some_value },
}, },
Types => $some_value, # QNameListType Types => $some_value, # QNameListType
Scopes => { value => $some_value }, Scopes => { value => $some_value },

12
onvif/proxy/lib/WSDiscovery/Elements/RelatesTo.pm → onvif/proxy/lib/WSDiscovery10/Elements/RelatesTo.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Elements::RelatesTo; package WSDiscovery10::Elements::RelatesTo;
use strict; use strict;
use warnings; use warnings;
{ # BLOCK to scope variables { # BLOCK to scope variables
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' } sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' }
__PACKAGE__->__set_name('RelatesTo'); __PACKAGE__->__set_name('RelatesTo');
__PACKAGE__->__set_nillable(); __PACKAGE__->__set_nillable();
@ -14,7 +14,7 @@ __PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref(); __PACKAGE__->__set_ref();
use base qw( use base qw(
SOAP::WSDL::XSD::Typelib::Element SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::RelatesToType WSDiscovery10::Types::Relationship
); );
} }
@ -26,12 +26,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Elements::RelatesTo WSDiscovery10::Elements::RelatesTo
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined element Perl data type class for the XML Schema defined element
RelatesTo from the namespace http://www.w3.org/2005/08/addressing. RelatesTo from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing.
@ -43,7 +43,7 @@ RelatesTo from the namespace http://www.w3.org/2005/08/addressing.
=head2 new =head2 new
my $element = WSDiscovery::Elements::RelatesTo->new($data); my $element = WSDiscovery10::Elements::RelatesTo->new($data);
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():

14
onvif/proxy/lib/WSDiscovery/Elements/ProblemIRI.pm → onvif/proxy/lib/WSDiscovery10/Elements/ReplyAfter.pm
View File

@ -1,20 +1,20 @@
package WSDiscovery::Elements::ProblemIRI; package WSDiscovery10::Elements::ReplyAfter;
use strict; use strict;
use warnings; use warnings;
{ # BLOCK to scope variables { # BLOCK to scope variables
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' } sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' }
__PACKAGE__->__set_name('ProblemIRI'); __PACKAGE__->__set_name('ReplyAfter');
__PACKAGE__->__set_nillable(); __PACKAGE__->__set_nillable();
__PACKAGE__->__set_minOccurs(); __PACKAGE__->__set_minOccurs();
__PACKAGE__->__set_maxOccurs(); __PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref(); __PACKAGE__->__set_ref();
use base qw( use base qw(
SOAP::WSDL::XSD::Typelib::Element SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::AttributedURIType WSDiscovery10::Types::ReplyAfterType
); );
} }
@ -26,12 +26,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Elements::ProblemIRI WSDiscovery10::Elements::ReplyAfter
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined element Perl data type class for the XML Schema defined element
ProblemIRI from the namespace http://www.w3.org/2005/08/addressing. ReplyAfter from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing.
@ -43,7 +43,7 @@ ProblemIRI from the namespace http://www.w3.org/2005/08/addressing.
=head2 new =head2 new
my $element = WSDiscovery::Elements::ProblemIRI->new($data); my $element = WSDiscovery10::Elements::ReplyAfter->new($data);
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():

65
onvif/proxy/lib/WSDiscovery10/Elements/ReplyTo.pm Normal file
View File

@ -0,0 +1,65 @@
package WSDiscovery10::Elements::ReplyTo;
use strict;
use warnings;
{ # BLOCK to scope variables
sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' }
__PACKAGE__->__set_name('ReplyTo');
__PACKAGE__->__set_nillable();
__PACKAGE__->__set_minOccurs();
__PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref();
use base qw(
SOAP::WSDL::XSD::Typelib::Element
WSDiscovery10::Types::EndpointReferenceType
);
}
1;
=pod
=head1 NAME
WSDiscovery10::Elements::ReplyTo
=head1 DESCRIPTION
Perl data type class for the XML Schema defined element
ReplyTo from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing.
=head1 METHODS
=head2 new
my $element = WSDiscovery10::Elements::ReplyTo->new($data);
Constructor. The following data structure may be passed to new():
{ # WSDiscovery10::Types::EndpointReferenceType
Address => { value => $some_value },
ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType
},
ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType
},
PortType => { value => $some_value },
ServiceName => { value => $some_value },
},
=head1 AUTHOR
Generated by SOAP::WSDL
=cut

67
onvif/proxy/lib/WSDiscovery10/Elements/Resolve.pm Normal file
View File

@ -0,0 +1,67 @@
package WSDiscovery10::Elements::Resolve;
use strict;
use warnings;
{ # BLOCK to scope variables
sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }
__PACKAGE__->__set_name('Resolve');
__PACKAGE__->__set_nillable();
__PACKAGE__->__set_minOccurs();
__PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref();
use base qw(
SOAP::WSDL::XSD::Typelib::Element
WSDiscovery10::Types::ResolveType
);
}
1;
=pod
=head1 NAME
WSDiscovery10::Elements::Resolve
=head1 DESCRIPTION
Perl data type class for the XML Schema defined element
Resolve from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
=head1 METHODS
=head2 new
my $element = WSDiscovery10::Elements::Resolve->new($data);
Constructor. The following data structure may be passed to new():
{ # WSDiscovery10::Types::ResolveType
EndpointReference => { # WSDiscovery10::Types::EndpointReferenceType
Address => { value => $some_value },
ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType
},
ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType
},
PortType => { value => $some_value },
ServiceName => { value => $some_value },
},
},
=head1 AUTHOR
Generated by SOAP::WSDL
=cut

24
onvif/proxy/lib/WSDiscovery/Elements/ResolveMatches.pm → onvif/proxy/lib/WSDiscovery10/Elements/ResolveMatches.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Elements::ResolveMatches; package WSDiscovery10::Elements::ResolveMatches;
use strict; use strict;
use warnings; use warnings;
{ # BLOCK to scope variables { # BLOCK to scope variables
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' } sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }
__PACKAGE__->__set_name('ResolveMatches'); __PACKAGE__->__set_name('ResolveMatches');
__PACKAGE__->__set_nillable(); __PACKAGE__->__set_nillable();
@ -14,7 +14,7 @@ __PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref(); __PACKAGE__->__set_ref();
use base qw( use base qw(
SOAP::WSDL::XSD::Typelib::Element SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::ResolveMatchesType WSDiscovery10::Types::ResolveMatchesType
); );
} }
@ -26,12 +26,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Elements::ResolveMatches WSDiscovery10::Elements::ResolveMatches
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined element Perl data type class for the XML Schema defined element
ResolveMatches from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. ResolveMatches from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -43,18 +43,20 @@ ResolveMatches from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/
=head2 new =head2 new
my $element = WSDiscovery::Elements::ResolveMatches->new($data); my $element = WSDiscovery10::Elements::ResolveMatches->new($data);
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::ResolveMatchesType { # WSDiscovery10::Types::ResolveMatchesType
ResolveMatch => { # WSDiscovery::Types::ResolveMatchType ResolveMatch => { # WSDiscovery10::Types::ResolveMatchType
EndpointReference => { # WSDiscovery::Types::EndpointReferenceType EndpointReference => { # WSDiscovery10::Types::EndpointReferenceType
Address => { value => $some_value }, Address => { value => $some_value },
ReferenceParameters => { # WSDiscovery::Types::ReferenceParametersType ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType
}, },
Metadata => { # WSDiscovery::Types::MetadataType ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType
}, },
PortType => { value => $some_value },
ServiceName => { value => $some_value },
}, },
Types => $some_value, # QNameListType Types => $some_value, # QNameListType
Scopes => { value => $some_value }, Scopes => { value => $some_value },

12
onvif/proxy/lib/WSDiscovery/Elements/RetryAfter.pm → onvif/proxy/lib/WSDiscovery10/Elements/RetryAfter.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Elements::RetryAfter; package WSDiscovery10::Elements::RetryAfter;
use strict; use strict;
use warnings; use warnings;
{ # BLOCK to scope variables { # BLOCK to scope variables
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' } sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' }
__PACKAGE__->__set_name('RetryAfter'); __PACKAGE__->__set_name('RetryAfter');
__PACKAGE__->__set_nillable(); __PACKAGE__->__set_nillable();
@ -14,7 +14,7 @@ __PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref(); __PACKAGE__->__set_ref();
use base qw( use base qw(
SOAP::WSDL::XSD::Typelib::Element SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::AttributedUnsignedLongType WSDiscovery10::Types::RetryAfterType
); );
} }
@ -26,12 +26,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Elements::RetryAfter WSDiscovery10::Elements::RetryAfter
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined element Perl data type class for the XML Schema defined element
RetryAfter from the namespace http://www.w3.org/2005/08/addressing. RetryAfter from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing.
@ -43,7 +43,7 @@ RetryAfter from the namespace http://www.w3.org/2005/08/addressing.
=head2 new =head2 new
my $element = WSDiscovery::Elements::RetryAfter->new($data); my $element = WSDiscovery10::Elements::RetryAfter->new($data);
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():

12
onvif/proxy/lib/WSDiscovery/Elements/Scopes.pm → onvif/proxy/lib/WSDiscovery10/Elements/Scopes.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Elements::Scopes; package WSDiscovery10::Elements::Scopes;
use strict; use strict;
use warnings; use warnings;
{ # BLOCK to scope variables { # BLOCK to scope variables
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' } sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }
__PACKAGE__->__set_name('Scopes'); __PACKAGE__->__set_name('Scopes');
__PACKAGE__->__set_nillable(); __PACKAGE__->__set_nillable();
@ -14,7 +14,7 @@ __PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref(); __PACKAGE__->__set_ref();
use base qw( use base qw(
SOAP::WSDL::XSD::Typelib::Element SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::ScopesType WSDiscovery10::Types::ScopesType
); );
} }
@ -26,12 +26,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Elements::Scopes WSDiscovery10::Elements::Scopes
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined element Perl data type class for the XML Schema defined element
Scopes from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. Scopes from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -43,7 +43,7 @@ Scopes from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01.
=head2 new =head2 new
my $element = WSDiscovery::Elements::Scopes->new($data); my $element = WSDiscovery10::Elements::Scopes->new($data);
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():

16
onvif/proxy/lib/WSDiscovery/Elements/Security.pm → onvif/proxy/lib/WSDiscovery10/Elements/Security.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Elements::Security; package WSDiscovery10::Elements::Security;
use strict; use strict;
use warnings; use warnings;
{ # BLOCK to scope variables { # BLOCK to scope variables
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' } sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }
__PACKAGE__->__set_name('Security'); __PACKAGE__->__set_name('Security');
__PACKAGE__->__set_nillable(); __PACKAGE__->__set_nillable();
@ -14,7 +14,7 @@ __PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref(); __PACKAGE__->__set_ref();
use base qw( use base qw(
SOAP::WSDL::XSD::Typelib::Element SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::SecurityType WSDiscovery10::Types::SecurityType
); );
} }
@ -26,12 +26,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Elements::Security WSDiscovery10::Elements::Security
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined element Perl data type class for the XML Schema defined element
Security from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. Security from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -43,12 +43,12 @@ Security from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/0
=head2 new =head2 new
my $element = WSDiscovery::Elements::Security->new($data); my $element = WSDiscovery10::Elements::Security->new($data);
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::SecurityType { # WSDiscovery10::Types::SecurityType
Sig => { # WSDiscovery::Types::SigType Sig => { # WSDiscovery10::Types::SigType
}, },
}, },

14
onvif/proxy/lib/WSDiscovery/Elements/Sig.pm → onvif/proxy/lib/WSDiscovery10/Elements/Sig.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Elements::Sig; package WSDiscovery10::Elements::Sig;
use strict; use strict;
use warnings; use warnings;
{ # BLOCK to scope variables { # BLOCK to scope variables
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' } sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }
__PACKAGE__->__set_name('Sig'); __PACKAGE__->__set_name('Sig');
__PACKAGE__->__set_nillable(); __PACKAGE__->__set_nillable();
@ -14,7 +14,7 @@ __PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref(); __PACKAGE__->__set_ref();
use base qw( use base qw(
SOAP::WSDL::XSD::Typelib::Element SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::SigType WSDiscovery10::Types::SigType
); );
} }
@ -26,12 +26,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Elements::Sig WSDiscovery10::Elements::Sig
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined element Perl data type class for the XML Schema defined element
Sig from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. Sig from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -43,11 +43,11 @@ Sig from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01.
=head2 new =head2 new
my $element = WSDiscovery::Elements::Sig->new($data); my $element = WSDiscovery10::Elements::Sig->new($data);
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::SigType { # WSDiscovery10::Types::SigType
}, },
=head1 AUTHOR =head1 AUTHOR

12
onvif/proxy/lib/WSDiscovery/Elements/SupportedMatchingRules.pm → onvif/proxy/lib/WSDiscovery10/Elements/SupportedMatchingRules.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Elements::SupportedMatchingRules; package WSDiscovery10::Elements::SupportedMatchingRules;
use strict; use strict;
use warnings; use warnings;
{ # BLOCK to scope variables { # BLOCK to scope variables
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' } sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }
__PACKAGE__->__set_name('SupportedMatchingRules'); __PACKAGE__->__set_name('SupportedMatchingRules');
__PACKAGE__->__set_nillable(); __PACKAGE__->__set_nillable();
@ -14,7 +14,7 @@ __PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref(); __PACKAGE__->__set_ref();
use base qw( use base qw(
SOAP::WSDL::XSD::Typelib::Element SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::UriListType WSDiscovery10::Types::UriListType
); );
} }
@ -26,12 +26,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Elements::SupportedMatchingRules WSDiscovery10::Elements::SupportedMatchingRules
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined element Perl data type class for the XML Schema defined element
SupportedMatchingRules from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. SupportedMatchingRules from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -43,7 +43,7 @@ SupportedMatchingRules from the namespace http://docs.oasis-open.org/ws-dd/ns/di
=head2 new =head2 new
my $element = WSDiscovery::Elements::SupportedMatchingRules->new($data); my $element = WSDiscovery10::Elements::SupportedMatchingRules->new($data);
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():

12
onvif/proxy/lib/WSDiscovery/Elements/To.pm → onvif/proxy/lib/WSDiscovery10/Elements/To.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Elements::To; package WSDiscovery10::Elements::To;
use strict; use strict;
use warnings; use warnings;
{ # BLOCK to scope variables { # BLOCK to scope variables
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' } sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' }
__PACKAGE__->__set_name('To'); __PACKAGE__->__set_name('To');
__PACKAGE__->__set_nillable(); __PACKAGE__->__set_nillable();
@ -14,7 +14,7 @@ __PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref(); __PACKAGE__->__set_ref();
use base qw( use base qw(
SOAP::WSDL::XSD::Typelib::Element SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::AttributedURIType WSDiscovery10::Types::AttributedURI
); );
} }
@ -26,12 +26,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Elements::To WSDiscovery10::Elements::To
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined element Perl data type class for the XML Schema defined element
To from the namespace http://www.w3.org/2005/08/addressing. To from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing.
@ -43,7 +43,7 @@ To from the namespace http://www.w3.org/2005/08/addressing.
=head2 new =head2 new
my $element = WSDiscovery::Elements::To->new($data); my $element = WSDiscovery10::Elements::To->new($data);
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():

12
onvif/proxy/lib/WSDiscovery/Elements/Types.pm → onvif/proxy/lib/WSDiscovery10/Elements/Types.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Elements::Types; package WSDiscovery10::Elements::Types;
use strict; use strict;
use warnings; use warnings;
{ # BLOCK to scope variables { # BLOCK to scope variables
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' } sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }
__PACKAGE__->__set_name('Types'); __PACKAGE__->__set_name('Types');
__PACKAGE__->__set_nillable(); __PACKAGE__->__set_nillable();
@ -14,7 +14,7 @@ __PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref(); __PACKAGE__->__set_ref();
use base qw( use base qw(
SOAP::WSDL::XSD::Typelib::Element SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::QNameListType WSDiscovery10::Types::QNameListType
); );
} }
@ -26,12 +26,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Elements::Types WSDiscovery10::Elements::Types
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined element Perl data type class for the XML Schema defined element
Types from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. Types from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -43,7 +43,7 @@ Types from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01.
=head2 new =head2 new
my $element = WSDiscovery::Elements::Types->new($data); my $element = WSDiscovery10::Elements::Types->new($data);
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():

12
onvif/proxy/lib/WSDiscovery/Elements/XAddrs.pm → onvif/proxy/lib/WSDiscovery10/Elements/XAddrs.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Elements::XAddrs; package WSDiscovery10::Elements::XAddrs;
use strict; use strict;
use warnings; use warnings;
{ # BLOCK to scope variables { # BLOCK to scope variables
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' } sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }
__PACKAGE__->__set_name('XAddrs'); __PACKAGE__->__set_name('XAddrs');
__PACKAGE__->__set_nillable(); __PACKAGE__->__set_nillable();
@ -14,7 +14,7 @@ __PACKAGE__->__set_maxOccurs();
__PACKAGE__->__set_ref(); __PACKAGE__->__set_ref();
use base qw( use base qw(
SOAP::WSDL::XSD::Typelib::Element SOAP::WSDL::XSD::Typelib::Element
WSDiscovery::Types::UriListType WSDiscovery10::Types::UriListType
); );
} }
@ -26,12 +26,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Elements::XAddrs WSDiscovery10::Elements::XAddrs
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined element Perl data type class for the XML Schema defined element
XAddrs from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. XAddrs from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -43,7 +43,7 @@ XAddrs from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01.
=head2 new =head2 new
my $element = WSDiscovery::Elements::XAddrs->new($data); my $element = WSDiscovery10::Elements::XAddrs->new($data);
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():

24
onvif/proxy/lib/WSDiscovery/Interfaces/WSDiscovery/WSDiscoveryPort.pm → onvif/proxy/lib/WSDiscovery10/Interfaces/WSDiscovery/WSDiscoveryPort.pm
View File

@ -1,4 +1,4 @@
package WSDiscovery::Interfaces::WSDiscovery::WSDiscoveryPort; package WSDiscovery10::Interfaces::WSDiscovery::WSDiscoveryPort;
use strict; use strict;
use warnings; use warnings;
use Class::Std::Fast::Storable; use Class::Std::Fast::Storable;
@ -6,12 +6,12 @@ use Scalar::Util qw(blessed);
use base qw(SOAP::WSDL::Client::Base); use base qw(SOAP::WSDL::Client::Base);
# only load if it hasn't been loaded before # only load if it hasn't been loaded before
require WSDiscovery::Typemaps::WSDiscovery require WSDiscovery10::Typemaps::WSDiscovery
if not WSDiscovery::Typemaps::WSDiscovery->can('get_class'); if not WSDiscovery10::Typemaps::WSDiscovery->can('get_class');
sub START { sub START {
$_[0]->set_proxy('soap.udp://239.255.255.250:3702/') if not $_[2]->{proxy}; $_[0]->set_proxy('soap.udp://239.255.255.250:3702/') if not $_[2]->{proxy};
$_[0]->set_class_resolver('WSDiscovery::Typemaps::WSDiscovery') $_[0]->set_class_resolver('WSDiscovery10::Typemaps::WSDiscovery')
if not $_[2]->{class_resolver}; if not $_[2]->{class_resolver};
$_[0]->set_prefix($_[2]->{use_prefix}) if exists $_[2]->{use_prefix}; $_[0]->set_prefix($_[2]->{use_prefix}) if exists $_[2]->{use_prefix};
@ -22,7 +22,7 @@ sub ProbeOp {
die "ProbeOp must be called as object method (\$self is <$self>)" if not blessed($self); die "ProbeOp must be called as object method (\$self is <$self>)" if not blessed($self);
return $self->SUPER::call({ return $self->SUPER::call({
operation => 'ProbeOp', operation => 'ProbeOp',
soap_action => 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01/Probe', soap_action => 'http://schemas.xmlsoap.org/ws/2005/04/discovery/Probe',
style => 'document', style => 'document',
body => { body => {
@ -30,7 +30,7 @@ sub ProbeOp {
'use' => 'literal', 'use' => 'literal',
namespace => 'http://schemas.xmlsoap.org/wsdl/soap/', namespace => 'http://schemas.xmlsoap.org/wsdl/soap/',
encodingStyle => '', encodingStyle => '',
parts => [qw( WSDiscovery::Elements::Probe )], parts => [qw( WSDiscovery10::Elements::Probe )],
}, },
header => { header => {
@ -55,12 +55,12 @@ __END__
=head1 NAME =head1 NAME
WSDiscovery::Interfaces::WSDiscovery::WSDiscoveryPort - SOAP Interface for the WSDiscovery Web Service WSDiscovery10::Interfaces::WSDiscovery::WSDiscoveryPort - SOAP Interface for the WSDiscovery Web Service
=head1 SYNOPSIS =head1 SYNOPSIS
use WSDiscovery::Interfaces::WSDiscovery::WSDiscoveryPort; use WSDiscovery10::Interfaces::WSDiscovery::WSDiscoveryPort;
my $interface = WSDiscovery::Interfaces::WSDiscovery::WSDiscoveryPort->new(); my $interface = WSDiscovery10::Interfaces::WSDiscovery::WSDiscoveryPort->new();
my $response; my $response;
$response = $interface->ProbeOp(); $response = $interface->ProbeOp();
@ -114,9 +114,9 @@ hash refs. See the respective class' documentation for additional information.
Returns a L<WSDiscovery::Elements::ProbeMatches|WSDiscovery::Elements::ProbeMatches> object. Returns a L<WSDiscovery10::Elements::ProbeMatches|WSDiscovery10::Elements::ProbeMatches> object.
$response = $interface->ProbeOp( { # WSDiscovery::Types::ProbeType $response = $interface->ProbeOp( { # WSDiscovery10::Types::ProbeType
Types => $some_value, # QNameListType Types => $some_value, # QNameListType
Scopes => { value => $some_value }, Scopes => { value => $some_value },
},, },,
@ -126,6 +126,6 @@ Returns a L<WSDiscovery::Elements::ProbeMatches|WSDiscovery::Elements::ProbeMatc
=head1 AUTHOR =head1 AUTHOR
Generated by SOAP::WSDL on Wed Jul 2 11:45:24 2014 Generated by SOAP::WSDL on Sat Mar 19 18:11:58 2016
=cut =cut

56
onvif/proxy/lib/WSDiscovery10/Typemaps/WSDiscovery.pm Normal file
View File

@ -0,0 +1,56 @@
package WSDiscovery10::Typemaps::WSDiscovery;
use strict;
use warnings;
our $typemap_1 = {
'Fault/faultactor' => 'SOAP::WSDL::XSD::Typelib::Builtin::token',
'Fault' => 'SOAP::WSDL::SOAP::Typelib::Fault11',
'Probe/Types' => 'WSDiscovery10::Types::QNameListType',
'ProbeMatches/ProbeMatch/EndpointReference/ReferenceParameters' => 'WSDiscovery10::Types::ReferenceParametersType',
'Fault/faultstring' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
'Fault/detail' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
'Probe/Scopes' => 'WSDiscovery10::Types::ScopesType',
'Fault/faultcode' => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
'ProbeMatches/ProbeMatch' => 'WSDiscovery10::Types::ProbeMatchType',
'ProbeMatches/ProbeMatch/MetadataVersion' => 'SOAP::WSDL::XSD::Typelib::Builtin::unsignedInt',
'ProbeMatches/ProbeMatch/Scopes' => 'WSDiscovery10::Types::ScopesType',
'ProbeMatches' => 'WSDiscovery10::Elements::ProbeMatches',
'ProbeMatches/ProbeMatch/EndpointReference/ServiceName' => 'WSDiscovery10::Types::ServiceNameType',
'Probe' => 'WSDiscovery10::Elements::Probe',
'ProbeMatches/ProbeMatch/EndpointReference/Address' => 'WSDiscovery10::Types::AttributedURI',
'ProbeMatches/ProbeMatch/XAddrs' => 'WSDiscovery10::Types::UriListType',
'ProbeMatches/ProbeMatch/Types' => 'WSDiscovery10::Types::QNameListType',
'ProbeMatches/ProbeMatch/EndpointReference' => 'WSDiscovery10::Types::EndpointReferenceType',
'ProbeMatches/ProbeMatch/EndpointReference/ReferenceProperties' => 'WSDiscovery10::Types::ReferencePropertiesType',
'ProbeMatches/ProbeMatch/EndpointReference/PortType' => 'WSDiscovery10::Types::AttributedQName'
};
;
sub get_class {
my $name = join '/', @{ $_[1] };
return $typemap_1->{ $name };
}
sub get_typemap {
return $typemap_1;
}
1;
__END__
__END__
=pod
=head1 NAME
WSDiscovery10::Typemaps::WSDiscovery - typemap for WSDiscovery
=head1 DESCRIPTION
Typemap created by SOAP::WSDL for map-based SOAP message parsers.
=cut

16
onvif/proxy/lib/WSDiscovery/Types/AppSequenceType.pm → onvif/proxy/lib/WSDiscovery10/Types/AppSequenceType.pm
View File

@ -1,13 +1,13 @@
package WSDiscovery::Types::AppSequenceType; package WSDiscovery10::Types::AppSequenceType;
use strict; use strict;
use warnings; use warnings;
__PACKAGE__->_set_element_form_qualified(0); __PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' }; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' };
our $XML_ATTRIBUTE_CLASS = 'WSDiscovery::Types::AppSequenceType::_AppSequenceType::XmlAttr'; our $XML_ATTRIBUTE_CLASS = 'WSDiscovery10::Types::AppSequenceType::_AppSequenceType::XmlAttr';
sub __get_attr_class { sub __get_attr_class {
return $XML_ATTRIBUTE_CLASS; return $XML_ATTRIBUTE_CLASS;
@ -15,7 +15,7 @@ sub __get_attr_class {
use base qw(); use base qw();
package WSDiscovery::Types::AppSequenceType::_AppSequenceType::XmlAttr; package WSDiscovery10::Types::AppSequenceType::_AppSequenceType::XmlAttr;
use base qw(SOAP::WSDL::XSD::Typelib::AttributeSet); use base qw(SOAP::WSDL::XSD::Typelib::AttributeSet);
{ # BLOCK to scope variables { # BLOCK to scope variables
@ -57,12 +57,12 @@ __PACKAGE__->_factory(
=head1 NAME =head1 NAME
WSDiscovery::Types::AppSequenceType WSDiscovery10::Types::AppSequenceType
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType Perl data type class for the XML Schema defined complexType
AppSequenceType from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. AppSequenceType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -87,7 +87,7 @@ methods:
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::AppSequenceType { # WSDiscovery10::Types::AppSequenceType
}, },
@ -99,7 +99,7 @@ See the correspondent WSDL/XML Schema if in question.
This class has additional attributes, accessibly via the C<attr()> method. This class has additional attributes, accessibly via the C<attr()> method.
attr() returns an object of the class WSDiscovery::Types::AppSequenceType::_AppSequenceType::XmlAttr. attr() returns an object of the class WSDiscovery10::Types::AppSequenceType::_AppSequenceType::XmlAttr.
The following attributes can be accessed on this object via the corresponding The following attributes can be accessed on this object via the corresponding
get_/set_ methods: get_/set_ methods:

8
onvif/proxy/lib/WSDiscovery/Types/AttributedQNameType.pm → onvif/proxy/lib/WSDiscovery10/Types/AttributedQName.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Types::AttributedQNameType; package WSDiscovery10::Types::AttributedQName;
use strict; use strict;
use warnings; use warnings;
__PACKAGE__->_set_element_form_qualified(0); __PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' }; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' };
our $XML_ATTRIBUTE_CLASS; our $XML_ATTRIBUTE_CLASS;
undef $XML_ATTRIBUTE_CLASS; undef $XML_ATTRIBUTE_CLASS;
@ -30,12 +30,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Types::AttributedQNameType WSDiscovery10::Types::AttributedQName
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType Perl data type class for the XML Schema defined complexType
AttributedQNameType from the namespace http://www.w3.org/2005/08/addressing. AttributedQName from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing.

8
onvif/proxy/lib/WSDiscovery/Types/AttributedURIType.pm → onvif/proxy/lib/WSDiscovery10/Types/AttributedURI.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Types::AttributedURIType; package WSDiscovery10::Types::AttributedURI;
use strict; use strict;
use warnings; use warnings;
__PACKAGE__->_set_element_form_qualified(0); __PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' }; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' };
our $XML_ATTRIBUTE_CLASS; our $XML_ATTRIBUTE_CLASS;
undef $XML_ATTRIBUTE_CLASS; undef $XML_ATTRIBUTE_CLASS;
@ -30,12 +30,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Types::AttributedURIType WSDiscovery10::Types::AttributedURI
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType Perl data type class for the XML Schema defined complexType
AttributedURIType from the namespace http://www.w3.org/2005/08/addressing. AttributedURI from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing.

28
onvif/proxy/lib/WSDiscovery/Types/ByeType.pm → onvif/proxy/lib/WSDiscovery10/Types/ByeType.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Types::ByeType; package WSDiscovery10::Types::ByeType;
use strict; use strict;
use warnings; use warnings;
__PACKAGE__->_set_element_form_qualified(0); __PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' }; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' };
our $XML_ATTRIBUTE_CLASS; our $XML_ATTRIBUTE_CLASS;
undef $XML_ATTRIBUTE_CLASS; undef $XML_ATTRIBUTE_CLASS;
@ -43,15 +43,15 @@ __PACKAGE__->_factory(
'MetadataVersion' => \%MetadataVersion_of, 'MetadataVersion' => \%MetadataVersion_of,
}, },
{ {
'EndpointReference' => 'WSDiscovery::Elements::EndpointReference', 'EndpointReference' => 'WSDiscovery10::Elements::EndpointReference',
'Types' => 'WSDiscovery::Elements::Types', 'Types' => 'WSDiscovery10::Elements::Types',
'Scopes' => 'WSDiscovery::Elements::Scopes', 'Scopes' => 'WSDiscovery10::Elements::Scopes',
'XAddrs' => 'WSDiscovery::Elements::XAddrs', 'XAddrs' => 'WSDiscovery10::Elements::XAddrs',
'MetadataVersion' => 'WSDiscovery::Elements::MetadataVersion', 'MetadataVersion' => 'WSDiscovery10::Elements::MetadataVersion',
}, },
{ {
@ -80,12 +80,12 @@ __PACKAGE__->_factory(
=head1 NAME =head1 NAME
WSDiscovery::Types::ByeType WSDiscovery10::Types::ByeType
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType Perl data type class for the XML Schema defined complexType
ByeType from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. ByeType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -155,13 +155,15 @@ perl code only, XML output uses the original name:
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::ByeType { # WSDiscovery10::Types::ByeType
EndpointReference => { # WSDiscovery::Types::EndpointReferenceType EndpointReference => { # WSDiscovery10::Types::EndpointReferenceType
Address => { value => $some_value }, Address => { value => $some_value },
ReferenceParameters => { # WSDiscovery::Types::ReferenceParametersType ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType
}, },
Metadata => { # WSDiscovery::Types::MetadataType ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType
}, },
PortType => { value => $some_value },
ServiceName => { value => $some_value },
}, },
Types => $some_value, # QNameListType Types => $some_value, # QNameListType
Scopes => { value => $some_value }, Scopes => { value => $some_value },

141
onvif/proxy/lib/WSDiscovery10/Types/EndpointReferenceType.pm Normal file
View File

@ -0,0 +1,141 @@
package WSDiscovery10::Types::EndpointReferenceType;
use strict;
use warnings;
__PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' };
our $XML_ATTRIBUTE_CLASS;
undef $XML_ATTRIBUTE_CLASS;
sub __get_attr_class {
return $XML_ATTRIBUTE_CLASS;
}
use Class::Std::Fast::Storable constructor => 'none';
use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
Class::Std::initialize();
{ # BLOCK to scope variables
my %Address_of :ATTR(:get<Address>);
my %ReferenceProperties_of :ATTR(:get<ReferenceProperties>);
my %ReferenceParameters_of :ATTR(:get<ReferenceParameters>);
my %PortType_of :ATTR(:get<PortType>);
my %ServiceName_of :ATTR(:get<ServiceName>);
__PACKAGE__->_factory(
[ qw( Address
ReferenceProperties
ReferenceParameters
PortType
ServiceName
) ],
{
'Address' => \%Address_of,
'ReferenceProperties' => \%ReferenceProperties_of,
'ReferenceParameters' => \%ReferenceParameters_of,
'PortType' => \%PortType_of,
'ServiceName' => \%ServiceName_of,
},
{
'Address' => 'WSDiscovery10::Types::AttributedURI',
'ReferenceProperties' => 'WSDiscovery10::Types::ReferencePropertiesType',
'ReferenceParameters' => 'WSDiscovery10::Types::ReferenceParametersType',
'PortType' => 'WSDiscovery10::Types::AttributedQName',
'ServiceName' => 'WSDiscovery10::Types::ServiceNameType',
},
{
'Address' => 'Address',
'ReferenceProperties' => 'ReferenceProperties',
'ReferenceParameters' => 'ReferenceParameters',
'PortType' => 'PortType',
'ServiceName' => 'ServiceName',
}
);
} # end BLOCK
1;
=pod
=head1 NAME
WSDiscovery10::Types::EndpointReferenceType
=head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType
EndpointReferenceType from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing.
If "Policy" elements from namespace "http://schemas.xmlsoap.org/ws/2002/12/policy#policy" are used, they must appear first (before any extensibility elements).
=head2 PROPERTIES
The following properties may be accessed using get_PROPERTY / set_PROPERTY
methods:
=over
=item * Address
=item * ReferenceProperties
=item * ReferenceParameters
=item * PortType
=item * ServiceName
=back
=head1 METHODS
=head2 new
Constructor. The following data structure may be passed to new():
{ # WSDiscovery10::Types::EndpointReferenceType
Address => { value => $some_value },
ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType
},
ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType
},
PortType => { value => $some_value },
ServiceName => { value => $some_value },
},
=head1 AUTHOR
Generated by SOAP::WSDL
=cut

6
onvif/proxy/lib/WSDiscovery/Types/FaultCodeOpenType.pm → onvif/proxy/lib/WSDiscovery10/Types/FaultCodeOpenType.pm
View File

@ -1,8 +1,8 @@
package WSDiscovery::Types::FaultCodeOpenType; package WSDiscovery10::Types::FaultCodeOpenType;
use strict; use strict;
use warnings; use warnings;
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01'}; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery'};
# derivation by union # derivation by union
# union is not fully supported yet - value space constraints are not # union is not fully supported yet - value space constraints are not
@ -31,7 +31,7 @@ __END__
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined simpleType Perl data type class for the XML Schema defined simpleType
FaultCodeOpenType from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. FaultCodeOpenType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.

6
onvif/proxy/lib/WSDiscovery/Types/FaultCodeType.pm → onvif/proxy/lib/WSDiscovery10/Types/FaultCodeType.pm
View File

@ -1,8 +1,8 @@
package WSDiscovery::Types::FaultCodeType; package WSDiscovery10::Types::FaultCodeType;
use strict; use strict;
use warnings; use warnings;
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01'}; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery'};
# derivation by restriction # derivation by restriction
use base qw( use base qw(
@ -23,7 +23,7 @@ __END__
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined simpleType Perl data type class for the XML Schema defined simpleType
FaultCodeType from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. FaultCodeType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.

10
onvif/proxy/lib/WSDiscovery/Types/RelationshipType.pm → onvif/proxy/lib/WSDiscovery10/Types/FaultSubcodeValues.pm
View File

@ -1,12 +1,12 @@
package WSDiscovery::Types::RelationshipType; package WSDiscovery10::Types::FaultSubcodeValues;
use strict; use strict;
use warnings; use warnings;
sub get_xmlns { 'http://www.w3.org/2005/08/addressing'}; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing'};
# derivation by restriction # derivation by restriction
use base qw( use base qw(
SOAP::WSDL::XSD::Typelib::Builtin::anyURI); SOAP::WSDL::XSD::Typelib::Builtin::QName);
@ -23,14 +23,14 @@ __END__
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined simpleType Perl data type class for the XML Schema defined simpleType
RelationshipType from the namespace http://www.w3.org/2005/08/addressing. FaultSubcodeValues from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing.
This clase is derived from This clase is derived from
SOAP::WSDL::XSD::Typelib::Builtin::anyURI SOAP::WSDL::XSD::Typelib::Builtin::QName
. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly . SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
like it's base type. like it's base type.

28
onvif/proxy/lib/WSDiscovery/Types/HelloType.pm → onvif/proxy/lib/WSDiscovery10/Types/HelloType.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Types::HelloType; package WSDiscovery10::Types::HelloType;
use strict; use strict;
use warnings; use warnings;
__PACKAGE__->_set_element_form_qualified(0); __PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' }; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' };
our $XML_ATTRIBUTE_CLASS; our $XML_ATTRIBUTE_CLASS;
undef $XML_ATTRIBUTE_CLASS; undef $XML_ATTRIBUTE_CLASS;
@ -43,15 +43,15 @@ __PACKAGE__->_factory(
'MetadataVersion' => \%MetadataVersion_of, 'MetadataVersion' => \%MetadataVersion_of,
}, },
{ {
'EndpointReference' => 'WSDiscovery::Elements::EndpointReference', 'EndpointReference' => 'WSDiscovery10::Elements::EndpointReference',
'Types' => 'WSDiscovery::Elements::Types', 'Types' => 'WSDiscovery10::Elements::Types',
'Scopes' => 'WSDiscovery::Elements::Scopes', 'Scopes' => 'WSDiscovery10::Elements::Scopes',
'XAddrs' => 'WSDiscovery::Elements::XAddrs', 'XAddrs' => 'WSDiscovery10::Elements::XAddrs',
'MetadataVersion' => 'WSDiscovery::Elements::MetadataVersion', 'MetadataVersion' => 'WSDiscovery10::Elements::MetadataVersion',
}, },
{ {
@ -80,12 +80,12 @@ __PACKAGE__->_factory(
=head1 NAME =head1 NAME
WSDiscovery::Types::HelloType WSDiscovery10::Types::HelloType
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType Perl data type class for the XML Schema defined complexType
HelloType from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. HelloType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -155,13 +155,15 @@ perl code only, XML output uses the original name:
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::HelloType { # WSDiscovery10::Types::HelloType
EndpointReference => { # WSDiscovery::Types::EndpointReferenceType EndpointReference => { # WSDiscovery10::Types::EndpointReferenceType
Address => { value => $some_value }, Address => { value => $some_value },
ReferenceParameters => { # WSDiscovery::Types::ReferenceParametersType ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType
}, },
Metadata => { # WSDiscovery::Types::MetadataType ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType
}, },
PortType => { value => $some_value },
ServiceName => { value => $some_value },
}, },
Types => $some_value, # QNameListType Types => $some_value, # QNameListType
Scopes => { value => $some_value }, Scopes => { value => $some_value },

6
onvif/proxy/lib/WSDiscovery/Types/FaultCodesOpenEnumType.pm → onvif/proxy/lib/WSDiscovery10/Types/OpenRelationshipType.pm
View File

@ -1,8 +1,8 @@
package WSDiscovery::Types::FaultCodesOpenEnumType; package WSDiscovery10::Types::OpenRelationshipType;
use strict; use strict;
use warnings; use warnings;
sub get_xmlns { 'http://www.w3.org/2005/08/addressing'}; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery'};
# derivation by union # derivation by union
# union is not fully supported yet - value space constraints are not # union is not fully supported yet - value space constraints are not
@ -31,7 +31,7 @@ __END__
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined simpleType Perl data type class for the XML Schema defined simpleType
FaultCodesOpenEnumType from the namespace http://www.w3.org/2005/08/addressing. OpenRelationshipType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.

28
onvif/proxy/lib/WSDiscovery/Types/ProbeMatchType.pm → onvif/proxy/lib/WSDiscovery10/Types/ProbeMatchType.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Types::ProbeMatchType; package WSDiscovery10::Types::ProbeMatchType;
use strict; use strict;
use warnings; use warnings;
__PACKAGE__->_set_element_form_qualified(0); __PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' }; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' };
our $XML_ATTRIBUTE_CLASS; our $XML_ATTRIBUTE_CLASS;
undef $XML_ATTRIBUTE_CLASS; undef $XML_ATTRIBUTE_CLASS;
@ -43,15 +43,15 @@ __PACKAGE__->_factory(
'MetadataVersion' => \%MetadataVersion_of, 'MetadataVersion' => \%MetadataVersion_of,
}, },
{ {
'EndpointReference' => 'WSDiscovery::Elements::EndpointReference', 'EndpointReference' => 'WSDiscovery10::Elements::EndpointReference',
'Types' => 'WSDiscovery::Elements::Types', 'Types' => 'WSDiscovery10::Elements::Types',
'Scopes' => 'WSDiscovery::Elements::Scopes', 'Scopes' => 'WSDiscovery10::Elements::Scopes',
'XAddrs' => 'WSDiscovery::Elements::XAddrs', 'XAddrs' => 'WSDiscovery10::Elements::XAddrs',
'MetadataVersion' => 'WSDiscovery::Elements::MetadataVersion', 'MetadataVersion' => 'WSDiscovery10::Elements::MetadataVersion',
}, },
{ {
@ -80,12 +80,12 @@ __PACKAGE__->_factory(
=head1 NAME =head1 NAME
WSDiscovery::Types::ProbeMatchType WSDiscovery10::Types::ProbeMatchType
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType Perl data type class for the XML Schema defined complexType
ProbeMatchType from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. ProbeMatchType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -155,13 +155,15 @@ perl code only, XML output uses the original name:
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::ProbeMatchType { # WSDiscovery10::Types::ProbeMatchType
EndpointReference => { # WSDiscovery::Types::EndpointReferenceType EndpointReference => { # WSDiscovery10::Types::EndpointReferenceType
Address => { value => $some_value }, Address => { value => $some_value },
ReferenceParameters => { # WSDiscovery::Types::ReferenceParametersType ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType
}, },
Metadata => { # WSDiscovery::Types::MetadataType ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType
}, },
PortType => { value => $some_value },
ServiceName => { value => $some_value },
}, },
Types => $some_value, # QNameListType Types => $some_value, # QNameListType
Scopes => { value => $some_value }, Scopes => { value => $some_value },

22
onvif/proxy/lib/WSDiscovery/Types/ProbeMatchesType.pm → onvif/proxy/lib/WSDiscovery10/Types/ProbeMatchesType.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Types::ProbeMatchesType; package WSDiscovery10::Types::ProbeMatchesType;
use strict; use strict;
use warnings; use warnings;
__PACKAGE__->_set_element_form_qualified(0); __PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' }; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' };
our $XML_ATTRIBUTE_CLASS; our $XML_ATTRIBUTE_CLASS;
undef $XML_ATTRIBUTE_CLASS; undef $XML_ATTRIBUTE_CLASS;
@ -31,7 +31,7 @@ __PACKAGE__->_factory(
'ProbeMatch' => \%ProbeMatch_of, 'ProbeMatch' => \%ProbeMatch_of,
}, },
{ {
'ProbeMatch' => 'WSDiscovery::Types::ProbeMatchType', 'ProbeMatch' => 'WSDiscovery10::Types::ProbeMatchType',
}, },
{ {
@ -55,12 +55,12 @@ __PACKAGE__->_factory(
=head1 NAME =head1 NAME
WSDiscovery::Types::ProbeMatchesType WSDiscovery10::Types::ProbeMatchesType
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType Perl data type class for the XML Schema defined complexType
ProbeMatchesType from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. ProbeMatchesType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -88,14 +88,16 @@ methods:
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::ProbeMatchesType { # WSDiscovery10::Types::ProbeMatchesType
ProbeMatch => { # WSDiscovery::Types::ProbeMatchType ProbeMatch => { # WSDiscovery10::Types::ProbeMatchType
EndpointReference => { # WSDiscovery::Types::EndpointReferenceType EndpointReference => { # WSDiscovery10::Types::EndpointReferenceType
Address => { value => $some_value }, Address => { value => $some_value },
ReferenceParameters => { # WSDiscovery::Types::ReferenceParametersType ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType
}, },
Metadata => { # WSDiscovery::Types::MetadataType ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType
}, },
PortType => { value => $some_value },
ServiceName => { value => $some_value },
}, },
Types => $some_value, # QNameListType Types => $some_value, # QNameListType
Scopes => { value => $some_value }, Scopes => { value => $some_value },

14
onvif/proxy/lib/WSDiscovery/Types/ProbeType.pm → onvif/proxy/lib/WSDiscovery10/Types/ProbeType.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Types::ProbeType; package WSDiscovery10::Types::ProbeType;
use strict; use strict;
use warnings; use warnings;
__PACKAGE__->_set_element_form_qualified(0); __PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' }; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' };
our $XML_ATTRIBUTE_CLASS; our $XML_ATTRIBUTE_CLASS;
undef $XML_ATTRIBUTE_CLASS; undef $XML_ATTRIBUTE_CLASS;
@ -34,9 +34,9 @@ __PACKAGE__->_factory(
'Scopes' => \%Scopes_of, 'Scopes' => \%Scopes_of,
}, },
{ {
'Types' => 'WSDiscovery::Elements::Types', 'Types' => 'WSDiscovery10::Elements::Types',
'Scopes' => 'WSDiscovery::Elements::Scopes', 'Scopes' => 'WSDiscovery10::Elements::Scopes',
}, },
{ {
@ -62,12 +62,12 @@ __PACKAGE__->_factory(
=head1 NAME =head1 NAME
WSDiscovery::Types::ProbeType WSDiscovery10::Types::ProbeType
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType Perl data type class for the XML Schema defined complexType
ProbeType from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. ProbeType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -110,7 +110,7 @@ perl code only, XML output uses the original name:
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::ProbeType { # WSDiscovery10::Types::ProbeType
Types => $some_value, # QNameListType Types => $some_value, # QNameListType
Scopes => { value => $some_value }, Scopes => { value => $some_value },
}, },

6
onvif/proxy/lib/WSDiscovery/Types/QNameListType.pm → onvif/proxy/lib/WSDiscovery10/Types/QNameListType.pm
View File

@ -1,8 +1,8 @@
package WSDiscovery::Types::QNameListType; package WSDiscovery10::Types::QNameListType;
use strict; use strict;
use warnings; use warnings;
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01'}; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery'};
# list derivation # list derivation
@ -28,7 +28,7 @@ __END__
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined simpleType Perl data type class for the XML Schema defined simpleType
QNameListType from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. QNameListType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.

10
onvif/proxy/lib/WSDiscovery/Types/ReferenceParametersType.pm → onvif/proxy/lib/WSDiscovery10/Types/ReferenceParametersType.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Types::ReferenceParametersType; package WSDiscovery10::Types::ReferenceParametersType;
use strict; use strict;
use warnings; use warnings;
__PACKAGE__->_set_element_form_qualified(0); __PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' }; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' };
our $XML_ATTRIBUTE_CLASS; our $XML_ATTRIBUTE_CLASS;
undef $XML_ATTRIBUTE_CLASS; undef $XML_ATTRIBUTE_CLASS;
@ -50,12 +50,12 @@ __PACKAGE__->_factory(
=head1 NAME =head1 NAME
WSDiscovery::Types::ReferenceParametersType WSDiscovery10::Types::ReferenceParametersType
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType Perl data type class for the XML Schema defined complexType
ReferenceParametersType from the namespace http://www.w3.org/2005/08/addressing. ReferenceParametersType from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing.
@ -80,7 +80,7 @@ methods:
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::ReferenceParametersType { # WSDiscovery10::Types::ReferenceParametersType
}, },

10
onvif/proxy/lib/WSDiscovery/Types/MetadataType.pm → onvif/proxy/lib/WSDiscovery10/Types/ReferencePropertiesType.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Types::MetadataType; package WSDiscovery10::Types::ReferencePropertiesType;
use strict; use strict;
use warnings; use warnings;
__PACKAGE__->_set_element_form_qualified(0); __PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' }; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' };
our $XML_ATTRIBUTE_CLASS; our $XML_ATTRIBUTE_CLASS;
undef $XML_ATTRIBUTE_CLASS; undef $XML_ATTRIBUTE_CLASS;
@ -50,12 +50,12 @@ __PACKAGE__->_factory(
=head1 NAME =head1 NAME
WSDiscovery::Types::MetadataType WSDiscovery10::Types::ReferencePropertiesType
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType Perl data type class for the XML Schema defined complexType
MetadataType from the namespace http://www.w3.org/2005/08/addressing. ReferencePropertiesType from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing.
@ -80,7 +80,7 @@ methods:
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::MetadataType { # WSDiscovery10::Types::ReferencePropertiesType
}, },

18
onvif/proxy/lib/WSDiscovery/Types/RelatesToType.pm → onvif/proxy/lib/WSDiscovery10/Types/Relationship.pm
View File

@ -1,13 +1,13 @@
package WSDiscovery::Types::RelatesToType; package WSDiscovery10::Types::Relationship;
use strict; use strict;
use warnings; use warnings;
__PACKAGE__->_set_element_form_qualified(0); __PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' }; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' };
our $XML_ATTRIBUTE_CLASS = 'WSDiscovery::Types::RelatesToType::_RelatesToType::XmlAttr'; our $XML_ATTRIBUTE_CLASS = 'WSDiscovery10::Types::Relationship::_Relationship::XmlAttr';
sub __get_attr_class { sub __get_attr_class {
return $XML_ATTRIBUTE_CLASS; return $XML_ATTRIBUTE_CLASS;
@ -18,7 +18,7 @@ use base qw(
SOAP::WSDL::XSD::Typelib::Builtin::anyURI SOAP::WSDL::XSD::Typelib::Builtin::anyURI
); );
package WSDiscovery::Types::RelatesToType::_RelatesToType::XmlAttr; package WSDiscovery10::Types::Relationship::_Relationship::XmlAttr;
use base qw(SOAP::WSDL::XSD::Typelib::AttributeSet); use base qw(SOAP::WSDL::XSD::Typelib::AttributeSet);
{ # BLOCK to scope variables { # BLOCK to scope variables
@ -34,7 +34,7 @@ __PACKAGE__->_factory(
RelationshipType => \%RelationshipType_of, RelationshipType => \%RelationshipType_of,
}, },
{ {
RelationshipType => 'WSDiscovery::Types::RelationshipTypeOpenEnum', RelationshipType => 'SOAP::WSDL::XSD::Typelib::Builtin::QName',
} }
); );
@ -50,12 +50,12 @@ __PACKAGE__->_factory(
=head1 NAME =head1 NAME
WSDiscovery::Types::RelatesToType WSDiscovery10::Types::Relationship
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType Perl data type class for the XML Schema defined complexType
RelatesToType from the namespace http://www.w3.org/2005/08/addressing. Relationship from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing.
@ -91,7 +91,7 @@ See the correspondent WSDL/XML Schema if in question.
This class has additional attributes, accessibly via the C<attr()> method. This class has additional attributes, accessibly via the C<attr()> method.
attr() returns an object of the class WSDiscovery::Types::RelatesToType::_RelatesToType::XmlAttr. attr() returns an object of the class WSDiscovery10::Types::Relationship::_Relationship::XmlAttr.
The following attributes can be accessed on this object via the corresponding The following attributes can be accessed on this object via the corresponding
get_/set_ methods: get_/set_ methods:
@ -102,7 +102,7 @@ get_/set_ methods:
This attribute is of type L<WSDiscovery::Types::RelationshipTypeOpenEnum|WSDiscovery::Types::RelationshipTypeOpenEnum>. This attribute is of type L<SOAP::WSDL::XSD::Typelib::Builtin::QName|SOAP::WSDL::XSD::Typelib::Builtin::QName>.
=back =back

6
onvif/proxy/lib/WSDiscovery/Types/FaultCodesType.pm → onvif/proxy/lib/WSDiscovery10/Types/RelationshipType.pm
View File

@ -1,8 +1,8 @@
package WSDiscovery::Types::FaultCodesType; package WSDiscovery10::Types::RelationshipType;
use strict; use strict;
use warnings; use warnings;
sub get_xmlns { 'http://www.w3.org/2005/08/addressing'}; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery'};
# derivation by restriction # derivation by restriction
use base qw( use base qw(
@ -23,7 +23,7 @@ __END__
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined simpleType Perl data type class for the XML Schema defined simpleType
FaultCodesType from the namespace http://www.w3.org/2005/08/addressing. RelationshipType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.

65
onvif/proxy/lib/WSDiscovery10/Types/RelationshipTypeValues.pm Normal file
View File

@ -0,0 +1,65 @@
package WSDiscovery10::Types::RelationshipTypeValues;
use strict;
use warnings;
sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing'};
# derivation by restriction
use base qw(
SOAP::WSDL::XSD::Typelib::Builtin::QName);
1;
__END__
=pod
=head1 NAME
=head1 DESCRIPTION
Perl data type class for the XML Schema defined simpleType
RelationshipTypeValues from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing.
This clase is derived from
SOAP::WSDL::XSD::Typelib::Builtin::QName
. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
like it's base type.
# Description of restrictions not implemented yet.
=head1 METHODS
=head2 new
Constructor.
=head2 get_value / set_value
Getter and setter for the simpleType's value.
=head1 OVERLOADING
Depending on the simple type's base type, the following operations are overloaded
Stringification
Numerification
Boolification
Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
=head1 AUTHOR
Generated by SOAP::WSDL
=cut

10
onvif/proxy/lib/WSDiscovery/Types/AttributedUnsignedLongType.pm → onvif/proxy/lib/WSDiscovery10/Types/ReplyAfterType.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Types::AttributedUnsignedLongType; package WSDiscovery10::Types::ReplyAfterType;
use strict; use strict;
use warnings; use warnings;
__PACKAGE__->_set_element_form_qualified(0); __PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://www.w3.org/2005/08/addressing' }; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' };
our $XML_ATTRIBUTE_CLASS; our $XML_ATTRIBUTE_CLASS;
undef $XML_ATTRIBUTE_CLASS; undef $XML_ATTRIBUTE_CLASS;
@ -16,7 +16,7 @@ sub __get_attr_class {
use base qw( use base qw(
SOAP::WSDL::XSD::Typelib::ComplexType SOAP::WSDL::XSD::Typelib::ComplexType
SOAP::WSDL::XSD::Typelib::Builtin::unsignedLong SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger
); );
@ -30,12 +30,12 @@ use base qw(
=head1 NAME =head1 NAME
WSDiscovery::Types::AttributedUnsignedLongType WSDiscovery10::Types::ReplyAfterType
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType Perl data type class for the XML Schema defined complexType
AttributedUnsignedLongType from the namespace http://www.w3.org/2005/08/addressing. ReplyAfterType from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing.

28
onvif/proxy/lib/WSDiscovery/Types/ResolveMatchType.pm → onvif/proxy/lib/WSDiscovery10/Types/ResolveMatchType.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Types::ResolveMatchType; package WSDiscovery10::Types::ResolveMatchType;
use strict; use strict;
use warnings; use warnings;
__PACKAGE__->_set_element_form_qualified(0); __PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' }; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' };
our $XML_ATTRIBUTE_CLASS; our $XML_ATTRIBUTE_CLASS;
undef $XML_ATTRIBUTE_CLASS; undef $XML_ATTRIBUTE_CLASS;
@ -43,15 +43,15 @@ __PACKAGE__->_factory(
'MetadataVersion' => \%MetadataVersion_of, 'MetadataVersion' => \%MetadataVersion_of,
}, },
{ {
'EndpointReference' => 'WSDiscovery::Elements::EndpointReference', 'EndpointReference' => 'WSDiscovery10::Elements::EndpointReference',
'Types' => 'WSDiscovery::Elements::Types', 'Types' => 'WSDiscovery10::Elements::Types',
'Scopes' => 'WSDiscovery::Elements::Scopes', 'Scopes' => 'WSDiscovery10::Elements::Scopes',
'XAddrs' => 'WSDiscovery::Elements::XAddrs', 'XAddrs' => 'WSDiscovery10::Elements::XAddrs',
'MetadataVersion' => 'WSDiscovery::Elements::MetadataVersion', 'MetadataVersion' => 'WSDiscovery10::Elements::MetadataVersion',
}, },
{ {
@ -80,12 +80,12 @@ __PACKAGE__->_factory(
=head1 NAME =head1 NAME
WSDiscovery::Types::ResolveMatchType WSDiscovery10::Types::ResolveMatchType
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType Perl data type class for the XML Schema defined complexType
ResolveMatchType from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. ResolveMatchType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -155,13 +155,15 @@ perl code only, XML output uses the original name:
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::ResolveMatchType { # WSDiscovery10::Types::ResolveMatchType
EndpointReference => { # WSDiscovery::Types::EndpointReferenceType EndpointReference => { # WSDiscovery10::Types::EndpointReferenceType
Address => { value => $some_value }, Address => { value => $some_value },
ReferenceParameters => { # WSDiscovery::Types::ReferenceParametersType ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType
}, },
Metadata => { # WSDiscovery::Types::MetadataType ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType
}, },
PortType => { value => $some_value },
ServiceName => { value => $some_value },
}, },
Types => $some_value, # QNameListType Types => $some_value, # QNameListType
Scopes => { value => $some_value }, Scopes => { value => $some_value },

22
onvif/proxy/lib/WSDiscovery/Types/ResolveMatchesType.pm → onvif/proxy/lib/WSDiscovery10/Types/ResolveMatchesType.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Types::ResolveMatchesType; package WSDiscovery10::Types::ResolveMatchesType;
use strict; use strict;
use warnings; use warnings;
__PACKAGE__->_set_element_form_qualified(0); __PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' }; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' };
our $XML_ATTRIBUTE_CLASS; our $XML_ATTRIBUTE_CLASS;
undef $XML_ATTRIBUTE_CLASS; undef $XML_ATTRIBUTE_CLASS;
@ -31,7 +31,7 @@ __PACKAGE__->_factory(
'ResolveMatch' => \%ResolveMatch_of, 'ResolveMatch' => \%ResolveMatch_of,
}, },
{ {
'ResolveMatch' => 'WSDiscovery::Types::ResolveMatchType', 'ResolveMatch' => 'WSDiscovery10::Types::ResolveMatchType',
}, },
{ {
@ -55,12 +55,12 @@ __PACKAGE__->_factory(
=head1 NAME =head1 NAME
WSDiscovery::Types::ResolveMatchesType WSDiscovery10::Types::ResolveMatchesType
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType Perl data type class for the XML Schema defined complexType
ResolveMatchesType from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. ResolveMatchesType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -88,14 +88,16 @@ methods:
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::ResolveMatchesType { # WSDiscovery10::Types::ResolveMatchesType
ResolveMatch => { # WSDiscovery::Types::ResolveMatchType ResolveMatch => { # WSDiscovery10::Types::ResolveMatchType
EndpointReference => { # WSDiscovery::Types::EndpointReferenceType EndpointReference => { # WSDiscovery10::Types::EndpointReferenceType
Address => { value => $some_value }, Address => { value => $some_value },
ReferenceParameters => { # WSDiscovery::Types::ReferenceParametersType ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType
}, },
Metadata => { # WSDiscovery::Types::MetadataType ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType
}, },
PortType => { value => $some_value },
ServiceName => { value => $some_value },
}, },
Types => $some_value, # QNameListType Types => $some_value, # QNameListType
Scopes => { value => $some_value }, Scopes => { value => $some_value },

20
onvif/proxy/lib/WSDiscovery/Types/ResolveType.pm → onvif/proxy/lib/WSDiscovery10/Types/ResolveType.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Types::ResolveType; package WSDiscovery10::Types::ResolveType;
use strict; use strict;
use warnings; use warnings;
__PACKAGE__->_set_element_form_qualified(0); __PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' }; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' };
our $XML_ATTRIBUTE_CLASS; our $XML_ATTRIBUTE_CLASS;
undef $XML_ATTRIBUTE_CLASS; undef $XML_ATTRIBUTE_CLASS;
@ -31,7 +31,7 @@ __PACKAGE__->_factory(
'EndpointReference' => \%EndpointReference_of, 'EndpointReference' => \%EndpointReference_of,
}, },
{ {
'EndpointReference' => 'WSDiscovery::Elements::EndpointReference', 'EndpointReference' => 'WSDiscovery10::Elements::EndpointReference',
}, },
{ {
@ -56,12 +56,12 @@ __PACKAGE__->_factory(
=head1 NAME =head1 NAME
WSDiscovery::Types::ResolveType WSDiscovery10::Types::ResolveType
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType Perl data type class for the XML Schema defined complexType
ResolveType from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. ResolveType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -95,13 +95,15 @@ perl code only, XML output uses the original name:
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::ResolveType { # WSDiscovery10::Types::ResolveType
EndpointReference => { # WSDiscovery::Types::EndpointReferenceType EndpointReference => { # WSDiscovery10::Types::EndpointReferenceType
Address => { value => $some_value }, Address => { value => $some_value },
ReferenceParameters => { # WSDiscovery::Types::ReferenceParametersType ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType
}, },
Metadata => { # WSDiscovery::Types::MetadataType ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType
}, },
PortType => { value => $some_value },
ServiceName => { value => $some_value },
}, },
}, },

73
onvif/proxy/lib/WSDiscovery10/Types/RetryAfterType.pm Normal file
View File

@ -0,0 +1,73 @@
package WSDiscovery10::Types::RetryAfterType;
use strict;
use warnings;
__PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' };
our $XML_ATTRIBUTE_CLASS;
undef $XML_ATTRIBUTE_CLASS;
sub __get_attr_class {
return $XML_ATTRIBUTE_CLASS;
}
use base qw(
SOAP::WSDL::XSD::Typelib::ComplexType
SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger
);
1;
=pod
=head1 NAME
WSDiscovery10::Types::RetryAfterType
=head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType
RetryAfterType from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing.
=head2 PROPERTIES
The following properties may be accessed using get_PROPERTY / set_PROPERTY
methods:
=over
=back
=head1 METHODS
=head2 new
Constructor. The following data structure may be passed to new():
{ value => $some_value },
=head1 AUTHOR
Generated by SOAP::WSDL
=cut

16
onvif/proxy/lib/WSDiscovery/Types/ScopesType.pm → onvif/proxy/lib/WSDiscovery10/Types/ScopesType.pm
View File

@ -1,13 +1,13 @@
package WSDiscovery::Types::ScopesType; package WSDiscovery10::Types::ScopesType;
use strict; use strict;
use warnings; use warnings;
__PACKAGE__->_set_element_form_qualified(0); __PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' }; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' };
our $XML_ATTRIBUTE_CLASS = 'WSDiscovery::Types::ScopesType::_ScopesType::XmlAttr'; our $XML_ATTRIBUTE_CLASS = 'WSDiscovery10::Types::ScopesType::_ScopesType::XmlAttr';
sub __get_attr_class { sub __get_attr_class {
return $XML_ATTRIBUTE_CLASS; return $XML_ATTRIBUTE_CLASS;
@ -15,10 +15,10 @@ sub __get_attr_class {
use base qw( use base qw(
SOAP::WSDL::XSD::Typelib::ComplexType SOAP::WSDL::XSD::Typelib::ComplexType
WSDiscovery::Types::UriListType WSDiscovery10::Types::UriListType
); );
package WSDiscovery::Types::ScopesType::_ScopesType::XmlAttr; package WSDiscovery10::Types::ScopesType::_ScopesType::XmlAttr;
use base qw(SOAP::WSDL::XSD::Typelib::AttributeSet); use base qw(SOAP::WSDL::XSD::Typelib::AttributeSet);
{ # BLOCK to scope variables { # BLOCK to scope variables
@ -50,12 +50,12 @@ __PACKAGE__->_factory(
=head1 NAME =head1 NAME
WSDiscovery::Types::ScopesType WSDiscovery10::Types::ScopesType
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType Perl data type class for the XML Schema defined complexType
ScopesType from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. ScopesType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -91,7 +91,7 @@ See the correspondent WSDL/XML Schema if in question.
This class has additional attributes, accessibly via the C<attr()> method. This class has additional attributes, accessibly via the C<attr()> method.
attr() returns an object of the class WSDiscovery::Types::ScopesType::_ScopesType::XmlAttr. attr() returns an object of the class WSDiscovery10::Types::ScopesType::_ScopesType::XmlAttr.
The following attributes can be accessed on this object via the corresponding The following attributes can be accessed on this object via the corresponding
get_/set_ methods: get_/set_ methods:

14
onvif/proxy/lib/WSDiscovery/Types/SecurityType.pm → onvif/proxy/lib/WSDiscovery10/Types/SecurityType.pm
View File

@ -1,11 +1,11 @@
package WSDiscovery::Types::SecurityType; package WSDiscovery10::Types::SecurityType;
use strict; use strict;
use warnings; use warnings;
__PACKAGE__->_set_element_form_qualified(0); __PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' }; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' };
our $XML_ATTRIBUTE_CLASS; our $XML_ATTRIBUTE_CLASS;
undef $XML_ATTRIBUTE_CLASS; undef $XML_ATTRIBUTE_CLASS;
@ -31,7 +31,7 @@ __PACKAGE__->_factory(
'Sig' => \%Sig_of, 'Sig' => \%Sig_of,
}, },
{ {
'Sig' => 'WSDiscovery::Elements::Sig', 'Sig' => 'WSDiscovery10::Elements::Sig',
}, },
{ {
@ -56,12 +56,12 @@ __PACKAGE__->_factory(
=head1 NAME =head1 NAME
WSDiscovery::Types::SecurityType WSDiscovery10::Types::SecurityType
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType Perl data type class for the XML Schema defined complexType
SecurityType from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. SecurityType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -95,8 +95,8 @@ perl code only, XML output uses the original name:
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::SecurityType { # WSDiscovery10::Types::SecurityType
Sig => { # WSDiscovery::Types::SigType Sig => { # WSDiscovery10::Types::SigType
}, },
}, },

118
onvif/proxy/lib/WSDiscovery10/Types/ServiceNameType.pm Normal file
View File

@ -0,0 +1,118 @@
package WSDiscovery10::Types::ServiceNameType;
use strict;
use warnings;
__PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' };
our $XML_ATTRIBUTE_CLASS = 'WSDiscovery10::Types::ServiceNameType::_ServiceNameType::XmlAttr';
sub __get_attr_class {
return $XML_ATTRIBUTE_CLASS;
}
use base qw(
SOAP::WSDL::XSD::Typelib::ComplexType
SOAP::WSDL::XSD::Typelib::Builtin::QName
);
package WSDiscovery10::Types::ServiceNameType::_ServiceNameType::XmlAttr;
use base qw(SOAP::WSDL::XSD::Typelib::AttributeSet);
{ # BLOCK to scope variables
my %PortName_of :ATTR(:get<PortName>);
__PACKAGE__->_factory(
[ qw(
PortName
) ],
{
PortName => \%PortName_of,
},
{
PortName => 'SOAP::WSDL::XSD::Typelib::Builtin::NCName',
}
);
} # end BLOCK
1;
=pod
=head1 NAME
WSDiscovery10::Types::ServiceNameType
=head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType
ServiceNameType from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing.
=head2 PROPERTIES
The following properties may be accessed using get_PROPERTY / set_PROPERTY
methods:
=over
=back
=head1 METHODS
=head2 new
Constructor. The following data structure may be passed to new():
{ value => $some_value },
=head2 attr
NOTE: Attribute documentation is experimental, and may be inaccurate.
See the correspondent WSDL/XML Schema if in question.
This class has additional attributes, accessibly via the C<attr()> method.
attr() returns an object of the class WSDiscovery10::Types::ServiceNameType::_ServiceNameType::XmlAttr.
The following attributes can be accessed on this object via the corresponding
get_/set_ methods:
=over
=item * PortName
This attribute is of type L<SOAP::WSDL::XSD::Typelib::Builtin::NCName|SOAP::WSDL::XSD::Typelib::Builtin::NCName>.
=back
=head1 AUTHOR
Generated by SOAP::WSDL
=cut

16
onvif/proxy/lib/WSDiscovery/Types/SigType.pm → onvif/proxy/lib/WSDiscovery10/Types/SigType.pm
View File

@ -1,13 +1,13 @@
package WSDiscovery::Types::SigType; package WSDiscovery10::Types::SigType;
use strict; use strict;
use warnings; use warnings;
__PACKAGE__->_set_element_form_qualified(0); __PACKAGE__->_set_element_form_qualified(0);
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01' }; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' };
our $XML_ATTRIBUTE_CLASS = 'WSDiscovery::Types::SigType::_SigType::XmlAttr'; our $XML_ATTRIBUTE_CLASS = 'WSDiscovery10::Types::SigType::_SigType::XmlAttr';
sub __get_attr_class { sub __get_attr_class {
return $XML_ATTRIBUTE_CLASS; return $XML_ATTRIBUTE_CLASS;
@ -38,7 +38,7 @@ __PACKAGE__->_factory(
package WSDiscovery::Types::SigType::_SigType::XmlAttr; package WSDiscovery10::Types::SigType::_SigType::XmlAttr;
use base qw(SOAP::WSDL::XSD::Typelib::AttributeSet); use base qw(SOAP::WSDL::XSD::Typelib::AttributeSet);
{ # BLOCK to scope variables { # BLOCK to scope variables
@ -85,12 +85,12 @@ __PACKAGE__->_factory(
=head1 NAME =head1 NAME
WSDiscovery::Types::SigType WSDiscovery10::Types::SigType
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType Perl data type class for the XML Schema defined complexType
SigType from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. SigType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.
@ -115,7 +115,7 @@ methods:
Constructor. The following data structure may be passed to new(): Constructor. The following data structure may be passed to new():
{ # WSDiscovery::Types::SigType { # WSDiscovery10::Types::SigType
}, },
@ -127,7 +127,7 @@ See the correspondent WSDL/XML Schema if in question.
This class has additional attributes, accessibly via the C<attr()> method. This class has additional attributes, accessibly via the C<attr()> method.
attr() returns an object of the class WSDiscovery::Types::SigType::_SigType::XmlAttr. attr() returns an object of the class WSDiscovery10::Types::SigType::_SigType::XmlAttr.
The following attributes can be accessed on this object via the corresponding The following attributes can be accessed on this object via the corresponding
get_/set_ methods: get_/set_ methods:

6
onvif/proxy/lib/WSDiscovery/Types/UriListType.pm → onvif/proxy/lib/WSDiscovery10/Types/UriListType.pm
View File

@ -1,8 +1,8 @@
package WSDiscovery::Types::UriListType; package WSDiscovery10::Types::UriListType;
use strict; use strict;
use warnings; use warnings;
sub get_xmlns { 'http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01'}; sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery'};
# list derivation # list derivation
@ -28,7 +28,7 @@ __END__
=head1 DESCRIPTION =head1 DESCRIPTION
Perl data type class for the XML Schema defined simpleType Perl data type class for the XML Schema defined simpleType
UriListType from the namespace http://docs.oasis-open.org/ws-dd/ns/discovery/2009/01. UriListType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery.

10
onvif/scripts/zmonvif-probe.pl
View File

@ -28,9 +28,9 @@ use Getopt::Std;
require ONVIF::Client; require ONVIF::Client;
require WSDiscovery::Interfaces::WSDiscovery::WSDiscoveryPort; require WSDiscovery10::Interfaces::WSDiscovery::WSDiscoveryPort;
require WSDiscovery::Elements::Types; require WSDiscovery10::Elements::Types;
require WSDiscovery::Elements::Scopes; require WSDiscovery10::Elements::Scopes;
require WSDiscovery::TransportUDP; require WSDiscovery::TransportUDP;
@ -163,7 +163,7 @@ sub discover
if($verbose) { if($verbose) {
print "Probing for SOAP 1.1\n" print "Probing for SOAP 1.1\n"
} }
my $svc_discover = WSDiscovery::Interfaces::WSDiscovery::WSDiscoveryPort->new({ my $svc_discover = WSDiscovery10::Interfaces::WSDiscovery::WSDiscoveryPort->new({
# no_dispatch => '1', # no_dispatch => '1',
}); });
$svc_discover->set_soap_version('1.1'); $svc_discover->set_soap_version('1.1');
@ -182,7 +182,7 @@ sub discover
if($verbose) { if($verbose) {
print "Probing for SOAP 1.2\n" print "Probing for SOAP 1.2\n"
} }
$svc_discover = WSDiscovery::Interfaces::WSDiscovery::WSDiscoveryPort->new({ $svc_discover = WSDiscovery10::Interfaces::WSDiscovery::WSDiscoveryPort->new({
# no_dispatch => '1', # no_dispatch => '1',
}); });
$svc_discover->set_soap_version('1.2'); $svc_discover->set_soap_version('1.2');