diff --git a/onvif/proxy/lib/WSDiscovery10/Attributes/Action.pm b/onvif/proxy/lib/WSDiscovery10/Attributes/Action.pm new file mode 100644 index 000000000..84a19fd8c --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Attributes/Action.pm @@ -0,0 +1,54 @@ + +package WSDiscovery10::Attributes::Action; +use strict; +use warnings; + +{ # BLOCK to scope variables + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' } + +__PACKAGE__->__set_name('Action'); +__PACKAGE__->__set_ref(); +use base qw( + SOAP::WSDL::XSD::Typelib::Attribute + SOAP::WSDL::XSD::Typelib::Builtin::anyURI +); + +} + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Attributes::Action + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined attribute +Action from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing. + + + + + + + +=head1 METHODS + +=head2 new + + my $element = WSDiscovery10::Attributes::Action->new($data); + +Constructor. The following data structure may be passed to new(): + + { value => $value } + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Attributes/Id.pm b/onvif/proxy/lib/WSDiscovery10/Attributes/Id.pm new file mode 100644 index 000000000..97a3ee603 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Attributes/Id.pm @@ -0,0 +1,54 @@ + +package WSDiscovery10::Attributes::Id; +use strict; +use warnings; + +{ # BLOCK to scope variables + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' } + +__PACKAGE__->__set_name('Id'); +__PACKAGE__->__set_ref(); +use base qw( + SOAP::WSDL::XSD::Typelib::Attribute + SOAP::WSDL::XSD::Typelib::Builtin::ID +); + +} + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Attributes::Id + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined attribute +Id from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + + +=head1 METHODS + +=head2 new + + my $element = WSDiscovery10::Attributes::Id->new($data); + +Constructor. The following data structure may be passed to new(): + + { value => $value } + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/Action.pm b/onvif/proxy/lib/WSDiscovery10/Elements/Action.pm new file mode 100644 index 000000000..141d1d8a9 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/Action.pm @@ -0,0 +1,57 @@ + +package WSDiscovery10::Elements::Action; +use strict; +use warnings; + +{ # BLOCK to scope variables + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' } + +__PACKAGE__->__set_name('Action'); +__PACKAGE__->__set_nillable(); +__PACKAGE__->__set_minOccurs(); +__PACKAGE__->__set_maxOccurs(); +__PACKAGE__->__set_ref(); +use base qw( + SOAP::WSDL::XSD::Typelib::Element + WSDiscovery10::Types::AttributedURI +); + +} + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Elements::Action + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined element +Action from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing. + + + + + + + +=head1 METHODS + +=head2 new + + my $element = WSDiscovery10::Elements::Action->new($data); + +Constructor. The following data structure may be passed to new(): + + { value => $some_value }, + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/AppSequence.pm b/onvif/proxy/lib/WSDiscovery10/Elements/AppSequence.pm new file mode 100644 index 000000000..d6662e940 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/AppSequence.pm @@ -0,0 +1,58 @@ + +package WSDiscovery10::Elements::AppSequence; +use strict; +use warnings; + +{ # BLOCK to scope variables + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' } + +__PACKAGE__->__set_name('AppSequence'); +__PACKAGE__->__set_nillable(); +__PACKAGE__->__set_minOccurs(); +__PACKAGE__->__set_maxOccurs(); +__PACKAGE__->__set_ref(); +use base qw( + SOAP::WSDL::XSD::Typelib::Element + WSDiscovery10::Types::AppSequenceType +); + +} + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Elements::AppSequence + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined element +AppSequence from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + + +=head1 METHODS + +=head2 new + + my $element = WSDiscovery10::Elements::AppSequence->new($data); + +Constructor. The following data structure may be passed to new(): + + { # WSDiscovery10::Types::AppSequenceType + }, + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/Bye.pm b/onvif/proxy/lib/WSDiscovery10/Elements/Bye.pm new file mode 100644 index 000000000..d5e15b25d --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/Bye.pm @@ -0,0 +1,71 @@ + +package WSDiscovery10::Elements::Bye; +use strict; +use warnings; + +{ # BLOCK to scope variables + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' } + +__PACKAGE__->__set_name('Bye'); +__PACKAGE__->__set_nillable(); +__PACKAGE__->__set_minOccurs(); +__PACKAGE__->__set_maxOccurs(); +__PACKAGE__->__set_ref(); +use base qw( + SOAP::WSDL::XSD::Typelib::Element + WSDiscovery10::Types::ByeType +); + +} + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Elements::Bye + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined element +Bye from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + + +=head1 METHODS + +=head2 new + + my $element = WSDiscovery10::Elements::Bye->new($data); + +Constructor. The following data structure may be passed to new(): + + { # WSDiscovery10::Types::ByeType + EndpointReference => { # WSDiscovery10::Types::EndpointReferenceType + Address => { value => $some_value }, + ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType + }, + ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType + }, + PortType => { value => $some_value }, + ServiceName => { value => $some_value }, + }, + Types => $some_value, # QNameListType + Scopes => { value => $some_value }, + XAddrs => $some_value, # UriListType + MetadataVersion => $some_value, # unsignedInt + }, + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/EndpointReference.pm b/onvif/proxy/lib/WSDiscovery10/Elements/EndpointReference.pm new file mode 100644 index 000000000..105df00dd --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/EndpointReference.pm @@ -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 + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/FaultTo.pm b/onvif/proxy/lib/WSDiscovery10/Elements/FaultTo.pm new file mode 100644 index 000000000..02235cfb8 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/FaultTo.pm @@ -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 + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/From.pm b/onvif/proxy/lib/WSDiscovery10/Elements/From.pm new file mode 100644 index 000000000..ec56001f6 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/From.pm @@ -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 + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/Hello.pm b/onvif/proxy/lib/WSDiscovery10/Elements/Hello.pm new file mode 100644 index 000000000..783e051e0 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/Hello.pm @@ -0,0 +1,71 @@ + +package WSDiscovery10::Elements::Hello; +use strict; +use warnings; + +{ # BLOCK to scope variables + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' } + +__PACKAGE__->__set_name('Hello'); +__PACKAGE__->__set_nillable(); +__PACKAGE__->__set_minOccurs(); +__PACKAGE__->__set_maxOccurs(); +__PACKAGE__->__set_ref(); +use base qw( + SOAP::WSDL::XSD::Typelib::Element + WSDiscovery10::Types::HelloType +); + +} + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Elements::Hello + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined element +Hello from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + + +=head1 METHODS + +=head2 new + + my $element = WSDiscovery10::Elements::Hello->new($data); + +Constructor. The following data structure may be passed to new(): + + { # WSDiscovery10::Types::HelloType + EndpointReference => { # WSDiscovery10::Types::EndpointReferenceType + Address => { value => $some_value }, + ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType + }, + ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType + }, + PortType => { value => $some_value }, + ServiceName => { value => $some_value }, + }, + Types => $some_value, # QNameListType + Scopes => { value => $some_value }, + XAddrs => $some_value, # UriListType + MetadataVersion => $some_value, # unsignedInt + }, + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/MessageID.pm b/onvif/proxy/lib/WSDiscovery10/Elements/MessageID.pm new file mode 100644 index 000000000..44ace37cd --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/MessageID.pm @@ -0,0 +1,57 @@ + +package WSDiscovery10::Elements::MessageID; +use strict; +use warnings; + +{ # BLOCK to scope variables + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' } + +__PACKAGE__->__set_name('MessageID'); +__PACKAGE__->__set_nillable(); +__PACKAGE__->__set_minOccurs(); +__PACKAGE__->__set_maxOccurs(); +__PACKAGE__->__set_ref(); +use base qw( + SOAP::WSDL::XSD::Typelib::Element + WSDiscovery10::Types::AttributedURI +); + +} + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Elements::MessageID + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined element +MessageID from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing. + + + + + + + +=head1 METHODS + +=head2 new + + my $element = WSDiscovery10::Elements::MessageID->new($data); + +Constructor. The following data structure may be passed to new(): + + { value => $some_value }, + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/MetadataVersion.pm b/onvif/proxy/lib/WSDiscovery10/Elements/MetadataVersion.pm new file mode 100644 index 000000000..bf56da261 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/MetadataVersion.pm @@ -0,0 +1,57 @@ + +package WSDiscovery10::Elements::MetadataVersion; +use strict; +use warnings; + +{ # BLOCK to scope variables + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' } + +__PACKAGE__->__set_name('MetadataVersion'); +__PACKAGE__->__set_nillable(); +__PACKAGE__->__set_minOccurs(); +__PACKAGE__->__set_maxOccurs(); +__PACKAGE__->__set_ref(); +use base qw( + SOAP::WSDL::XSD::Typelib::Element + SOAP::WSDL::XSD::Typelib::Builtin::unsignedInt +); + +} + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Elements::MetadataVersion + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined element +MetadataVersion from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + + +=head1 METHODS + +=head2 new + + my $element = WSDiscovery10::Elements::MetadataVersion->new($data); + +Constructor. The following data structure may be passed to new(): + + $some_value, # unsignedInt + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/Probe.pm b/onvif/proxy/lib/WSDiscovery10/Elements/Probe.pm new file mode 100644 index 000000000..e07ec2510 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/Probe.pm @@ -0,0 +1,60 @@ + +package WSDiscovery10::Elements::Probe; +use strict; +use warnings; + +{ # BLOCK to scope variables + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' } + +__PACKAGE__->__set_name('Probe'); +__PACKAGE__->__set_nillable(); +__PACKAGE__->__set_minOccurs(); +__PACKAGE__->__set_maxOccurs(); +__PACKAGE__->__set_ref(); +use base qw( + SOAP::WSDL::XSD::Typelib::Element + WSDiscovery10::Types::ProbeType +); + +} + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Elements::Probe + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined element +Probe from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + + +=head1 METHODS + +=head2 new + + my $element = WSDiscovery10::Elements::Probe->new($data); + +Constructor. The following data structure may be passed to new(): + + { # WSDiscovery10::Types::ProbeType + Types => $some_value, # QNameListType + Scopes => { value => $some_value }, + }, + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/ProbeMatches.pm b/onvif/proxy/lib/WSDiscovery10/Elements/ProbeMatches.pm new file mode 100644 index 000000000..e64b8de42 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/ProbeMatches.pm @@ -0,0 +1,73 @@ + +package WSDiscovery10::Elements::ProbeMatches; +use strict; +use warnings; + +{ # BLOCK to scope variables + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' } + +__PACKAGE__->__set_name('ProbeMatches'); +__PACKAGE__->__set_nillable(); +__PACKAGE__->__set_minOccurs(); +__PACKAGE__->__set_maxOccurs(); +__PACKAGE__->__set_ref(); +use base qw( + SOAP::WSDL::XSD::Typelib::Element + WSDiscovery10::Types::ProbeMatchesType +); + +} + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Elements::ProbeMatches + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined element +ProbeMatches from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + + +=head1 METHODS + +=head2 new + + my $element = WSDiscovery10::Elements::ProbeMatches->new($data); + +Constructor. The following data structure may be passed to new(): + + { # WSDiscovery10::Types::ProbeMatchesType + ProbeMatch => { # WSDiscovery10::Types::ProbeMatchType + EndpointReference => { # WSDiscovery10::Types::EndpointReferenceType + Address => { value => $some_value }, + ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType + }, + ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType + }, + PortType => { value => $some_value }, + ServiceName => { value => $some_value }, + }, + Types => $some_value, # QNameListType + Scopes => { value => $some_value }, + XAddrs => $some_value, # UriListType + MetadataVersion => $some_value, # unsignedInt + }, + }, + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/RelatesTo.pm b/onvif/proxy/lib/WSDiscovery10/Elements/RelatesTo.pm new file mode 100644 index 000000000..51cc80a4f --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/RelatesTo.pm @@ -0,0 +1,57 @@ + +package WSDiscovery10::Elements::RelatesTo; +use strict; +use warnings; + +{ # BLOCK to scope variables + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' } + +__PACKAGE__->__set_name('RelatesTo'); +__PACKAGE__->__set_nillable(); +__PACKAGE__->__set_minOccurs(); +__PACKAGE__->__set_maxOccurs(); +__PACKAGE__->__set_ref(); +use base qw( + SOAP::WSDL::XSD::Typelib::Element + WSDiscovery10::Types::Relationship +); + +} + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Elements::RelatesTo + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined element +RelatesTo from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing. + + + + + + + +=head1 METHODS + +=head2 new + + my $element = WSDiscovery10::Elements::RelatesTo->new($data); + +Constructor. The following data structure may be passed to new(): + + { value => $some_value }, + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/ReplyAfter.pm b/onvif/proxy/lib/WSDiscovery10/Elements/ReplyAfter.pm new file mode 100644 index 000000000..4e0364477 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/ReplyAfter.pm @@ -0,0 +1,57 @@ + +package WSDiscovery10::Elements::ReplyAfter; +use strict; +use warnings; + +{ # BLOCK to scope variables + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' } + +__PACKAGE__->__set_name('ReplyAfter'); +__PACKAGE__->__set_nillable(); +__PACKAGE__->__set_minOccurs(); +__PACKAGE__->__set_maxOccurs(); +__PACKAGE__->__set_ref(); +use base qw( + SOAP::WSDL::XSD::Typelib::Element + WSDiscovery10::Types::ReplyAfterType +); + +} + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Elements::ReplyAfter + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined element +ReplyAfter from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing. + + + + + + + +=head1 METHODS + +=head2 new + + my $element = WSDiscovery10::Elements::ReplyAfter->new($data); + +Constructor. The following data structure may be passed to new(): + + { value => $some_value }, + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/ReplyTo.pm b/onvif/proxy/lib/WSDiscovery10/Elements/ReplyTo.pm new file mode 100644 index 000000000..4f4f2b496 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/ReplyTo.pm @@ -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 + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/Resolve.pm b/onvif/proxy/lib/WSDiscovery10/Elements/Resolve.pm new file mode 100644 index 000000000..17c834e4e --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/Resolve.pm @@ -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 + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/ResolveMatches.pm b/onvif/proxy/lib/WSDiscovery10/Elements/ResolveMatches.pm new file mode 100644 index 000000000..c2ebe9979 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/ResolveMatches.pm @@ -0,0 +1,73 @@ + +package WSDiscovery10::Elements::ResolveMatches; +use strict; +use warnings; + +{ # BLOCK to scope variables + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' } + +__PACKAGE__->__set_name('ResolveMatches'); +__PACKAGE__->__set_nillable(); +__PACKAGE__->__set_minOccurs(); +__PACKAGE__->__set_maxOccurs(); +__PACKAGE__->__set_ref(); +use base qw( + SOAP::WSDL::XSD::Typelib::Element + WSDiscovery10::Types::ResolveMatchesType +); + +} + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Elements::ResolveMatches + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined element +ResolveMatches from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + + +=head1 METHODS + +=head2 new + + my $element = WSDiscovery10::Elements::ResolveMatches->new($data); + +Constructor. The following data structure may be passed to new(): + + { # WSDiscovery10::Types::ResolveMatchesType + ResolveMatch => { # WSDiscovery10::Types::ResolveMatchType + EndpointReference => { # WSDiscovery10::Types::EndpointReferenceType + Address => { value => $some_value }, + ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType + }, + ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType + }, + PortType => { value => $some_value }, + ServiceName => { value => $some_value }, + }, + Types => $some_value, # QNameListType + Scopes => { value => $some_value }, + XAddrs => $some_value, # UriListType + MetadataVersion => $some_value, # unsignedInt + }, + }, + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/RetryAfter.pm b/onvif/proxy/lib/WSDiscovery10/Elements/RetryAfter.pm new file mode 100644 index 000000000..8c43deb40 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/RetryAfter.pm @@ -0,0 +1,57 @@ + +package WSDiscovery10::Elements::RetryAfter; +use strict; +use warnings; + +{ # BLOCK to scope variables + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' } + +__PACKAGE__->__set_name('RetryAfter'); +__PACKAGE__->__set_nillable(); +__PACKAGE__->__set_minOccurs(); +__PACKAGE__->__set_maxOccurs(); +__PACKAGE__->__set_ref(); +use base qw( + SOAP::WSDL::XSD::Typelib::Element + WSDiscovery10::Types::RetryAfterType +); + +} + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Elements::RetryAfter + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined element +RetryAfter from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing. + + + + + + + +=head1 METHODS + +=head2 new + + my $element = WSDiscovery10::Elements::RetryAfter->new($data); + +Constructor. The following data structure may be passed to new(): + + { value => $some_value }, + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/Scopes.pm b/onvif/proxy/lib/WSDiscovery10/Elements/Scopes.pm new file mode 100644 index 000000000..9aceeab7c --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/Scopes.pm @@ -0,0 +1,57 @@ + +package WSDiscovery10::Elements::Scopes; +use strict; +use warnings; + +{ # BLOCK to scope variables + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' } + +__PACKAGE__->__set_name('Scopes'); +__PACKAGE__->__set_nillable(); +__PACKAGE__->__set_minOccurs(); +__PACKAGE__->__set_maxOccurs(); +__PACKAGE__->__set_ref(); +use base qw( + SOAP::WSDL::XSD::Typelib::Element + WSDiscovery10::Types::ScopesType +); + +} + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Elements::Scopes + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined element +Scopes from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + + +=head1 METHODS + +=head2 new + + my $element = WSDiscovery10::Elements::Scopes->new($data); + +Constructor. The following data structure may be passed to new(): + + { value => $some_value }, + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/Security.pm b/onvif/proxy/lib/WSDiscovery10/Elements/Security.pm new file mode 100644 index 000000000..6eeb876e7 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/Security.pm @@ -0,0 +1,60 @@ + +package WSDiscovery10::Elements::Security; +use strict; +use warnings; + +{ # BLOCK to scope variables + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' } + +__PACKAGE__->__set_name('Security'); +__PACKAGE__->__set_nillable(); +__PACKAGE__->__set_minOccurs(); +__PACKAGE__->__set_maxOccurs(); +__PACKAGE__->__set_ref(); +use base qw( + SOAP::WSDL::XSD::Typelib::Element + WSDiscovery10::Types::SecurityType +); + +} + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Elements::Security + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined element +Security from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + + +=head1 METHODS + +=head2 new + + my $element = WSDiscovery10::Elements::Security->new($data); + +Constructor. The following data structure may be passed to new(): + + { # WSDiscovery10::Types::SecurityType + Sig => { # WSDiscovery10::Types::SigType + }, + }, + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/Sig.pm b/onvif/proxy/lib/WSDiscovery10/Elements/Sig.pm new file mode 100644 index 000000000..edfa22491 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/Sig.pm @@ -0,0 +1,58 @@ + +package WSDiscovery10::Elements::Sig; +use strict; +use warnings; + +{ # BLOCK to scope variables + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' } + +__PACKAGE__->__set_name('Sig'); +__PACKAGE__->__set_nillable(); +__PACKAGE__->__set_minOccurs(); +__PACKAGE__->__set_maxOccurs(); +__PACKAGE__->__set_ref(); +use base qw( + SOAP::WSDL::XSD::Typelib::Element + WSDiscovery10::Types::SigType +); + +} + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Elements::Sig + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined element +Sig from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + + +=head1 METHODS + +=head2 new + + my $element = WSDiscovery10::Elements::Sig->new($data); + +Constructor. The following data structure may be passed to new(): + + { # WSDiscovery10::Types::SigType + }, + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/SupportedMatchingRules.pm b/onvif/proxy/lib/WSDiscovery10/Elements/SupportedMatchingRules.pm new file mode 100644 index 000000000..4b45ed553 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/SupportedMatchingRules.pm @@ -0,0 +1,57 @@ + +package WSDiscovery10::Elements::SupportedMatchingRules; +use strict; +use warnings; + +{ # BLOCK to scope variables + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' } + +__PACKAGE__->__set_name('SupportedMatchingRules'); +__PACKAGE__->__set_nillable(); +__PACKAGE__->__set_minOccurs(); +__PACKAGE__->__set_maxOccurs(); +__PACKAGE__->__set_ref(); +use base qw( + SOAP::WSDL::XSD::Typelib::Element + WSDiscovery10::Types::UriListType +); + +} + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Elements::SupportedMatchingRules + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined element +SupportedMatchingRules from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + + +=head1 METHODS + +=head2 new + + my $element = WSDiscovery10::Elements::SupportedMatchingRules->new($data); + +Constructor. The following data structure may be passed to new(): + +$some_value, # UriListType + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/To.pm b/onvif/proxy/lib/WSDiscovery10/Elements/To.pm new file mode 100644 index 000000000..52e2b7d1a --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/To.pm @@ -0,0 +1,57 @@ + +package WSDiscovery10::Elements::To; +use strict; +use warnings; + +{ # BLOCK to scope variables + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2004/08/addressing' } + +__PACKAGE__->__set_name('To'); +__PACKAGE__->__set_nillable(); +__PACKAGE__->__set_minOccurs(); +__PACKAGE__->__set_maxOccurs(); +__PACKAGE__->__set_ref(); +use base qw( + SOAP::WSDL::XSD::Typelib::Element + WSDiscovery10::Types::AttributedURI +); + +} + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Elements::To + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined element +To from the namespace http://schemas.xmlsoap.org/ws/2004/08/addressing. + + + + + + + +=head1 METHODS + +=head2 new + + my $element = WSDiscovery10::Elements::To->new($data); + +Constructor. The following data structure may be passed to new(): + + { value => $some_value }, + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/Types.pm b/onvif/proxy/lib/WSDiscovery10/Elements/Types.pm new file mode 100644 index 000000000..92c821480 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/Types.pm @@ -0,0 +1,57 @@ + +package WSDiscovery10::Elements::Types; +use strict; +use warnings; + +{ # BLOCK to scope variables + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' } + +__PACKAGE__->__set_name('Types'); +__PACKAGE__->__set_nillable(); +__PACKAGE__->__set_minOccurs(); +__PACKAGE__->__set_maxOccurs(); +__PACKAGE__->__set_ref(); +use base qw( + SOAP::WSDL::XSD::Typelib::Element + WSDiscovery10::Types::QNameListType +); + +} + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Elements::Types + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined element +Types from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + + +=head1 METHODS + +=head2 new + + my $element = WSDiscovery10::Elements::Types->new($data); + +Constructor. The following data structure may be passed to new(): + +$some_value, # QNameListType + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Elements/XAddrs.pm b/onvif/proxy/lib/WSDiscovery10/Elements/XAddrs.pm new file mode 100644 index 000000000..2a43da505 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Elements/XAddrs.pm @@ -0,0 +1,57 @@ + +package WSDiscovery10::Elements::XAddrs; +use strict; +use warnings; + +{ # BLOCK to scope variables + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' } + +__PACKAGE__->__set_name('XAddrs'); +__PACKAGE__->__set_nillable(); +__PACKAGE__->__set_minOccurs(); +__PACKAGE__->__set_maxOccurs(); +__PACKAGE__->__set_ref(); +use base qw( + SOAP::WSDL::XSD::Typelib::Element + WSDiscovery10::Types::UriListType +); + +} + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Elements::XAddrs + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined element +XAddrs from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + + +=head1 METHODS + +=head2 new + + my $element = WSDiscovery10::Elements::XAddrs->new($data); + +Constructor. The following data structure may be passed to new(): + +$some_value, # UriListType + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Interfaces/WSDiscovery/WSDiscoveryPort.pm b/onvif/proxy/lib/WSDiscovery10/Interfaces/WSDiscovery/WSDiscoveryPort.pm new file mode 100644 index 000000000..d194bbc87 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Interfaces/WSDiscovery/WSDiscoveryPort.pm @@ -0,0 +1,131 @@ +package WSDiscovery10::Interfaces::WSDiscovery::WSDiscoveryPort; +use strict; +use warnings; +use Class::Std::Fast::Storable; +use Scalar::Util qw(blessed); +use base qw(SOAP::WSDL::Client::Base); + +# only load if it hasn't been loaded before +require WSDiscovery10::Typemaps::WSDiscovery + if not WSDiscovery10::Typemaps::WSDiscovery->can('get_class'); + +sub START { + $_[0]->set_proxy('soap.udp://239.255.255.250:3702/') if not $_[2]->{proxy}; + $_[0]->set_class_resolver('WSDiscovery10::Typemaps::WSDiscovery') + if not $_[2]->{class_resolver}; + + $_[0]->set_prefix($_[2]->{use_prefix}) if exists $_[2]->{use_prefix}; +} + +sub ProbeOp { + my ($self, $body, $header) = @_; + die "ProbeOp must be called as object method (\$self is <$self>)" if not blessed($self); + return $self->SUPER::call({ + operation => 'ProbeOp', + soap_action => 'http://schemas.xmlsoap.org/ws/2005/04/discovery/Probe', + style => 'document', + body => { + + + 'use' => 'literal', + namespace => 'http://schemas.xmlsoap.org/wsdl/soap/', + encodingStyle => '', + parts => [qw( WSDiscovery10::Elements::Probe )], + + }, + header => { + + }, + headerfault => { + + } + }, $body, $header); +} + + + + +1; + + + +__END__ + +=pod + +=head1 NAME + +WSDiscovery10::Interfaces::WSDiscovery::WSDiscoveryPort - SOAP Interface for the WSDiscovery Web Service + +=head1 SYNOPSIS + + use WSDiscovery10::Interfaces::WSDiscovery::WSDiscoveryPort; + my $interface = WSDiscovery10::Interfaces::WSDiscovery::WSDiscoveryPort->new(); + + my $response; + $response = $interface->ProbeOp(); + + + +=head1 DESCRIPTION + +SOAP Interface for the WSDiscovery web service +located at soap.udp://239.255.255.250:3702/. + +=head1 SERVICE WSDiscovery + + + +=head2 Port WSDiscoveryPort + + + +=head1 METHODS + +=head2 General methods + +=head3 new + +Constructor. + +All arguments are forwarded to L. + +=head2 SOAP Service methods + +Method synopsis is displayed with hash refs as parameters. + +The commented class names in the method's parameters denote that objects +of the corresponding class can be passed instead of the marked hash ref. + +You may pass any combination of objects, hash and list refs to these +methods, as long as you meet the structure. + +List items (i.e. multiple occurences) are not displayed in the synopsis. +You may generally pass a list ref of hash refs (or objects) instead of a hash +ref - this may result in invalid XML if used improperly, though. Note that +SOAP::WSDL always expects list references at maximum depth position. + +XML attributes are not displayed in this synopsis and cannot be set using +hash refs. See the respective class' documentation for additional information. + + + +=head3 ProbeOp + + + +Returns a L object. + + $response = $interface->ProbeOp( { # WSDiscovery10::Types::ProbeType + Types => $some_value, # QNameListType + Scopes => { value => $some_value }, + },, + ); + + + +=head1 AUTHOR + +Generated by SOAP::WSDL on Sat Mar 19 18:11:58 2016 + +=cut diff --git a/onvif/proxy/lib/WSDiscovery10/Typemaps/WSDiscovery.pm b/onvif/proxy/lib/WSDiscovery10/Typemaps/WSDiscovery.pm new file mode 100644 index 000000000..635a19393 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Typemaps/WSDiscovery.pm @@ -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 + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/AppSequenceType.pm b/onvif/proxy/lib/WSDiscovery10/Types/AppSequenceType.pm new file mode 100644 index 000000000..d000bba34 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/AppSequenceType.pm @@ -0,0 +1,138 @@ +package WSDiscovery10::Types::AppSequenceType; +use strict; +use warnings; + + +__PACKAGE__->_set_element_form_qualified(0); + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }; + +our $XML_ATTRIBUTE_CLASS = 'WSDiscovery10::Types::AppSequenceType::_AppSequenceType::XmlAttr'; + +sub __get_attr_class { + return $XML_ATTRIBUTE_CLASS; +} + +use base qw(); + +package WSDiscovery10::Types::AppSequenceType::_AppSequenceType::XmlAttr; +use base qw(SOAP::WSDL::XSD::Typelib::AttributeSet); + +{ # BLOCK to scope variables + +my %InstanceId_of :ATTR(:get); +my %SequenceId_of :ATTR(:get); +my %MessageNumber_of :ATTR(:get); + +__PACKAGE__->_factory( + [ qw( + InstanceId + SequenceId + MessageNumber + ) ], + { + + InstanceId => \%InstanceId_of, + + SequenceId => \%SequenceId_of, + + MessageNumber => \%MessageNumber_of, + }, + { + InstanceId => 'SOAP::WSDL::XSD::Typelib::Builtin::unsignedInt', + SequenceId => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI', + MessageNumber => 'SOAP::WSDL::XSD::Typelib::Builtin::unsignedInt', + } +); + +} # end BLOCK + + + + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Types::AppSequenceType + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined complexType +AppSequenceType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + +=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(): + + { # WSDiscovery10::Types::AppSequenceType + }, + + + +=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 method. + +attr() returns an object of the class WSDiscovery10::Types::AppSequenceType::_AppSequenceType::XmlAttr. + +The following attributes can be accessed on this object via the corresponding +get_/set_ methods: + +=over + +=item * InstanceId + + + +This attribute is of type L. + +=item * SequenceId + + + +This attribute is of type L. + +=item * MessageNumber + + + +This attribute is of type L. + + +=back + + + + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/AttributedQName.pm b/onvif/proxy/lib/WSDiscovery10/Types/AttributedQName.pm new file mode 100644 index 000000000..057b02374 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/AttributedQName.pm @@ -0,0 +1,73 @@ +package WSDiscovery10::Types::AttributedQName; +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::QName +); + + + + + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Types::AttributedQName + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined complexType +AttributedQName 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 + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/AttributedURI.pm b/onvif/proxy/lib/WSDiscovery10/Types/AttributedURI.pm new file mode 100644 index 000000000..841b730af --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/AttributedURI.pm @@ -0,0 +1,73 @@ +package WSDiscovery10::Types::AttributedURI; +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::anyURI +); + + + + + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Types::AttributedURI + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined complexType +AttributedURI 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 + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/ByeType.pm b/onvif/proxy/lib/WSDiscovery10/Types/ByeType.pm new file mode 100644 index 000000000..1cedf9c30 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/ByeType.pm @@ -0,0 +1,182 @@ +package WSDiscovery10::Types::ByeType; +use strict; +use warnings; + + +__PACKAGE__->_set_element_form_qualified(0); + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }; + +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 %EndpointReference_of :ATTR(:get); +my %Types_of :ATTR(:get); +my %Scopes_of :ATTR(:get); +my %XAddrs_of :ATTR(:get); +my %MetadataVersion_of :ATTR(:get); + +__PACKAGE__->_factory( + [ qw( EndpointReference + Types + Scopes + XAddrs + MetadataVersion + + ) ], + { + 'EndpointReference' => \%EndpointReference_of, + 'Types' => \%Types_of, + 'Scopes' => \%Scopes_of, + 'XAddrs' => \%XAddrs_of, + 'MetadataVersion' => \%MetadataVersion_of, + }, + { + 'EndpointReference' => 'WSDiscovery10::Elements::EndpointReference', + + 'Types' => 'WSDiscovery10::Elements::Types', + + 'Scopes' => 'WSDiscovery10::Elements::Scopes', + + 'XAddrs' => 'WSDiscovery10::Elements::XAddrs', + + 'MetadataVersion' => 'WSDiscovery10::Elements::MetadataVersion', + + }, + { + + 'EndpointReference' => '', + 'Types' => '', + 'Scopes' => '', + 'XAddrs' => '', + 'MetadataVersion' => '', + } +); + +} # end BLOCK + + + + + + + + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Types::ByeType + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined complexType +ByeType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + +=head2 PROPERTIES + +The following properties may be accessed using get_PROPERTY / set_PROPERTY +methods: + +=over + +=item * EndpointReference + +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 * Types + +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 * Scopes + +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 * XAddrs + +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 * MetadataVersion + +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(): + + { # WSDiscovery10::Types::ByeType + EndpointReference => { # WSDiscovery10::Types::EndpointReferenceType + Address => { value => $some_value }, + ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType + }, + ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType + }, + PortType => { value => $some_value }, + ServiceName => { value => $some_value }, + }, + Types => $some_value, # QNameListType + Scopes => { value => $some_value }, + XAddrs => $some_value, # UriListType + MetadataVersion => $some_value, # unsignedInt + }, + + + + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/EndpointReferenceType.pm b/onvif/proxy/lib/WSDiscovery10/Types/EndpointReferenceType.pm new file mode 100644 index 000000000..9a96b103e --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/EndpointReferenceType.pm @@ -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
); +my %ReferenceProperties_of :ATTR(:get); +my %ReferenceParameters_of :ATTR(:get); +my %PortType_of :ATTR(:get); +my %ServiceName_of :ATTR(:get); + +__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 + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/FaultCodeOpenType.pm b/onvif/proxy/lib/WSDiscovery10/Types/FaultCodeOpenType.pm new file mode 100644 index 000000000..cd183e240 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/FaultCodeOpenType.pm @@ -0,0 +1,76 @@ +package WSDiscovery10::Types::FaultCodeOpenType; +use strict; +use warnings; + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery'}; + +# 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 or 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 +FaultCodeOpenType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + +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 or +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 for more information. + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/FaultCodeType.pm b/onvif/proxy/lib/WSDiscovery10/Types/FaultCodeType.pm new file mode 100644 index 000000000..13be77bdc --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/FaultCodeType.pm @@ -0,0 +1,65 @@ +package WSDiscovery10::Types::FaultCodeType; +use strict; +use warnings; + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery'}; + +# 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 +FaultCodeType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + +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 for more information. + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/FaultSubcodeValues.pm b/onvif/proxy/lib/WSDiscovery10/Types/FaultSubcodeValues.pm new file mode 100644 index 000000000..f49d7d269 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/FaultSubcodeValues.pm @@ -0,0 +1,65 @@ +package WSDiscovery10::Types::FaultSubcodeValues; +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 +FaultSubcodeValues 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 for more information. + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/HelloType.pm b/onvif/proxy/lib/WSDiscovery10/Types/HelloType.pm new file mode 100644 index 000000000..8cca31e90 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/HelloType.pm @@ -0,0 +1,182 @@ +package WSDiscovery10::Types::HelloType; +use strict; +use warnings; + + +__PACKAGE__->_set_element_form_qualified(0); + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }; + +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 %EndpointReference_of :ATTR(:get); +my %Types_of :ATTR(:get); +my %Scopes_of :ATTR(:get); +my %XAddrs_of :ATTR(:get); +my %MetadataVersion_of :ATTR(:get); + +__PACKAGE__->_factory( + [ qw( EndpointReference + Types + Scopes + XAddrs + MetadataVersion + + ) ], + { + 'EndpointReference' => \%EndpointReference_of, + 'Types' => \%Types_of, + 'Scopes' => \%Scopes_of, + 'XAddrs' => \%XAddrs_of, + 'MetadataVersion' => \%MetadataVersion_of, + }, + { + 'EndpointReference' => 'WSDiscovery10::Elements::EndpointReference', + + 'Types' => 'WSDiscovery10::Elements::Types', + + 'Scopes' => 'WSDiscovery10::Elements::Scopes', + + 'XAddrs' => 'WSDiscovery10::Elements::XAddrs', + + 'MetadataVersion' => 'WSDiscovery10::Elements::MetadataVersion', + + }, + { + + 'EndpointReference' => '', + 'Types' => '', + 'Scopes' => '', + 'XAddrs' => '', + 'MetadataVersion' => '', + } +); + +} # end BLOCK + + + + + + + + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Types::HelloType + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined complexType +HelloType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + +=head2 PROPERTIES + +The following properties may be accessed using get_PROPERTY / set_PROPERTY +methods: + +=over + +=item * EndpointReference + +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 * Types + +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 * Scopes + +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 * XAddrs + +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 * MetadataVersion + +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(): + + { # WSDiscovery10::Types::HelloType + EndpointReference => { # WSDiscovery10::Types::EndpointReferenceType + Address => { value => $some_value }, + ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType + }, + ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType + }, + PortType => { value => $some_value }, + ServiceName => { value => $some_value }, + }, + Types => $some_value, # QNameListType + Scopes => { value => $some_value }, + XAddrs => $some_value, # UriListType + MetadataVersion => $some_value, # unsignedInt + }, + + + + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/OpenRelationshipType.pm b/onvif/proxy/lib/WSDiscovery10/Types/OpenRelationshipType.pm new file mode 100644 index 000000000..45aab20e5 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/OpenRelationshipType.pm @@ -0,0 +1,76 @@ +package WSDiscovery10::Types::OpenRelationshipType; +use strict; +use warnings; + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery'}; + +# 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 or 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 +OpenRelationshipType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + +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 or +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 for more information. + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/ProbeMatchType.pm b/onvif/proxy/lib/WSDiscovery10/Types/ProbeMatchType.pm new file mode 100644 index 000000000..19bd18e88 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/ProbeMatchType.pm @@ -0,0 +1,182 @@ +package WSDiscovery10::Types::ProbeMatchType; +use strict; +use warnings; + + +__PACKAGE__->_set_element_form_qualified(0); + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }; + +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 %EndpointReference_of :ATTR(:get); +my %Types_of :ATTR(:get); +my %Scopes_of :ATTR(:get); +my %XAddrs_of :ATTR(:get); +my %MetadataVersion_of :ATTR(:get); + +__PACKAGE__->_factory( + [ qw( EndpointReference + Types + Scopes + XAddrs + MetadataVersion + + ) ], + { + 'EndpointReference' => \%EndpointReference_of, + 'Types' => \%Types_of, + 'Scopes' => \%Scopes_of, + 'XAddrs' => \%XAddrs_of, + 'MetadataVersion' => \%MetadataVersion_of, + }, + { + 'EndpointReference' => 'WSDiscovery10::Elements::EndpointReference', + + 'Types' => 'WSDiscovery10::Elements::Types', + + 'Scopes' => 'WSDiscovery10::Elements::Scopes', + + 'XAddrs' => 'WSDiscovery10::Elements::XAddrs', + + 'MetadataVersion' => 'WSDiscovery10::Elements::MetadataVersion', + + }, + { + + 'EndpointReference' => '', + 'Types' => '', + 'Scopes' => '', + 'XAddrs' => '', + 'MetadataVersion' => '', + } +); + +} # end BLOCK + + + + + + + + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Types::ProbeMatchType + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined complexType +ProbeMatchType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + +=head2 PROPERTIES + +The following properties may be accessed using get_PROPERTY / set_PROPERTY +methods: + +=over + +=item * EndpointReference + +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 * Types + +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 * Scopes + +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 * XAddrs + +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 * MetadataVersion + +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(): + + { # WSDiscovery10::Types::ProbeMatchType + EndpointReference => { # WSDiscovery10::Types::EndpointReferenceType + Address => { value => $some_value }, + ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType + }, + ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType + }, + PortType => { value => $some_value }, + ServiceName => { value => $some_value }, + }, + Types => $some_value, # QNameListType + Scopes => { value => $some_value }, + XAddrs => $some_value, # UriListType + MetadataVersion => $some_value, # unsignedInt + }, + + + + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/ProbeMatchesType.pm b/onvif/proxy/lib/WSDiscovery10/Types/ProbeMatchesType.pm new file mode 100644 index 000000000..20f101d03 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/ProbeMatchesType.pm @@ -0,0 +1,117 @@ +package WSDiscovery10::Types::ProbeMatchesType; +use strict; +use warnings; + + +__PACKAGE__->_set_element_form_qualified(0); + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }; + +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 %ProbeMatch_of :ATTR(:get); + +__PACKAGE__->_factory( + [ qw( ProbeMatch + + ) ], + { + 'ProbeMatch' => \%ProbeMatch_of, + }, + { + 'ProbeMatch' => 'WSDiscovery10::Types::ProbeMatchType', + }, + { + + 'ProbeMatch' => 'ProbeMatch', + } +); + +} # end BLOCK + + + + + + + + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Types::ProbeMatchesType + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined complexType +ProbeMatchesType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + +=head2 PROPERTIES + +The following properties may be accessed using get_PROPERTY / set_PROPERTY +methods: + +=over + +=item * ProbeMatch + + + + +=back + + +=head1 METHODS + +=head2 new + +Constructor. The following data structure may be passed to new(): + + { # WSDiscovery10::Types::ProbeMatchesType + ProbeMatch => { # WSDiscovery10::Types::ProbeMatchType + EndpointReference => { # WSDiscovery10::Types::EndpointReferenceType + Address => { value => $some_value }, + ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType + }, + ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType + }, + PortType => { value => $some_value }, + ServiceName => { value => $some_value }, + }, + Types => $some_value, # QNameListType + Scopes => { value => $some_value }, + XAddrs => $some_value, # UriListType + MetadataVersion => $some_value, # unsignedInt + }, + }, + + + + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/ProbeType.pm b/onvif/proxy/lib/WSDiscovery10/Types/ProbeType.pm new file mode 100644 index 000000000..10c290e8e --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/ProbeType.pm @@ -0,0 +1,126 @@ +package WSDiscovery10::Types::ProbeType; +use strict; +use warnings; + + +__PACKAGE__->_set_element_form_qualified(0); + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }; + +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 %Types_of :ATTR(:get); +my %Scopes_of :ATTR(:get); + +__PACKAGE__->_factory( + [ qw( Types + Scopes + + ) ], + { + 'Types' => \%Types_of, + 'Scopes' => \%Scopes_of, + }, + { + 'Types' => 'WSDiscovery10::Elements::Types', + + 'Scopes' => 'WSDiscovery10::Elements::Scopes', + + }, + { + + 'Types' => '', + 'Scopes' => '', + } +); + +} # end BLOCK + + + + + + + + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Types::ProbeType + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined complexType +ProbeType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + +=head2 PROPERTIES + +The following properties may be accessed using get_PROPERTY / set_PROPERTY +methods: + +=over + +=item * Types + +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 * Scopes + +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(): + + { # WSDiscovery10::Types::ProbeType + Types => $some_value, # QNameListType + Scopes => { value => $some_value }, + }, + + + + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/QNameListType.pm b/onvif/proxy/lib/WSDiscovery10/Types/QNameListType.pm new file mode 100644 index 000000000..79cffd694 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/QNameListType.pm @@ -0,0 +1,75 @@ +package WSDiscovery10::Types::QNameListType; +use strict; +use warnings; + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery'}; + + +# list derivation +use base qw( + SOAP::WSDL::XSD::Typelib::Builtin::list + SOAP::WSDL::XSD::Typelib::Builtin::QName +); + + + + + +1; + +__END__ + +=pod + +=head1 NAME + + + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined simpleType +QNameListType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + +This clase is derived from + SOAP::WSDL::XSD::Typelib::Builtin::QName +. + +You may pass the following structure to new(): + + [ $value_1, .. $value_n ] + +All elements of the list must be of the class' base type (or valid arguments +to it's constructor). + + + +=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 for more information. + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/ReferenceParametersType.pm b/onvif/proxy/lib/WSDiscovery10/Types/ReferenceParametersType.pm new file mode 100644 index 000000000..fd5987604 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/ReferenceParametersType.pm @@ -0,0 +1,94 @@ +package WSDiscovery10::Types::ReferenceParametersType; +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 + + +__PACKAGE__->_factory( + [ qw( + ) ], + { + }, + { + }, + { + + } +); + +} # end BLOCK + + + + + + + + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Types::ReferenceParametersType + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined complexType +ReferenceParametersType 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(): + + { # WSDiscovery10::Types::ReferenceParametersType + }, + + + + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/ReferencePropertiesType.pm b/onvif/proxy/lib/WSDiscovery10/Types/ReferencePropertiesType.pm new file mode 100644 index 000000000..9e3ba9add --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/ReferencePropertiesType.pm @@ -0,0 +1,94 @@ +package WSDiscovery10::Types::ReferencePropertiesType; +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 + + +__PACKAGE__->_factory( + [ qw( + ) ], + { + }, + { + }, + { + + } +); + +} # end BLOCK + + + + + + + + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Types::ReferencePropertiesType + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined complexType +ReferencePropertiesType 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(): + + { # WSDiscovery10::Types::ReferencePropertiesType + }, + + + + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/Relationship.pm b/onvif/proxy/lib/WSDiscovery10/Types/Relationship.pm new file mode 100644 index 000000000..3521517a8 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/Relationship.pm @@ -0,0 +1,118 @@ +package WSDiscovery10::Types::Relationship; +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::Relationship::_Relationship::XmlAttr'; + +sub __get_attr_class { + return $XML_ATTRIBUTE_CLASS; +} + +use base qw( + SOAP::WSDL::XSD::Typelib::ComplexType + SOAP::WSDL::XSD::Typelib::Builtin::anyURI +); + +package WSDiscovery10::Types::Relationship::_Relationship::XmlAttr; +use base qw(SOAP::WSDL::XSD::Typelib::AttributeSet); + +{ # BLOCK to scope variables + +my %RelationshipType_of :ATTR(:get); + +__PACKAGE__->_factory( + [ qw( + RelationshipType + ) ], + { + + RelationshipType => \%RelationshipType_of, + }, + { + RelationshipType => 'SOAP::WSDL::XSD::Typelib::Builtin::QName', + } +); + +} # end BLOCK + + + + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Types::Relationship + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined complexType +Relationship 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 method. + +attr() returns an object of the class WSDiscovery10::Types::Relationship::_Relationship::XmlAttr. + +The following attributes can be accessed on this object via the corresponding +get_/set_ methods: + +=over + +=item * RelationshipType + + + +This attribute is of type L. + + +=back + + + + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/RelationshipType.pm b/onvif/proxy/lib/WSDiscovery10/Types/RelationshipType.pm new file mode 100644 index 000000000..b9d902573 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/RelationshipType.pm @@ -0,0 +1,65 @@ +package WSDiscovery10::Types::RelationshipType; +use strict; +use warnings; + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery'}; + +# 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 +RelationshipType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + +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 for more information. + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/RelationshipTypeValues.pm b/onvif/proxy/lib/WSDiscovery10/Types/RelationshipTypeValues.pm new file mode 100644 index 000000000..125c4f2cd --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/RelationshipTypeValues.pm @@ -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 for more information. + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/ReplyAfterType.pm b/onvif/proxy/lib/WSDiscovery10/Types/ReplyAfterType.pm new file mode 100644 index 000000000..3f0c3ecf1 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/ReplyAfterType.pm @@ -0,0 +1,73 @@ +package WSDiscovery10::Types::ReplyAfterType; +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::ReplyAfterType + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined complexType +ReplyAfterType 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 + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/ResolveMatchType.pm b/onvif/proxy/lib/WSDiscovery10/Types/ResolveMatchType.pm new file mode 100644 index 000000000..08e885408 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/ResolveMatchType.pm @@ -0,0 +1,182 @@ +package WSDiscovery10::Types::ResolveMatchType; +use strict; +use warnings; + + +__PACKAGE__->_set_element_form_qualified(0); + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }; + +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 %EndpointReference_of :ATTR(:get); +my %Types_of :ATTR(:get); +my %Scopes_of :ATTR(:get); +my %XAddrs_of :ATTR(:get); +my %MetadataVersion_of :ATTR(:get); + +__PACKAGE__->_factory( + [ qw( EndpointReference + Types + Scopes + XAddrs + MetadataVersion + + ) ], + { + 'EndpointReference' => \%EndpointReference_of, + 'Types' => \%Types_of, + 'Scopes' => \%Scopes_of, + 'XAddrs' => \%XAddrs_of, + 'MetadataVersion' => \%MetadataVersion_of, + }, + { + 'EndpointReference' => 'WSDiscovery10::Elements::EndpointReference', + + 'Types' => 'WSDiscovery10::Elements::Types', + + 'Scopes' => 'WSDiscovery10::Elements::Scopes', + + 'XAddrs' => 'WSDiscovery10::Elements::XAddrs', + + 'MetadataVersion' => 'WSDiscovery10::Elements::MetadataVersion', + + }, + { + + 'EndpointReference' => '', + 'Types' => '', + 'Scopes' => '', + 'XAddrs' => '', + 'MetadataVersion' => '', + } +); + +} # end BLOCK + + + + + + + + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Types::ResolveMatchType + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined complexType +ResolveMatchType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + +=head2 PROPERTIES + +The following properties may be accessed using get_PROPERTY / set_PROPERTY +methods: + +=over + +=item * EndpointReference + +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 * Types + +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 * Scopes + +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 * XAddrs + +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 * MetadataVersion + +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(): + + { # WSDiscovery10::Types::ResolveMatchType + EndpointReference => { # WSDiscovery10::Types::EndpointReferenceType + Address => { value => $some_value }, + ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType + }, + ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType + }, + PortType => { value => $some_value }, + ServiceName => { value => $some_value }, + }, + Types => $some_value, # QNameListType + Scopes => { value => $some_value }, + XAddrs => $some_value, # UriListType + MetadataVersion => $some_value, # unsignedInt + }, + + + + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/ResolveMatchesType.pm b/onvif/proxy/lib/WSDiscovery10/Types/ResolveMatchesType.pm new file mode 100644 index 000000000..5ca08a7b1 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/ResolveMatchesType.pm @@ -0,0 +1,117 @@ +package WSDiscovery10::Types::ResolveMatchesType; +use strict; +use warnings; + + +__PACKAGE__->_set_element_form_qualified(0); + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }; + +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 %ResolveMatch_of :ATTR(:get); + +__PACKAGE__->_factory( + [ qw( ResolveMatch + + ) ], + { + 'ResolveMatch' => \%ResolveMatch_of, + }, + { + 'ResolveMatch' => 'WSDiscovery10::Types::ResolveMatchType', + }, + { + + 'ResolveMatch' => 'ResolveMatch', + } +); + +} # end BLOCK + + + + + + + + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Types::ResolveMatchesType + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined complexType +ResolveMatchesType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + +=head2 PROPERTIES + +The following properties may be accessed using get_PROPERTY / set_PROPERTY +methods: + +=over + +=item * ResolveMatch + + + + +=back + + +=head1 METHODS + +=head2 new + +Constructor. The following data structure may be passed to new(): + + { # WSDiscovery10::Types::ResolveMatchesType + ResolveMatch => { # WSDiscovery10::Types::ResolveMatchType + EndpointReference => { # WSDiscovery10::Types::EndpointReferenceType + Address => { value => $some_value }, + ReferenceProperties => { # WSDiscovery10::Types::ReferencePropertiesType + }, + ReferenceParameters => { # WSDiscovery10::Types::ReferenceParametersType + }, + PortType => { value => $some_value }, + ServiceName => { value => $some_value }, + }, + Types => $some_value, # QNameListType + Scopes => { value => $some_value }, + XAddrs => $some_value, # UriListType + MetadataVersion => $some_value, # unsignedInt + }, + }, + + + + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/ResolveType.pm b/onvif/proxy/lib/WSDiscovery10/Types/ResolveType.pm new file mode 100644 index 000000000..87e8e8dbd --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/ResolveType.pm @@ -0,0 +1,118 @@ +package WSDiscovery10::Types::ResolveType; +use strict; +use warnings; + + +__PACKAGE__->_set_element_form_qualified(0); + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }; + +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 %EndpointReference_of :ATTR(:get); + +__PACKAGE__->_factory( + [ qw( EndpointReference + + ) ], + { + 'EndpointReference' => \%EndpointReference_of, + }, + { + 'EndpointReference' => 'WSDiscovery10::Elements::EndpointReference', + + }, + { + + 'EndpointReference' => '', + } +); + +} # end BLOCK + + + + + + + + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Types::ResolveType + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined complexType +ResolveType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + +=head2 PROPERTIES + +The following properties may be accessed using get_PROPERTY / set_PROPERTY +methods: + +=over + +=item * EndpointReference + +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(): + + { # 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 + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/RetryAfterType.pm b/onvif/proxy/lib/WSDiscovery10/Types/RetryAfterType.pm new file mode 100644 index 000000000..a878dc46c --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/RetryAfterType.pm @@ -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 + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/ScopesType.pm b/onvif/proxy/lib/WSDiscovery10/Types/ScopesType.pm new file mode 100644 index 000000000..c92029bcd --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/ScopesType.pm @@ -0,0 +1,118 @@ +package WSDiscovery10::Types::ScopesType; +use strict; +use warnings; + + +__PACKAGE__->_set_element_form_qualified(0); + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }; + +our $XML_ATTRIBUTE_CLASS = 'WSDiscovery10::Types::ScopesType::_ScopesType::XmlAttr'; + +sub __get_attr_class { + return $XML_ATTRIBUTE_CLASS; +} + +use base qw( + SOAP::WSDL::XSD::Typelib::ComplexType + WSDiscovery10::Types::UriListType +); + +package WSDiscovery10::Types::ScopesType::_ScopesType::XmlAttr; +use base qw(SOAP::WSDL::XSD::Typelib::AttributeSet); + +{ # BLOCK to scope variables + +my %MatchBy_of :ATTR(:get); + +__PACKAGE__->_factory( + [ qw( + MatchBy + ) ], + { + + MatchBy => \%MatchBy_of, + }, + { + MatchBy => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI', + } +); + +} # end BLOCK + + + + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Types::ScopesType + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined complexType +ScopesType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + +=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 method. + +attr() returns an object of the class WSDiscovery10::Types::ScopesType::_ScopesType::XmlAttr. + +The following attributes can be accessed on this object via the corresponding +get_/set_ methods: + +=over + +=item * MatchBy + + + +This attribute is of type L. + + +=back + + + + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/SecurityType.pm b/onvif/proxy/lib/WSDiscovery10/Types/SecurityType.pm new file mode 100644 index 000000000..01b18d2df --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/SecurityType.pm @@ -0,0 +1,111 @@ +package WSDiscovery10::Types::SecurityType; +use strict; +use warnings; + + +__PACKAGE__->_set_element_form_qualified(0); + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }; + +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 %Sig_of :ATTR(:get); + +__PACKAGE__->_factory( + [ qw( Sig + + ) ], + { + 'Sig' => \%Sig_of, + }, + { + 'Sig' => 'WSDiscovery10::Elements::Sig', + + }, + { + + 'Sig' => '', + } +); + +} # end BLOCK + + + + + + + + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Types::SecurityType + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined complexType +SecurityType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + +=head2 PROPERTIES + +The following properties may be accessed using get_PROPERTY / set_PROPERTY +methods: + +=over + +=item * Sig + +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(): + + { # WSDiscovery10::Types::SecurityType + Sig => { # WSDiscovery10::Types::SigType + }, + }, + + + + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/ServiceNameType.pm b/onvif/proxy/lib/WSDiscovery10/Types/ServiceNameType.pm new file mode 100644 index 000000000..d83e40608 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/ServiceNameType.pm @@ -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); + +__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 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. + + +=back + + + + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/SigType.pm b/onvif/proxy/lib/WSDiscovery10/Types/SigType.pm new file mode 100644 index 000000000..3db2ddcc5 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/SigType.pm @@ -0,0 +1,172 @@ +package WSDiscovery10::Types::SigType; +use strict; +use warnings; + + +__PACKAGE__->_set_element_form_qualified(0); + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery' }; + +our $XML_ATTRIBUTE_CLASS = 'WSDiscovery10::Types::SigType::_SigType::XmlAttr'; + +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 + + +__PACKAGE__->_factory( + [ qw( + ) ], + { + }, + { + }, + { + + } +); + +} # end BLOCK + + + + +package WSDiscovery10::Types::SigType::_SigType::XmlAttr; +use base qw(SOAP::WSDL::XSD::Typelib::AttributeSet); + +{ # BLOCK to scope variables + +my %Scheme_of :ATTR(:get); +my %KeyId_of :ATTR(:get); +my %Refs_of :ATTR(:get); +my %Sig_of :ATTR(:get); + +__PACKAGE__->_factory( + [ qw( + Scheme + KeyId + Refs + Sig + ) ], + { + + Scheme => \%Scheme_of, + + KeyId => \%KeyId_of, + + Refs => \%Refs_of, + + Sig => \%Sig_of, + }, + { + Scheme => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI', + KeyId => 'SOAP::WSDL::XSD::Typelib::Builtin::base64Binary', + Refs => 'SOAP::WSDL::XSD::Typelib::Builtin::IDREFS', + Sig => 'SOAP::WSDL::XSD::Typelib::Builtin::base64Binary', + } +); + +} # end BLOCK + + + + +1; + + +=pod + +=head1 NAME + +WSDiscovery10::Types::SigType + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined complexType +SigType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + + +=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(): + + { # WSDiscovery10::Types::SigType + }, + + + +=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 method. + +attr() returns an object of the class WSDiscovery10::Types::SigType::_SigType::XmlAttr. + +The following attributes can be accessed on this object via the corresponding +get_/set_ methods: + +=over + +=item * Scheme + + + +This attribute is of type L. + +=item * KeyId + + + +This attribute is of type L. + +=item * Refs + + + +This attribute is of type L. + +=item * Sig + + + +This attribute is of type L. + + +=back + + + + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery10/Types/UriListType.pm b/onvif/proxy/lib/WSDiscovery10/Types/UriListType.pm new file mode 100644 index 000000000..c59a32f37 --- /dev/null +++ b/onvif/proxy/lib/WSDiscovery10/Types/UriListType.pm @@ -0,0 +1,75 @@ +package WSDiscovery10::Types::UriListType; +use strict; +use warnings; + +sub get_xmlns { 'http://schemas.xmlsoap.org/ws/2005/04/discovery'}; + + +# list derivation +use base qw( + SOAP::WSDL::XSD::Typelib::Builtin::list + SOAP::WSDL::XSD::Typelib::Builtin::anyURI +); + + + + + +1; + +__END__ + +=pod + +=head1 NAME + + + +=head1 DESCRIPTION + +Perl data type class for the XML Schema defined simpleType +UriListType from the namespace http://schemas.xmlsoap.org/ws/2005/04/discovery. + + + + + +This clase is derived from + SOAP::WSDL::XSD::Typelib::Builtin::anyURI +. + +You may pass the following structure to new(): + + [ $value_1, .. $value_n ] + +All elements of the list must be of the class' base type (or valid arguments +to it's constructor). + + + +=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 for more information. + +=head1 AUTHOR + +Generated by SOAP::WSDL + +=cut + diff --git a/onvif/proxy/lib/WSDiscovery/Attributes/Id.pm b/onvif/proxy/lib/WSDiscovery11/Attributes/Id.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Attributes/Id.pm rename to onvif/proxy/lib/WSDiscovery11/Attributes/Id.pm diff --git a/onvif/proxy/lib/WSDiscovery/Attributes/IsReferenceParameter.pm b/onvif/proxy/lib/WSDiscovery11/Attributes/IsReferenceParameter.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Attributes/IsReferenceParameter.pm rename to onvif/proxy/lib/WSDiscovery11/Attributes/IsReferenceParameter.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/Action.pm b/onvif/proxy/lib/WSDiscovery11/Elements/Action.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/Action.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/Action.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/AppSequence.pm b/onvif/proxy/lib/WSDiscovery11/Elements/AppSequence.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/AppSequence.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/AppSequence.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/Bye.pm b/onvif/proxy/lib/WSDiscovery11/Elements/Bye.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/Bye.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/Bye.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/EndpointReference.pm b/onvif/proxy/lib/WSDiscovery11/Elements/EndpointReference.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/EndpointReference.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/EndpointReference.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/FaultTo.pm b/onvif/proxy/lib/WSDiscovery11/Elements/FaultTo.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/FaultTo.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/FaultTo.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/From.pm b/onvif/proxy/lib/WSDiscovery11/Elements/From.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/From.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/From.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/Hello.pm b/onvif/proxy/lib/WSDiscovery11/Elements/Hello.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/Hello.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/Hello.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/MessageID.pm b/onvif/proxy/lib/WSDiscovery11/Elements/MessageID.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/MessageID.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/MessageID.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/Metadata.pm b/onvif/proxy/lib/WSDiscovery11/Elements/Metadata.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/Metadata.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/Metadata.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/MetadataVersion.pm b/onvif/proxy/lib/WSDiscovery11/Elements/MetadataVersion.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/MetadataVersion.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/MetadataVersion.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/Probe.pm b/onvif/proxy/lib/WSDiscovery11/Elements/Probe.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/Probe.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/Probe.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/ProbeMatches.pm b/onvif/proxy/lib/WSDiscovery11/Elements/ProbeMatches.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/ProbeMatches.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/ProbeMatches.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/ProblemAction.pm b/onvif/proxy/lib/WSDiscovery11/Elements/ProblemAction.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/ProblemAction.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/ProblemAction.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/ProblemHeaderQName.pm b/onvif/proxy/lib/WSDiscovery11/Elements/ProblemHeaderQName.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/ProblemHeaderQName.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/ProblemHeaderQName.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/ProblemIRI.pm b/onvif/proxy/lib/WSDiscovery11/Elements/ProblemIRI.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/ProblemIRI.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/ProblemIRI.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/ReferenceParameters.pm b/onvif/proxy/lib/WSDiscovery11/Elements/ReferenceParameters.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/ReferenceParameters.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/ReferenceParameters.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/RelatesTo.pm b/onvif/proxy/lib/WSDiscovery11/Elements/RelatesTo.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/RelatesTo.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/RelatesTo.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/ReplyTo.pm b/onvif/proxy/lib/WSDiscovery11/Elements/ReplyTo.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/ReplyTo.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/ReplyTo.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/Resolve.pm b/onvif/proxy/lib/WSDiscovery11/Elements/Resolve.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/Resolve.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/Resolve.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/ResolveMatches.pm b/onvif/proxy/lib/WSDiscovery11/Elements/ResolveMatches.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/ResolveMatches.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/ResolveMatches.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/RetryAfter.pm b/onvif/proxy/lib/WSDiscovery11/Elements/RetryAfter.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/RetryAfter.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/RetryAfter.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/Scopes.pm b/onvif/proxy/lib/WSDiscovery11/Elements/Scopes.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/Scopes.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/Scopes.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/Security.pm b/onvif/proxy/lib/WSDiscovery11/Elements/Security.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/Security.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/Security.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/Sig.pm b/onvif/proxy/lib/WSDiscovery11/Elements/Sig.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/Sig.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/Sig.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/SupportedMatchingRules.pm b/onvif/proxy/lib/WSDiscovery11/Elements/SupportedMatchingRules.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/SupportedMatchingRules.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/SupportedMatchingRules.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/To.pm b/onvif/proxy/lib/WSDiscovery11/Elements/To.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/To.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/To.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/Types.pm b/onvif/proxy/lib/WSDiscovery11/Elements/Types.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/Types.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/Types.pm diff --git a/onvif/proxy/lib/WSDiscovery/Elements/XAddrs.pm b/onvif/proxy/lib/WSDiscovery11/Elements/XAddrs.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Elements/XAddrs.pm rename to onvif/proxy/lib/WSDiscovery11/Elements/XAddrs.pm diff --git a/onvif/proxy/lib/WSDiscovery/Interfaces/WSDiscovery/WSDiscoveryPort.pm b/onvif/proxy/lib/WSDiscovery11/Interfaces/WSDiscovery/WSDiscoveryPort.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Interfaces/WSDiscovery/WSDiscoveryPort.pm rename to onvif/proxy/lib/WSDiscovery11/Interfaces/WSDiscovery/WSDiscoveryPort.pm diff --git a/onvif/proxy/lib/WSDiscovery/Typemaps/WSDiscovery.pm b/onvif/proxy/lib/WSDiscovery11/Typemaps/WSDiscovery.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Typemaps/WSDiscovery.pm rename to onvif/proxy/lib/WSDiscovery11/Typemaps/WSDiscovery.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/AppSequenceType.pm b/onvif/proxy/lib/WSDiscovery11/Types/AppSequenceType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/AppSequenceType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/AppSequenceType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/AttributedQNameType.pm b/onvif/proxy/lib/WSDiscovery11/Types/AttributedQNameType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/AttributedQNameType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/AttributedQNameType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/AttributedURIType.pm b/onvif/proxy/lib/WSDiscovery11/Types/AttributedURIType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/AttributedURIType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/AttributedURIType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/AttributedUnsignedLongType.pm b/onvif/proxy/lib/WSDiscovery11/Types/AttributedUnsignedLongType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/AttributedUnsignedLongType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/AttributedUnsignedLongType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/ByeType.pm b/onvif/proxy/lib/WSDiscovery11/Types/ByeType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/ByeType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/ByeType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/EndpointReferenceType.pm b/onvif/proxy/lib/WSDiscovery11/Types/EndpointReferenceType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/EndpointReferenceType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/EndpointReferenceType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/FaultCodeOpenType.pm b/onvif/proxy/lib/WSDiscovery11/Types/FaultCodeOpenType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/FaultCodeOpenType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/FaultCodeOpenType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/FaultCodeType.pm b/onvif/proxy/lib/WSDiscovery11/Types/FaultCodeType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/FaultCodeType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/FaultCodeType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/FaultCodesOpenEnumType.pm b/onvif/proxy/lib/WSDiscovery11/Types/FaultCodesOpenEnumType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/FaultCodesOpenEnumType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/FaultCodesOpenEnumType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/FaultCodesType.pm b/onvif/proxy/lib/WSDiscovery11/Types/FaultCodesType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/FaultCodesType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/FaultCodesType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/HelloType.pm b/onvif/proxy/lib/WSDiscovery11/Types/HelloType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/HelloType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/HelloType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/MetadataType.pm b/onvif/proxy/lib/WSDiscovery11/Types/MetadataType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/MetadataType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/MetadataType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/ProbeMatchType.pm b/onvif/proxy/lib/WSDiscovery11/Types/ProbeMatchType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/ProbeMatchType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/ProbeMatchType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/ProbeMatchesType.pm b/onvif/proxy/lib/WSDiscovery11/Types/ProbeMatchesType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/ProbeMatchesType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/ProbeMatchesType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/ProbeType.pm b/onvif/proxy/lib/WSDiscovery11/Types/ProbeType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/ProbeType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/ProbeType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/ProblemActionType.pm b/onvif/proxy/lib/WSDiscovery11/Types/ProblemActionType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/ProblemActionType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/ProblemActionType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/QNameListType.pm b/onvif/proxy/lib/WSDiscovery11/Types/QNameListType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/QNameListType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/QNameListType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/ReferenceParametersType.pm b/onvif/proxy/lib/WSDiscovery11/Types/ReferenceParametersType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/ReferenceParametersType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/ReferenceParametersType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/RelatesToType.pm b/onvif/proxy/lib/WSDiscovery11/Types/RelatesToType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/RelatesToType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/RelatesToType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/RelationshipType.pm b/onvif/proxy/lib/WSDiscovery11/Types/RelationshipType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/RelationshipType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/RelationshipType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/RelationshipTypeOpenEnum.pm b/onvif/proxy/lib/WSDiscovery11/Types/RelationshipTypeOpenEnum.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/RelationshipTypeOpenEnum.pm rename to onvif/proxy/lib/WSDiscovery11/Types/RelationshipTypeOpenEnum.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/ResolveMatchType.pm b/onvif/proxy/lib/WSDiscovery11/Types/ResolveMatchType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/ResolveMatchType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/ResolveMatchType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/ResolveMatchesType.pm b/onvif/proxy/lib/WSDiscovery11/Types/ResolveMatchesType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/ResolveMatchesType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/ResolveMatchesType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/ResolveType.pm b/onvif/proxy/lib/WSDiscovery11/Types/ResolveType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/ResolveType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/ResolveType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/ScopesType.pm b/onvif/proxy/lib/WSDiscovery11/Types/ScopesType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/ScopesType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/ScopesType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/SecurityType.pm b/onvif/proxy/lib/WSDiscovery11/Types/SecurityType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/SecurityType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/SecurityType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/SigType.pm b/onvif/proxy/lib/WSDiscovery11/Types/SigType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/SigType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/SigType.pm diff --git a/onvif/proxy/lib/WSDiscovery/Types/UriListType.pm b/onvif/proxy/lib/WSDiscovery11/Types/UriListType.pm similarity index 100% rename from onvif/proxy/lib/WSDiscovery/Types/UriListType.pm rename to onvif/proxy/lib/WSDiscovery11/Types/UriListType.pm diff --git a/onvif/scripts/zmonvif-probe.pl b/onvif/scripts/zmonvif-probe.pl index fb550f475..f38657eec 100755 --- a/onvif/scripts/zmonvif-probe.pl +++ b/onvif/scripts/zmonvif-probe.pl @@ -28,9 +28,9 @@ use Getopt::Std; require ONVIF::Client; -require WSDiscovery::Interfaces::WSDiscovery::WSDiscoveryPort; -require WSDiscovery::Elements::Types; -require WSDiscovery::Elements::Scopes; +require WSDiscovery10::Interfaces::WSDiscovery::WSDiscoveryPort; +require WSDiscovery10::Elements::Types; +require WSDiscovery10::Elements::Scopes; require WSDiscovery::TransportUDP; @@ -95,7 +95,9 @@ sub deserialize_message sub interpret_messages { - my ($svc_discover, @responses, %services) = @_; + my ($svc_discover, $responses_ref, $services_ref) = @_; + my @responses = @$responses_ref; + my %services = %$services_ref; foreach my $response ( @responses ) { diff --git a/onvif/scripts/zmonvif-trigger.pl b/onvif/scripts/zmonvif-trigger.pl index 306647fa7..1d1c2c325 100755 --- a/onvif/scripts/zmonvif-trigger.pl +++ b/onvif/scripts/zmonvif-trigger.pl @@ -77,7 +77,7 @@ my $monitor_reload_time = 0; # this does not work on all architectures my @EXTRA_SOCK_OPTS = ( 'ReuseAddr' => '1', - 'ReusePort' => '1', +# 'ReusePort' => '1', # 'Blocking' => '0', ); @@ -87,7 +87,7 @@ my @EXTRA_SOCK_OPTS = ( sub handler { # 1st argument is signal name my($sig) = @_; - print "Caught a SIG$sig -- shutting down\n"; + Error( "Caught a SIG$sig -- shutting down\n" ); confess(); if(defined $daemon_pid){ kill($daemon_pid); @@ -209,7 +209,7 @@ sub xs_duration sub loadMonitors { my ($self) = @_; - Debug( "Loading monitors\n" ); + Info( "Loading monitors\n" ); $monitor_reload_time = time(); my %new_monitors = (); @@ -226,12 +226,8 @@ sub xs_duration next if ( !zmMemVerify( $monitor ) ); } } -#$monitor->{MMapAddr} = undef; -#memAttach( $monitor, 896 ); -#next if ( !zmMemVerify( $monitor ) ); -#main::dump_mapped($monitor); - print "URL: " .$monitor->{ConfigURL}. "\n"; + Info( "Monitor URL: " .$monitor->{ConfigURL} ."\n" ); ## set up ONVIF client for monitor next if( ! $monitor->{ConfigURL} ); @@ -274,11 +270,14 @@ sub xs_duration { my ($self, $monitorId, $score, $cause, $text, $showtext) = @_; # Info( "Trigger '$trigger'\n" ); - print "On: $monitorId, $score, $cause, $text, $showtext\n"; + Info( "On: $monitorId, $score, $cause, $text, $showtext\n" ); my %monitors = $self->monitors(); my $monitor = $monitors{$monitorId}; if(defined $script) { - system($script, 'On', $monitor->{Name}, $monitor->{Path}, $cause); +# eval { + system($script, 'On', $monitor->{Name}, $monitor->{Path}, $cause); + # this goes to "stopped" in ffmpeg when executed from shell - why? +# } } else { # encode() ensures that no utf-8 is written to mmap'ed memory. @@ -291,11 +290,13 @@ sub xs_duration sub eventOff { my ($self, $monitorId, $score, $cause, $text, $showtext) = @_; - print "Off: $monitorId, $score, $cause, $text, $showtext\n"; + Info( "Off: $monitorId, $score, $cause, $text, $showtext\n" ); my %monitors = $self->monitors(); my $monitor = $monitors{$monitorId}; if(defined $script) { - system($script, 'Off', $monitor->{Name}, $monitor->{Path}, $cause); +# eval { + system($script, 'Off', $monitor->{Name}, $monitor->{Path}, $cause); +# } } else { my $last_event = zmGetLastEvent( $monitor ); @@ -336,6 +337,8 @@ $SOAP::Constants::DO_NOT_CHECK_MUSTUNDERSTAND = 1; use bytes; use base qw(Class::Std::Fast SOAP::Server::Parameters); + use ZoneMinder; + my $zm; sub BUILD { @@ -350,7 +353,7 @@ $SOAP::Constants::DO_NOT_CHECK_MUSTUNDERSTAND = 1; sub Notify { my ($self, $unknown, $som) = @_; - print "### Notify " . "\n"; + Debug( "### Notify\n" ); my $req = $som->context->request; # Data::Dump::dump($req); my $id = 0; @@ -358,12 +361,12 @@ $SOAP::Constants::DO_NOT_CHECK_MUSTUNDERSTAND = 1; $id = $1; } else { - print "Unknown URL ". $req->uri->path . "\n"; + Warn( "Unknown URL ". $req->uri->path . " called by event\n" ); return ( ); } # Data::Dump::dump($som); my $action = $som->valueof("/Envelope/Header/Action"); - print " Action = ". $action ."\n"; + Debug( " Action = ". $action ."\n" ); my $msg = $som->match("/Envelope/Body/Notify/NotificationMessage"); my $topic = $msg->valueof("Topic"); my $msg2 = $msg->match("Message/Message"); @@ -378,7 +381,7 @@ $SOAP::Constants::DO_NOT_CHECK_MUSTUNDERSTAND = 1; foreach my $item ($msg2->dataof('Data/SimpleItem')) { $data{$item->attr->{Name}} = $item->attr->{Value}; } - print "Ref=$id, Topic=$topic, $time, Rule=$source{Rule}, isMotion=$data{IsMotion}\n"; + Debug( "Ref=$id, Topic=$topic, $time, Rule=$source{Rule}, isMotion=$data{IsMotion}\n" ); if(lc($data{IsMotion}) eq "true") { $zm->eventOn($id, 100, $source{Rule}, $time); } @@ -417,11 +420,11 @@ sub daemon_main $daemon->request($request); $daemon->SOAP::Transport::HTTP::Server::handle(); eval { - local $SIG{PIPE} = sub {die "SIGPIPE"}; + local $SIG{PIPE} = sub { print( "SIGPIPE\n" ) }; # die? $connection->send_response( $daemon->response ); }; if ($@ && $@ !~ /^SIGPIPE/) { - die $@; + print( $@ ); # die? } } else { @@ -471,6 +474,12 @@ sub start_daemon $daemon_pid = fork(); die "fork() failed: $!" unless defined $daemon_pid; if ($daemon_pid) { + + # this is a new process --> use new name and log file + $0 = "$0 [http-daemon]"; + logInit( 'id' => "zmonvif-trigger-httpd" ); + logSetSignal(); + # $zm is copied and the mmap'ed regions still exist my $consumer = _Consumer->new({'zm' => $zm}); $daemon->dispatch_with({ @@ -531,7 +540,7 @@ sub subscribe ### build Subscription Manager my $submgr_addr = $result->get_SubscriptionReference()->get_Address()->get_value(); - print "Subscription Manager at $submgr_addr\n"; + Info( "Subscription Manager at $submgr_addr\n" ); my $serializer = $client->service('device', 'ep')->get_serializer(); @@ -573,7 +582,7 @@ sub events my %monitors = $zm->monitors(); my $monitor_count = scalar keys(%monitors); if($monitor_count == 0) { - print("No active ONVIF monitors found. Exiting\n"); + Warn("No active ONVIF monitors found. Exiting\n"); return; } else { @@ -608,7 +617,7 @@ sub events $port =~ s|/.*$||; my $localaddr = $localip . ':' . $port; - print "Daemon uses local address " . $localaddr . "\n"; + Info( "Daemon uses local address " . $localaddr ."\n" ); # This value is passed as the LocalAddr argument to IO::Socket::INET. my $transport = SOAP::Transport::HTTP::Client->new( @@ -628,7 +637,7 @@ sub events SUBSCRIPTION_RENEW_INTERVAL, $monitor->{Id}); if(!$submgr_svc) { - print "Subscription failed\n"; + Warn( "Subscription failed for monitor #" .$monitor->{Id} ."\n" ); next; } @@ -636,9 +645,9 @@ sub events } while(1) { - print "Sleeping for " . (SUBSCRIPTION_RENEW_INTERVAL - SUBSCRIPTION_RENEW_EARLY) . " seconds\n"; + Info( "Sleeping for " . (SUBSCRIPTION_RENEW_INTERVAL - SUBSCRIPTION_RENEW_EARLY) . " seconds\n" ); sleep(SUBSCRIPTION_RENEW_INTERVAL - SUBSCRIPTION_RENEW_EARLY); - print "Renewal\n"; + Info( "Renewal\n" ); my %monitors = $zm->monitors(); foreach my $monitor (values(%monitors)) { if(defined $monitor->{submgr_svc}) { @@ -677,6 +686,10 @@ EOF my ($localaddr, $localip, $localport); +# canonicalize command name +my $command = $0; +$0 = $command; + logInit(); logSetSignal(); diff --git a/web/lang/en_gb.php b/web/lang/en_gb.php index 246a62b1a..327cfc30a 100644 --- a/web/lang/en_gb.php +++ b/web/lang/en_gb.php @@ -336,6 +336,7 @@ $SLANG = array( 'FnRecord' => 'Record', // Added 2013.08.16. 'FnMocord' => 'Mocord', // Added 2013.08.16. 'FnNodect' => 'Nodect', // Added 2013.08.16. + 'FnExtdect' => 'Extdect', // Added 2014.12.14. 'Focus' => 'Focus', 'ForceAlarm' => 'Force Alarm', 'Format' => 'Format', diff --git a/web/skins/classic/views/onvifprobe.php b/web/skins/classic/views/onvifprobe.php index 22c365296..20b44f057 100644 --- a/web/skins/classic/views/onvifprobe.php +++ b/web/skins/classic/views/onvifprobe.php @@ -30,11 +30,20 @@ $cameras[0] = $SLANG['ChooseDetectedCamera']; function execONVIF( $cmd ) { - exec( escapeshellcmd(ZM_PATH_BIN . "/zmonvif-probe.pl $cmd"), $output, $status ); - - if ( $status ) + my $program = ZM_PATH_BIN . "/zmonvif-probe.pl"; + exec( escapeshellcmd("$program $cmd"), $output, $status ); Fatal( "Unable to probe network cameras, status is '$status'" ); - + + if ( $status == -1 ) { + Fatal( "Failed to execute: $program\n"); + } + elsif ($status & 127) { + Fatal( "Unable to probe network cameras. Signal %d, %s coredump\n", + ($status & 127), ($status & 128) ? 'with' : 'without' ); + } + else { + Fatal( "Unable to probe network cameras (%d)\n", $status >> 8 ); + } return $output; } @@ -58,6 +67,8 @@ function probeCameras( $localIp ) 'Type' => 'Ffmpeg', 'Host' => $device_ep, 'SOAP' => $soapversion, + 'ConfigURL' => $device_ep, + 'ConfigOptions' => 'SOAP' . $soapversion, ), ); foreach ( preg_split('|,\s*|', $matches[3]) as $attr_val ) {