diff options
34 files changed, 3 insertions, 3123 deletions
@@ -90,9 +90,6 @@ requires 'YAML'; feature 'uk', 'FixMyStreet.com specific requirements' => sub { # East Hampshire requires 'SOAP::Lite'; - # Barnet - # TODO: This can perhaps be removed since Barnet switched to email for problem reports - requires 'SOAP::WSDL'; }; feature 'open311-endpoint', 'Open311::Endpoint specific requirements' => sub { @@ -105,7 +102,7 @@ feature 'open311-endpoint', 'Open311::Endpoint specific requirements' => sub { }; feature 'zurich', 'Zueri wie neu specific requirements' => sub { -# # Geocoder + # Geocoder requires 'SOAP::Lite'; }; diff --git a/perllib/BarnetElements/Z_CRM_SERVICE_ORDER_CREATE.pm b/perllib/BarnetElements/Z_CRM_SERVICE_ORDER_CREATE.pm deleted file mode 100644 index 2c398ab1b..000000000 --- a/perllib/BarnetElements/Z_CRM_SERVICE_ORDER_CREATE.pm +++ /dev/null @@ -1,248 +0,0 @@ - -package BarnetElements::Z_CRM_SERVICE_ORDER_CREATE; -use strict; -use warnings; - -{ # BLOCK to scope variables - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions' } - -__PACKAGE__->__set_name('Z_CRM_SERVICE_ORDER_CREATE'); -__PACKAGE__->__set_nillable(); -__PACKAGE__->__set_minOccurs(); -__PACKAGE__->__set_maxOccurs(); -__PACKAGE__->__set_ref(); - -use base qw( - SOAP::WSDL::XSD::Typelib::Element - SOAP::WSDL::XSD::Typelib::ComplexType -); - -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 %ET_RETURN_of :ATTR(:get<ET_RETURN>); -my %IT_PROBLEM_DESC_of :ATTR(:get<IT_PROBLEM_DESC>); -my %IV_CUST_EMAIL_of :ATTR(:get<IV_CUST_EMAIL>); -my %IV_CUST_NAME_of :ATTR(:get<IV_CUST_NAME>); -my %IV_KBID_of :ATTR(:get<IV_KBID>); -my %IV_PROBLEM_ID_of :ATTR(:get<IV_PROBLEM_ID>); -my %IV_PROBLEM_LOC_of :ATTR(:get<IV_PROBLEM_LOC>); -my %IV_PROBLEM_SUB_of :ATTR(:get<IV_PROBLEM_SUB>); - -__PACKAGE__->_factory( - [ qw( ET_RETURN - IT_PROBLEM_DESC - IV_CUST_EMAIL - IV_CUST_NAME - IV_KBID - IV_PROBLEM_ID - IV_PROBLEM_LOC - IV_PROBLEM_SUB - - ) ], - { - 'ET_RETURN' => \%ET_RETURN_of, - 'IT_PROBLEM_DESC' => \%IT_PROBLEM_DESC_of, - 'IV_CUST_EMAIL' => \%IV_CUST_EMAIL_of, - 'IV_CUST_NAME' => \%IV_CUST_NAME_of, - 'IV_KBID' => \%IV_KBID_of, - 'IV_PROBLEM_ID' => \%IV_PROBLEM_ID_of, - 'IV_PROBLEM_LOC' => \%IV_PROBLEM_LOC_of, - 'IV_PROBLEM_SUB' => \%IV_PROBLEM_SUB_of, - }, - { - 'ET_RETURN' => 'BarnetTypes::TABLE_OF_BAPIRET2', - 'IT_PROBLEM_DESC' => 'BarnetTypes::TABLE_OF_CRMT_SERVICE_REQUEST_TEXT', - 'IV_CUST_EMAIL' => 'BarnetTypes::char241', - 'IV_CUST_NAME' => 'BarnetTypes::char50', - 'IV_KBID' => 'BarnetTypes::char50', - 'IV_PROBLEM_ID' => 'BarnetTypes::char35', - 'IV_PROBLEM_LOC' => 'BarnetTypes::BAPI_TTET_ADDRESS_COM', - 'IV_PROBLEM_SUB' => 'BarnetTypes::char40', - }, - { - - 'ET_RETURN' => 'ET_RETURN', - 'IT_PROBLEM_DESC' => 'IT_PROBLEM_DESC', - 'IV_CUST_EMAIL' => 'IV_CUST_EMAIL', - 'IV_CUST_NAME' => 'IV_CUST_NAME', - 'IV_KBID' => 'IV_KBID', - 'IV_PROBLEM_ID' => 'IV_PROBLEM_ID', - 'IV_PROBLEM_LOC' => 'IV_PROBLEM_LOC', - 'IV_PROBLEM_SUB' => 'IV_PROBLEM_SUB', - } -); - -} # end BLOCK - - - - - - -} # end of BLOCK - - - -1; - - -=pod - -=head1 NAME - -BarnetElements::Z_CRM_SERVICE_ORDER_CREATE - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined element -Z_CRM_SERVICE_ORDER_CREATE from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - - - -=head1 PROPERTIES - -The following properties may be accessed using get_PROPERTY / set_PROPERTY -methods: - -=over - -=item * ET_RETURN - - $element->set_ET_RETURN($data); - $element->get_ET_RETURN(); - - - - -=item * IT_PROBLEM_DESC - - $element->set_IT_PROBLEM_DESC($data); - $element->get_IT_PROBLEM_DESC(); - - - - -=item * IV_CUST_EMAIL - - $element->set_IV_CUST_EMAIL($data); - $element->get_IV_CUST_EMAIL(); - - - - -=item * IV_CUST_NAME - - $element->set_IV_CUST_NAME($data); - $element->get_IV_CUST_NAME(); - - - - -=item * IV_KBID - - $element->set_IV_KBID($data); - $element->get_IV_KBID(); - - - - -=item * IV_PROBLEM_ID - - $element->set_IV_PROBLEM_ID($data); - $element->get_IV_PROBLEM_ID(); - - - - -=item * IV_PROBLEM_LOC - - $element->set_IV_PROBLEM_LOC($data); - $element->get_IV_PROBLEM_LOC(); - - - - -=item * IV_PROBLEM_SUB - - $element->set_IV_PROBLEM_SUB($data); - $element->get_IV_PROBLEM_SUB(); - - - - - -=back - - -=head1 METHODS - -=head2 new - - my $element = BarnetElements::Z_CRM_SERVICE_ORDER_CREATE->new($data); - -Constructor. The following data structure may be passed to new(): - - { - ET_RETURN => { # BarnetTypes::TABLE_OF_BAPIRET2 - item => { # BarnetTypes::BAPIRET2 - TYPE => $some_value, # char1 - ID => $some_value, # char20 - NUMBER => $some_value, # numeric3 - MESSAGE => $some_value, # char220 - LOG_NO => $some_value, # char20 - LOG_MSG_NO => $some_value, # numeric6 - MESSAGE_V1 => $some_value, # char50 - MESSAGE_V2 => $some_value, # char50 - MESSAGE_V3 => $some_value, # char50 - MESSAGE_V4 => $some_value, # char50 - PARAMETER => $some_value, # char32 - ROW => $some_value, # int - FIELD => $some_value, # char30 - SYSTEM => $some_value, # char10 - }, - }, - IT_PROBLEM_DESC => { # BarnetTypes::TABLE_OF_CRMT_SERVICE_REQUEST_TEXT - item => { # BarnetTypes::CRMT_SERVICE_REQUEST_TEXT - TEXT_LINE => $some_value, # char132 - }, - }, - IV_CUST_EMAIL => $some_value, # char241 - IV_CUST_NAME => $some_value, # char50 - IV_KBID => $some_value, # char50 - IV_PROBLEM_ID => $some_value, # char35 - IV_PROBLEM_LOC => { # BarnetTypes::BAPI_TTET_ADDRESS_COM - COUNTRY2 => $some_value, # char2 - REGION => $some_value, # char3 - COUNTY => $some_value, # char30 - CITY => $some_value, # char30 - POSTALCODE => $some_value, # char10 - STREET => $some_value, # char30 - STREETNUMBER => $some_value, # char5 - GEOCODE => $some_value, # char32 - }, - IV_PROBLEM_SUB => $some_value, # char40 - }, - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetElements/Z_CRM_SERVICE_ORDER_CREATE/Exception.pm b/perllib/BarnetElements/Z_CRM_SERVICE_ORDER_CREATE/Exception.pm deleted file mode 100644 index ae95d3234..000000000 --- a/perllib/BarnetElements/Z_CRM_SERVICE_ORDER_CREATE/Exception.pm +++ /dev/null @@ -1,64 +0,0 @@ - -package BarnetElements::Z_CRM_SERVICE_ORDER_CREATE::Exception; -use strict; -use warnings; - -{ # BLOCK to scope variables - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions' } - -__PACKAGE__->__set_name('Z_CRM_SERVICE_ORDER_CREATE.Exception'); -__PACKAGE__->__set_nillable(); -__PACKAGE__->__set_minOccurs(); -__PACKAGE__->__set_maxOccurs(); -__PACKAGE__->__set_ref(); -use base qw( - SOAP::WSDL::XSD::Typelib::Element - BarnetTypes::Z_CRM_SERVICE_ORDER_CREATE::RfcException -); - -} - -1; - - -=pod - -=head1 NAME - -BarnetElements::Z_CRM_SERVICE_ORDER_CREATE::Exception - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined element -Z_CRM_SERVICE_ORDER_CREATE.Exception from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - - - -=head1 METHODS - -=head2 new - - my $element = BarnetElements::Z_CRM_SERVICE_ORDER_CREATE::Exception->new($data); - -Constructor. The following data structure may be passed to new(): - - { # BarnetTypes::Z_CRM_SERVICE_ORDER_CREATE::RfcException - Name => $some_value, # Z_CRM_SERVICE_ORDER_CREATE.RfcExceptions - Text => $some_value, # string - Message => { # BarnetTypes::RfcException::Message - ID => $some_value, # string - Number => $some_value, # RfcException.Message.Number - }, - }, - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetElements/Z_CRM_SERVICE_ORDER_CREATEResponse.pm b/perllib/BarnetElements/Z_CRM_SERVICE_ORDER_CREATEResponse.pm deleted file mode 100644 index 5755d0b49..000000000 --- a/perllib/BarnetElements/Z_CRM_SERVICE_ORDER_CREATEResponse.pm +++ /dev/null @@ -1,183 +0,0 @@ - -package BarnetElements::Z_CRM_SERVICE_ORDER_CREATEResponse; -use strict; -use warnings; - -{ # BLOCK to scope variables - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions' } - -__PACKAGE__->__set_name('Z_CRM_SERVICE_ORDER_CREATEResponse'); -__PACKAGE__->__set_nillable(); -__PACKAGE__->__set_minOccurs(); -__PACKAGE__->__set_maxOccurs(); -__PACKAGE__->__set_ref(); - -use base qw( - SOAP::WSDL::XSD::Typelib::Element - SOAP::WSDL::XSD::Typelib::ComplexType -); - -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 %ET_RETURN_of :ATTR(:get<ET_RETURN>); -my %EV_ORDER_GUID_of :ATTR(:get<EV_ORDER_GUID>); -my %EV_ORDER_NO_of :ATTR(:get<EV_ORDER_NO>); -my %IT_PROBLEM_DESC_of :ATTR(:get<IT_PROBLEM_DESC>); - -__PACKAGE__->_factory( - [ qw( ET_RETURN - EV_ORDER_GUID - EV_ORDER_NO - IT_PROBLEM_DESC - - ) ], - { - 'ET_RETURN' => \%ET_RETURN_of, - 'EV_ORDER_GUID' => \%EV_ORDER_GUID_of, - 'EV_ORDER_NO' => \%EV_ORDER_NO_of, - 'IT_PROBLEM_DESC' => \%IT_PROBLEM_DESC_of, - }, - { - 'ET_RETURN' => 'BarnetTypes::TABLE_OF_BAPIRET2', - 'EV_ORDER_GUID' => 'BarnetTypes::char32', - 'EV_ORDER_NO' => 'BarnetTypes::char10', - 'IT_PROBLEM_DESC' => 'BarnetTypes::TABLE_OF_CRMT_SERVICE_REQUEST_TEXT', - }, - { - - 'ET_RETURN' => 'ET_RETURN', - 'EV_ORDER_GUID' => 'EV_ORDER_GUID', - 'EV_ORDER_NO' => 'EV_ORDER_NO', - 'IT_PROBLEM_DESC' => 'IT_PROBLEM_DESC', - } -); - -} # end BLOCK - - - - - - -} # end of BLOCK - - - -1; - - -=pod - -=head1 NAME - -BarnetElements::Z_CRM_SERVICE_ORDER_CREATEResponse - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined element -Z_CRM_SERVICE_ORDER_CREATEResponse from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - - - -=head1 PROPERTIES - -The following properties may be accessed using get_PROPERTY / set_PROPERTY -methods: - -=over - -=item * ET_RETURN - - $element->set_ET_RETURN($data); - $element->get_ET_RETURN(); - - - - -=item * EV_ORDER_GUID - - $element->set_EV_ORDER_GUID($data); - $element->get_EV_ORDER_GUID(); - - - - -=item * EV_ORDER_NO - - $element->set_EV_ORDER_NO($data); - $element->get_EV_ORDER_NO(); - - - - -=item * IT_PROBLEM_DESC - - $element->set_IT_PROBLEM_DESC($data); - $element->get_IT_PROBLEM_DESC(); - - - - - -=back - - -=head1 METHODS - -=head2 new - - my $element = BarnetElements::Z_CRM_SERVICE_ORDER_CREATEResponse->new($data); - -Constructor. The following data structure may be passed to new(): - - { - ET_RETURN => { # BarnetTypes::TABLE_OF_BAPIRET2 - item => { # BarnetTypes::BAPIRET2 - TYPE => $some_value, # char1 - ID => $some_value, # char20 - NUMBER => $some_value, # numeric3 - MESSAGE => $some_value, # char220 - LOG_NO => $some_value, # char20 - LOG_MSG_NO => $some_value, # numeric6 - MESSAGE_V1 => $some_value, # char50 - MESSAGE_V2 => $some_value, # char50 - MESSAGE_V3 => $some_value, # char50 - MESSAGE_V4 => $some_value, # char50 - PARAMETER => $some_value, # char32 - ROW => $some_value, # int - FIELD => $some_value, # char30 - SYSTEM => $some_value, # char10 - }, - }, - EV_ORDER_GUID => $some_value, # char32 - EV_ORDER_NO => $some_value, # char10 - IT_PROBLEM_DESC => { # BarnetTypes::TABLE_OF_CRMT_SERVICE_REQUEST_TEXT - item => { # BarnetTypes::CRMT_SERVICE_REQUEST_TEXT - TEXT_LINE => $some_value, # char132 - }, - }, - }, - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetInterfaces/service/ZLBB_SERVICE_ORDER.pm b/perllib/BarnetInterfaces/service/ZLBB_SERVICE_ORDER.pm deleted file mode 100644 index 94e0cd4db..000000000 --- a/perllib/BarnetInterfaces/service/ZLBB_SERVICE_ORDER.pm +++ /dev/null @@ -1,166 +0,0 @@ -package BarnetInterfaces::service::ZLBB_SERVICE_ORDER; -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 BarnetTypemaps::service - if not BarnetTypemaps::service->can('get_class'); - -sub START { - $_[0]->set_proxy('http://lbbcrmdev.barnet.gov.uk:8000/sap/bc/srt/rfc/sap/zlbb_service_order/200/zlbb_service_order/zlbb_service_order') if not $_[2]->{proxy}; - $_[0]->set_class_resolver('BarnetTypemaps::service') - if not $_[2]->{class_resolver}; - - $_[0]->set_prefix($_[2]->{use_prefix}) if exists $_[2]->{use_prefix}; -} - -sub Z_CRM_SERVICE_ORDER_CREATE { - my ($self, $body, $header) = @_; - die "Z_CRM_SERVICE_ORDER_CREATE must be called as object method (\$self is <$self>)" if not blessed($self); - return $self->SUPER::call({ - operation => 'Z_CRM_SERVICE_ORDER_CREATE', - soap_action => '', - style => 'document', - body => { - - - 'use' => 'literal', - namespace => 'http://schemas.xmlsoap.org/wsdl/soap/', - encodingStyle => '', - parts => [qw( BarnetElements::Z_CRM_SERVICE_ORDER_CREATE )], - }, - header => { - - }, - headerfault => { - - } - }, $body, $header); -} - - - - -1; - - - -__END__ - -=pod - -=head1 NAME - -BarnetInterfaces::service::ZLBB_SERVICE_ORDER - SOAP Interface for the service Web Service - -=head1 SYNOPSIS - - use BarnetInterfaces::service::ZLBB_SERVICE_ORDER; - my $interface = BarnetInterfaces::service::ZLBB_SERVICE_ORDER->new(); - - my $response; - $response = $interface->Z_CRM_SERVICE_ORDER_CREATE(); - - - -=head1 DESCRIPTION - -SOAP Interface for the service web service -located at http://lbbcrmdev.barnet.gov.uk:8000/sap/bc/srt/rfc/sap/zlbb_service_order/200/zlbb_service_order/zlbb_service_order. - -=head1 SERVICE service - - - -=head2 Port ZLBB_SERVICE_ORDER - - - -=head1 METHODS - -=head2 General methods - -=head3 new - -Constructor. - -All arguments are forwarded to L<SOAP::WSDL::Client|SOAP::WSDL::Client>. - -=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 Z_CRM_SERVICE_ORDER_CREATE - - - -Returns a L<BarnetElements::Z_CRM_SERVICE_ORDER_CREATEResponse|BarnetElements::Z_CRM_SERVICE_ORDER_CREATEResponse> object. - - $response = $interface->Z_CRM_SERVICE_ORDER_CREATE( { - ET_RETURN => { # BarnetTypes::TABLE_OF_BAPIRET2 - item => { # BarnetTypes::BAPIRET2 - TYPE => $some_value, # char1 - ID => $some_value, # char20 - NUMBER => $some_value, # numeric3 - MESSAGE => $some_value, # char220 - LOG_NO => $some_value, # char20 - LOG_MSG_NO => $some_value, # numeric6 - MESSAGE_V1 => $some_value, # char50 - MESSAGE_V2 => $some_value, # char50 - MESSAGE_V3 => $some_value, # char50 - MESSAGE_V4 => $some_value, # char50 - PARAMETER => $some_value, # char32 - ROW => $some_value, # int - FIELD => $some_value, # char30 - SYSTEM => $some_value, # char10 - }, - }, - IT_PROBLEM_DESC => { # BarnetTypes::TABLE_OF_CRMT_SERVICE_REQUEST_TEXT - item => { # BarnetTypes::CRMT_SERVICE_REQUEST_TEXT - TEXT_LINE => $some_value, # char132 - }, - }, - IV_CUST_EMAIL => $some_value, # char241 - IV_CUST_NAME => $some_value, # char50 - IV_KBID => $some_value, # char50 - IV_PROBLEM_ID => $some_value, # char35 - IV_PROBLEM_LOC => { # BarnetTypes::BAPI_TTET_ADDRESS_COM - COUNTRY2 => $some_value, # char2 - REGION => $some_value, # char3 - COUNTY => $some_value, # char30 - CITY => $some_value, # char30 - POSTALCODE => $some_value, # char10 - STREET => $some_value, # char30 - STREETNUMBER => $some_value, # char5 - GEOCODE => $some_value, # char32 - }, - IV_PROBLEM_SUB => $some_value, # char40 - },, - ); - - - -=head1 AUTHOR - -Generated by SOAP::WSDL on Fri Apr 8 10:23:03 2011 - -=cut diff --git a/perllib/BarnetTypemaps/service.pm b/perllib/BarnetTypemaps/service.pm deleted file mode 100644 index dd9f98162..000000000 --- a/perllib/BarnetTypemaps/service.pm +++ /dev/null @@ -1,103 +0,0 @@ - -package BarnetTypemaps::service; -use strict; -use warnings; - -our $typemap_1 = { - 'Z_CRM_SERVICE_ORDER_CREATEResponse/EV_ORDER_NO' => 'BarnetTypes::char10', - 'Z_CRM_SERVICE_ORDER_CREATE/IV_PROBLEM_LOC/GEOCODE' => 'BarnetTypes::char32', - 'Fault/faultcode' => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI', - 'Z_CRM_SERVICE_ORDER_CREATE/IV_PROBLEM_LOC/COUNTRY2' => 'BarnetTypes::char2', - 'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/NUMBER' => 'BarnetTypes::numeric3', - 'Z_CRM_SERVICE_ORDER_CREATE/IT_PROBLEM_DESC/item' => 'BarnetTypes::CRMT_SERVICE_REQUEST_TEXT', - 'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/MESSAGE_V1' => 'BarnetTypes::char50', - 'Z_CRM_SERVICE_ORDER_CREATE/IV_PROBLEM_LOC/POSTALCODE' => 'BarnetTypes::char10', - 'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/LOG_NO' => 'BarnetTypes::char20', - 'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/MESSAGE_V2' => 'BarnetTypes::char50', - 'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/MESSAGE_V3' => 'BarnetTypes::char50', - 'Z_CRM_SERVICE_ORDER_CREATE/IV_PROBLEM_SUB' => 'BarnetTypes::char40', - 'Z_CRM_SERVICE_ORDER_CREATE/IT_PROBLEM_DESC/item/TEXT_LINE' => 'BarnetTypes::char132', - 'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/LOG_NO' => 'BarnetTypes::char20', - 'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN' => 'BarnetTypes::TABLE_OF_BAPIRET2', - 'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/ROW' => 'SOAP::WSDL::XSD::Typelib::Builtin::int', - 'Z_CRM_SERVICE_ORDER_CREATEResponse/IT_PROBLEM_DESC/item' => 'BarnetTypes::CRMT_SERVICE_REQUEST_TEXT', - 'Fault/faultstring' => 'SOAP::WSDL::XSD::Typelib::Builtin::string', - 'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/PARAMETER' => 'BarnetTypes::char32', - 'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item' => 'BarnetTypes::BAPIRET2', - 'Z_CRM_SERVICE_ORDER_CREATE/IV_CUST_NAME' => 'BarnetTypes::char50', - 'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/MESSAGE_V2' => 'BarnetTypes::char50', - 'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/ROW' => 'SOAP::WSDL::XSD::Typelib::Builtin::int', - 'Fault/detail' => 'SOAP::WSDL::XSD::Typelib::Builtin::string', - 'Z_CRM_SERVICE_ORDER_CREATE.Exception/Message/ID' => 'SOAP::WSDL::XSD::Typelib::Builtin::string', - 'Z_CRM_SERVICE_ORDER_CREATEResponse/IT_PROBLEM_DESC' => 'BarnetTypes::TABLE_OF_CRMT_SERVICE_REQUEST_TEXT', - 'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/NUMBER' => 'BarnetTypes::numeric3', - 'Z_CRM_SERVICE_ORDER_CREATEResponse' => 'BarnetElements::Z_CRM_SERVICE_ORDER_CREATEResponse', - 'Z_CRM_SERVICE_ORDER_CREATE.Exception/Text' => 'SOAP::WSDL::XSD::Typelib::Builtin::string', - 'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/MESSAGE_V1' => 'BarnetTypes::char50', - 'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/PARAMETER' => 'BarnetTypes::char32', - 'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/MESSAGE' => 'BarnetTypes::char220', - 'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/TYPE' => 'BarnetTypes::char1', - 'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/MESSAGE' => 'BarnetTypes::char220', - 'Z_CRM_SERVICE_ORDER_CREATE/IV_PROBLEM_LOC' => 'BarnetTypes::BAPI_TTET_ADDRESS_COM', - 'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/TYPE' => 'BarnetTypes::char1', - 'Z_CRM_SERVICE_ORDER_CREATE/IV_CUST_EMAIL' => 'BarnetTypes::char241', - 'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/FIELD' => 'BarnetTypes::char30', - 'Z_CRM_SERVICE_ORDER_CREATE.Exception/Name' => 'BarnetTypes::Z_CRM_SERVICE_ORDER_CREATE::RfcExceptions', - 'Z_CRM_SERVICE_ORDER_CREATEResponse/IT_PROBLEM_DESC/item/TEXT_LINE' => 'BarnetTypes::char132', - 'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/ID' => 'BarnetTypes::char20', - 'Z_CRM_SERVICE_ORDER_CREATEResponse/EV_ORDER_GUID' => 'BarnetTypes::char32', - 'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/SYSTEM' => 'BarnetTypes::char10', - 'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN' => 'BarnetTypes::TABLE_OF_BAPIRET2', - 'Z_CRM_SERVICE_ORDER_CREATE/IV_PROBLEM_ID' => 'BarnetTypes::char35', - 'Z_CRM_SERVICE_ORDER_CREATE' => 'BarnetElements::Z_CRM_SERVICE_ORDER_CREATE', - 'Z_CRM_SERVICE_ORDER_CREATE/IV_PROBLEM_LOC/REGION' => 'BarnetTypes::char3', - 'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/LOG_MSG_NO' => 'BarnetTypes::numeric6', - 'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/MESSAGE_V4' => 'BarnetTypes::char50', - 'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/FIELD' => 'BarnetTypes::char30', - 'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/SYSTEM' => 'BarnetTypes::char10', - 'Z_CRM_SERVICE_ORDER_CREATE/IV_PROBLEM_LOC/COUNTY' => 'BarnetTypes::char30', - 'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item/LOG_MSG_NO' => 'BarnetTypes::numeric6', - 'Z_CRM_SERVICE_ORDER_CREATE.Exception/Message' => 'BarnetTypes::RfcException::Message', - 'Z_CRM_SERVICE_ORDER_CREATE/IT_PROBLEM_DESC' => 'BarnetTypes::TABLE_OF_CRMT_SERVICE_REQUEST_TEXT', - 'Z_CRM_SERVICE_ORDER_CREATE/ET_RETURN/item' => 'BarnetTypes::BAPIRET2', - 'Z_CRM_SERVICE_ORDER_CREATE/IV_PROBLEM_LOC/CITY' => 'BarnetTypes::char30', - 'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/MESSAGE_V4' => 'BarnetTypes::char50', - 'Z_CRM_SERVICE_ORDER_CREATE.Exception' => 'BarnetElements::Z_CRM_SERVICE_ORDER_CREATE::Exception', - 'Fault' => 'SOAP::WSDL::SOAP::Typelib::Fault11', - 'Z_CRM_SERVICE_ORDER_CREATE/IV_PROBLEM_LOC/STREETNUMBER' => 'BarnetTypes::char5', - 'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/ID' => 'BarnetTypes::char20', - 'Fault/faultactor' => 'SOAP::WSDL::XSD::Typelib::Builtin::token', - 'Z_CRM_SERVICE_ORDER_CREATE/IV_PROBLEM_LOC/STREET' => 'BarnetTypes::char30', - 'Z_CRM_SERVICE_ORDER_CREATE.Exception/Message/Number' => 'BarnetTypes::RfcException::Message::Number', - 'Z_CRM_SERVICE_ORDER_CREATE/IV_KBID' => 'BarnetTypes::char50', - 'Z_CRM_SERVICE_ORDER_CREATEResponse/ET_RETURN/item/MESSAGE_V3' => 'BarnetTypes::char50' - }; -; - -sub get_class { - my $name = join '/', @{ $_[1] }; - return $typemap_1->{ $name }; -} - -sub get_typemap { - return $typemap_1; -} - -1; - -__END__ - -__END__ - -=pod - -=head1 NAME - -BarnetTypemaps::service - typemap for service - -=head1 DESCRIPTION - -Typemap created by SOAP::WSDL for map-based SOAP message parsers. - -=cut - diff --git a/perllib/BarnetTypes/BAPIRET2.pm b/perllib/BarnetTypes/BAPIRET2.pm deleted file mode 100644 index 2ca20894c..000000000 --- a/perllib/BarnetTypes/BAPIRET2.pm +++ /dev/null @@ -1,219 +0,0 @@ -package BarnetTypes::BAPIRET2; -use strict; -use warnings; - - -__PACKAGE__->_set_element_form_qualified(0); - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions' }; - -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 %TYPE_of :ATTR(:get<TYPE>); -my %ID_of :ATTR(:get<ID>); -my %NUMBER_of :ATTR(:get<NUMBER>); -my %MESSAGE_of :ATTR(:get<MESSAGE>); -my %LOG_NO_of :ATTR(:get<LOG_NO>); -my %LOG_MSG_NO_of :ATTR(:get<LOG_MSG_NO>); -my %MESSAGE_V1_of :ATTR(:get<MESSAGE_V1>); -my %MESSAGE_V2_of :ATTR(:get<MESSAGE_V2>); -my %MESSAGE_V3_of :ATTR(:get<MESSAGE_V3>); -my %MESSAGE_V4_of :ATTR(:get<MESSAGE_V4>); -my %PARAMETER_of :ATTR(:get<PARAMETER>); -my %ROW_of :ATTR(:get<ROW>); -my %FIELD_of :ATTR(:get<FIELD>); -my %SYSTEM_of :ATTR(:get<SYSTEM>); - -__PACKAGE__->_factory( - [ qw( TYPE - ID - NUMBER - MESSAGE - LOG_NO - LOG_MSG_NO - MESSAGE_V1 - MESSAGE_V2 - MESSAGE_V3 - MESSAGE_V4 - PARAMETER - ROW - FIELD - SYSTEM - - ) ], - { - 'TYPE' => \%TYPE_of, - 'ID' => \%ID_of, - 'NUMBER' => \%NUMBER_of, - 'MESSAGE' => \%MESSAGE_of, - 'LOG_NO' => \%LOG_NO_of, - 'LOG_MSG_NO' => \%LOG_MSG_NO_of, - 'MESSAGE_V1' => \%MESSAGE_V1_of, - 'MESSAGE_V2' => \%MESSAGE_V2_of, - 'MESSAGE_V3' => \%MESSAGE_V3_of, - 'MESSAGE_V4' => \%MESSAGE_V4_of, - 'PARAMETER' => \%PARAMETER_of, - 'ROW' => \%ROW_of, - 'FIELD' => \%FIELD_of, - 'SYSTEM' => \%SYSTEM_of, - }, - { - 'TYPE' => 'BarnetTypes::char1', - 'ID' => 'BarnetTypes::char20', - 'NUMBER' => 'BarnetTypes::numeric3', - 'MESSAGE' => 'BarnetTypes::char220', - 'LOG_NO' => 'BarnetTypes::char20', - 'LOG_MSG_NO' => 'BarnetTypes::numeric6', - 'MESSAGE_V1' => 'BarnetTypes::char50', - 'MESSAGE_V2' => 'BarnetTypes::char50', - 'MESSAGE_V3' => 'BarnetTypes::char50', - 'MESSAGE_V4' => 'BarnetTypes::char50', - 'PARAMETER' => 'BarnetTypes::char32', - 'ROW' => 'SOAP::WSDL::XSD::Typelib::Builtin::int', - 'FIELD' => 'BarnetTypes::char30', - 'SYSTEM' => 'BarnetTypes::char10', - }, - { - - 'TYPE' => 'TYPE', - 'ID' => 'ID', - 'NUMBER' => 'NUMBER', - 'MESSAGE' => 'MESSAGE', - 'LOG_NO' => 'LOG_NO', - 'LOG_MSG_NO' => 'LOG_MSG_NO', - 'MESSAGE_V1' => 'MESSAGE_V1', - 'MESSAGE_V2' => 'MESSAGE_V2', - 'MESSAGE_V3' => 'MESSAGE_V3', - 'MESSAGE_V4' => 'MESSAGE_V4', - 'PARAMETER' => 'PARAMETER', - 'ROW' => 'ROW', - 'FIELD' => 'FIELD', - 'SYSTEM' => 'SYSTEM', - } -); - -} # end BLOCK - - - - - - - -1; - - -=pod - -=head1 NAME - -BarnetTypes::BAPIRET2 - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined complexType -BAPIRET2 from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - - -=head2 PROPERTIES - -The following properties may be accessed using get_PROPERTY / set_PROPERTY -methods: - -=over - -=item * TYPE - - -=item * ID - - -=item * NUMBER - - -=item * MESSAGE - - -=item * LOG_NO - - -=item * LOG_MSG_NO - - -=item * MESSAGE_V1 - - -=item * MESSAGE_V2 - - -=item * MESSAGE_V3 - - -=item * MESSAGE_V4 - - -=item * PARAMETER - - -=item * ROW - - -=item * FIELD - - -=item * SYSTEM - - - - -=back - - -=head1 METHODS - -=head2 new - -Constructor. The following data structure may be passed to new(): - - { # BarnetTypes::BAPIRET2 - TYPE => $some_value, # char1 - ID => $some_value, # char20 - NUMBER => $some_value, # numeric3 - MESSAGE => $some_value, # char220 - LOG_NO => $some_value, # char20 - LOG_MSG_NO => $some_value, # numeric6 - MESSAGE_V1 => $some_value, # char50 - MESSAGE_V2 => $some_value, # char50 - MESSAGE_V3 => $some_value, # char50 - MESSAGE_V4 => $some_value, # char50 - PARAMETER => $some_value, # char32 - ROW => $some_value, # int - FIELD => $some_value, # char30 - SYSTEM => $some_value, # char10 - }, - - - - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/BAPI_TTET_ADDRESS_COM.pm b/perllib/BarnetTypes/BAPI_TTET_ADDRESS_COM.pm deleted file mode 100644 index b4a8b00ca..000000000 --- a/perllib/BarnetTypes/BAPI_TTET_ADDRESS_COM.pm +++ /dev/null @@ -1,165 +0,0 @@ -package BarnetTypes::BAPI_TTET_ADDRESS_COM; -use strict; -use warnings; - - -__PACKAGE__->_set_element_form_qualified(0); - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions' }; - -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 %COUNTRY2_of :ATTR(:get<COUNTRY2>); -my %REGION_of :ATTR(:get<REGION>); -my %COUNTY_of :ATTR(:get<COUNTY>); -my %CITY_of :ATTR(:get<CITY>); -my %POSTALCODE_of :ATTR(:get<POSTALCODE>); -my %STREET_of :ATTR(:get<STREET>); -my %STREETNUMBER_of :ATTR(:get<STREETNUMBER>); -my %GEOCODE_of :ATTR(:get<GEOCODE>); - -__PACKAGE__->_factory( - [ qw( COUNTRY2 - REGION - COUNTY - CITY - POSTALCODE - STREET - STREETNUMBER - GEOCODE - - ) ], - { - 'COUNTRY2' => \%COUNTRY2_of, - 'REGION' => \%REGION_of, - 'COUNTY' => \%COUNTY_of, - 'CITY' => \%CITY_of, - 'POSTALCODE' => \%POSTALCODE_of, - 'STREET' => \%STREET_of, - 'STREETNUMBER' => \%STREETNUMBER_of, - 'GEOCODE' => \%GEOCODE_of, - }, - { - 'COUNTRY2' => 'BarnetTypes::char2', - 'REGION' => 'BarnetTypes::char3', - 'COUNTY' => 'BarnetTypes::char30', - 'CITY' => 'BarnetTypes::char30', - 'POSTALCODE' => 'BarnetTypes::char10', - 'STREET' => 'BarnetTypes::char30', - 'STREETNUMBER' => 'BarnetTypes::char5', - 'GEOCODE' => 'BarnetTypes::char32', - }, - { - - 'COUNTRY2' => 'COUNTRY2', - 'REGION' => 'REGION', - 'COUNTY' => 'COUNTY', - 'CITY' => 'CITY', - 'POSTALCODE' => 'POSTALCODE', - 'STREET' => 'STREET', - 'STREETNUMBER' => 'STREETNUMBER', - 'GEOCODE' => 'GEOCODE', - } -); - -} # end BLOCK - - - - - - - -1; - - -=pod - -=head1 NAME - -BarnetTypes::BAPI_TTET_ADDRESS_COM - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined complexType -BAPI_TTET_ADDRESS_COM from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - - -=head2 PROPERTIES - -The following properties may be accessed using get_PROPERTY / set_PROPERTY -methods: - -=over - -=item * COUNTRY2 - - -=item * REGION - - -=item * COUNTY - - -=item * CITY - - -=item * POSTALCODE - - -=item * STREET - - -=item * STREETNUMBER - - -=item * GEOCODE - - - - -=back - - -=head1 METHODS - -=head2 new - -Constructor. The following data structure may be passed to new(): - - { # BarnetTypes::BAPI_TTET_ADDRESS_COM - COUNTRY2 => $some_value, # char2 - REGION => $some_value, # char3 - COUNTY => $some_value, # char30 - CITY => $some_value, # char30 - POSTALCODE => $some_value, # char10 - STREET => $some_value, # char30 - STREETNUMBER => $some_value, # char5 - GEOCODE => $some_value, # char32 - }, - - - - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/CRMT_SERVICE_REQUEST_TEXT.pm b/perllib/BarnetTypes/CRMT_SERVICE_REQUEST_TEXT.pm deleted file mode 100644 index 39e2ad1ce..000000000 --- a/perllib/BarnetTypes/CRMT_SERVICE_REQUEST_TEXT.pm +++ /dev/null @@ -1,102 +0,0 @@ -package BarnetTypes::CRMT_SERVICE_REQUEST_TEXT; -use strict; -use warnings; - - -__PACKAGE__->_set_element_form_qualified(0); - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions' }; - -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 %TEXT_LINE_of :ATTR(:get<TEXT_LINE>); - -__PACKAGE__->_factory( - [ qw( TEXT_LINE - - ) ], - { - 'TEXT_LINE' => \%TEXT_LINE_of, - }, - { - 'TEXT_LINE' => 'BarnetTypes::char132', - }, - { - - 'TEXT_LINE' => 'TEXT_LINE', - } -); - -} # end BLOCK - - - - - - - -1; - - -=pod - -=head1 NAME - -BarnetTypes::CRMT_SERVICE_REQUEST_TEXT - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined complexType -CRMT_SERVICE_REQUEST_TEXT from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - - -=head2 PROPERTIES - -The following properties may be accessed using get_PROPERTY / set_PROPERTY -methods: - -=over - -=item * TEXT_LINE - - - - -=back - - -=head1 METHODS - -=head2 new - -Constructor. The following data structure may be passed to new(): - - { # BarnetTypes::CRMT_SERVICE_REQUEST_TEXT - TEXT_LINE => $some_value, # char132 - }, - - - - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/RfcException/Message.pm b/perllib/BarnetTypes/RfcException/Message.pm deleted file mode 100644 index 71b94bf7c..000000000 --- a/perllib/BarnetTypes/RfcException/Message.pm +++ /dev/null @@ -1,111 +0,0 @@ -package BarnetTypes::RfcException::Message; -use strict; -use warnings; - - -__PACKAGE__->_set_element_form_qualified(0); - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions' }; - -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 %ID_of :ATTR(:get<ID>); -my %Number_of :ATTR(:get<Number>); - -__PACKAGE__->_factory( - [ qw( ID - Number - - ) ], - { - 'ID' => \%ID_of, - 'Number' => \%Number_of, - }, - { - 'ID' => 'SOAP::WSDL::XSD::Typelib::Builtin::string', - 'Number' => 'BarnetTypes::RfcException::Message::Number', - }, - { - - 'ID' => 'ID', - 'Number' => 'Number', - } -); - -} # end BLOCK - - - - - - - -1; - - -=pod - -=head1 NAME - -BarnetTypes::RfcException::Message - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined complexType -RfcException.Message from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - - -=head2 PROPERTIES - -The following properties may be accessed using get_PROPERTY / set_PROPERTY -methods: - -=over - -=item * ID - - -=item * Number - - - - -=back - - -=head1 METHODS - -=head2 new - -Constructor. The following data structure may be passed to new(): - - { # BarnetTypes::RfcException::Message - ID => $some_value, # string - Number => $some_value, # RfcException.Message.Number - }, - - - - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/RfcException/Message/Number.pm b/perllib/BarnetTypes/RfcException/Message/Number.pm deleted file mode 100644 index 9353df454..000000000 --- a/perllib/BarnetTypes/RfcException/Message/Number.pm +++ /dev/null @@ -1,65 +0,0 @@ -package BarnetTypes::RfcException::Message::Number; -use strict; -use warnings; - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'}; - -# derivation by restriction -use base qw( - SOAP::WSDL::XSD::Typelib::Builtin::string); - - - -1; - -__END__ - -=pod - -=head1 NAME - - - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined simpleType -RfcException.Message.Number from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - -This clase is derived from - SOAP::WSDL::XSD::Typelib::Builtin::string -. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly -like it's base type. - -# Description of restrictions not implemented yet. - - -=head1 METHODS - -=head2 new - -Constructor. - -=head2 get_value / set_value - -Getter and setter for the simpleType's value. - -=head1 OVERLOADING - -Depending on the simple type's base type, the following operations are overloaded - - Stringification - Numerification - Boolification - -Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information. - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/TABLE_OF_BAPIRET2.pm b/perllib/BarnetTypes/TABLE_OF_BAPIRET2.pm deleted file mode 100644 index c248bc907..000000000 --- a/perllib/BarnetTypes/TABLE_OF_BAPIRET2.pm +++ /dev/null @@ -1,117 +0,0 @@ -package BarnetTypes::TABLE_OF_BAPIRET2; -use strict; -use warnings; - - -__PACKAGE__->_set_element_form_qualified(0); - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions' }; - -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 %item_of :ATTR(:get<item>); - -__PACKAGE__->_factory( - [ qw( item - - ) ], - { - 'item' => \%item_of, - }, - { - 'item' => 'BarnetTypes::BAPIRET2', - }, - { - - 'item' => 'item', - } -); - -} # end BLOCK - - - - - - - -1; - - -=pod - -=head1 NAME - -BarnetTypes::TABLE_OF_BAPIRET2 - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined complexType -TABLE_OF_BAPIRET2 from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - - -=head2 PROPERTIES - -The following properties may be accessed using get_PROPERTY / set_PROPERTY -methods: - -=over - -=item * item - - - - -=back - - -=head1 METHODS - -=head2 new - -Constructor. The following data structure may be passed to new(): - - { # BarnetTypes::TABLE_OF_BAPIRET2 - item => { # BarnetTypes::BAPIRET2 - TYPE => $some_value, # char1 - ID => $some_value, # char20 - NUMBER => $some_value, # numeric3 - MESSAGE => $some_value, # char220 - LOG_NO => $some_value, # char20 - LOG_MSG_NO => $some_value, # numeric6 - MESSAGE_V1 => $some_value, # char50 - MESSAGE_V2 => $some_value, # char50 - MESSAGE_V3 => $some_value, # char50 - MESSAGE_V4 => $some_value, # char50 - PARAMETER => $some_value, # char32 - ROW => $some_value, # int - FIELD => $some_value, # char30 - SYSTEM => $some_value, # char10 - }, - }, - - - - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/TABLE_OF_CRMT_SERVICE_REQUEST_TEXT.pm b/perllib/BarnetTypes/TABLE_OF_CRMT_SERVICE_REQUEST_TEXT.pm deleted file mode 100644 index 62eb7b774..000000000 --- a/perllib/BarnetTypes/TABLE_OF_CRMT_SERVICE_REQUEST_TEXT.pm +++ /dev/null @@ -1,104 +0,0 @@ -package BarnetTypes::TABLE_OF_CRMT_SERVICE_REQUEST_TEXT; -use strict; -use warnings; - - -__PACKAGE__->_set_element_form_qualified(0); - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions' }; - -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 %item_of :ATTR(:get<item>); - -__PACKAGE__->_factory( - [ qw( item - - ) ], - { - 'item' => \%item_of, - }, - { - 'item' => 'BarnetTypes::CRMT_SERVICE_REQUEST_TEXT', - }, - { - - 'item' => 'item', - } -); - -} # end BLOCK - - - - - - - -1; - - -=pod - -=head1 NAME - -BarnetTypes::TABLE_OF_CRMT_SERVICE_REQUEST_TEXT - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined complexType -TABLE_OF_CRMT_SERVICE_REQUEST_TEXT from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - - -=head2 PROPERTIES - -The following properties may be accessed using get_PROPERTY / set_PROPERTY -methods: - -=over - -=item * item - - - - -=back - - -=head1 METHODS - -=head2 new - -Constructor. The following data structure may be passed to new(): - - { # BarnetTypes::TABLE_OF_CRMT_SERVICE_REQUEST_TEXT - item => { # BarnetTypes::CRMT_SERVICE_REQUEST_TEXT - TEXT_LINE => $some_value, # char132 - }, - }, - - - - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/Z_CRM_SERVICE_ORDER_CREATE/RfcException.pm b/perllib/BarnetTypes/Z_CRM_SERVICE_ORDER_CREATE/RfcException.pm deleted file mode 100644 index 8d04adf53..000000000 --- a/perllib/BarnetTypes/Z_CRM_SERVICE_ORDER_CREATE/RfcException.pm +++ /dev/null @@ -1,123 +0,0 @@ -package BarnetTypes::Z_CRM_SERVICE_ORDER_CREATE::RfcException; -use strict; -use warnings; - - -__PACKAGE__->_set_element_form_qualified(0); - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions' }; - -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 %Name_of :ATTR(:get<Name>); -my %Text_of :ATTR(:get<Text>); -my %Message_of :ATTR(:get<Message>); - -__PACKAGE__->_factory( - [ qw( Name - Text - Message - - ) ], - { - 'Name' => \%Name_of, - 'Text' => \%Text_of, - 'Message' => \%Message_of, - }, - { - 'Name' => 'BarnetTypes::Z_CRM_SERVICE_ORDER_CREATE::RfcExceptions', - 'Text' => 'SOAP::WSDL::XSD::Typelib::Builtin::string', - 'Message' => 'BarnetTypes::RfcException::Message', - }, - { - - 'Name' => 'Name', - 'Text' => 'Text', - 'Message' => 'Message', - } -); - -} # end BLOCK - - - - - - - -1; - - -=pod - -=head1 NAME - -BarnetTypes::Z_CRM_SERVICE_ORDER_CREATE::RfcException - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined complexType -Z_CRM_SERVICE_ORDER_CREATE.RfcException from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - - -=head2 PROPERTIES - -The following properties may be accessed using get_PROPERTY / set_PROPERTY -methods: - -=over - -=item * Name - - -=item * Text - - -=item * Message - - - - -=back - - -=head1 METHODS - -=head2 new - -Constructor. The following data structure may be passed to new(): - - { # BarnetTypes::Z_CRM_SERVICE_ORDER_CREATE::RfcException - Name => $some_value, # Z_CRM_SERVICE_ORDER_CREATE.RfcExceptions - Text => $some_value, # string - Message => { # BarnetTypes::RfcException::Message - ID => $some_value, # string - Number => $some_value, # RfcException.Message.Number - }, - }, - - - - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/Z_CRM_SERVICE_ORDER_CREATE/RfcExceptions.pm b/perllib/BarnetTypes/Z_CRM_SERVICE_ORDER_CREATE/RfcExceptions.pm deleted file mode 100644 index ffc2237bc..000000000 --- a/perllib/BarnetTypes/Z_CRM_SERVICE_ORDER_CREATE/RfcExceptions.pm +++ /dev/null @@ -1,65 +0,0 @@ -package BarnetTypes::Z_CRM_SERVICE_ORDER_CREATE::RfcExceptions; -use strict; -use warnings; - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'}; - -# derivation by restriction -use base qw( - SOAP::WSDL::XSD::Typelib::Builtin::string); - - - -1; - -__END__ - -=pod - -=head1 NAME - - - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined simpleType -Z_CRM_SERVICE_ORDER_CREATE.RfcExceptions from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - -This clase is derived from - SOAP::WSDL::XSD::Typelib::Builtin::string -. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly -like it's base type. - -# Description of restrictions not implemented yet. - - -=head1 METHODS - -=head2 new - -Constructor. - -=head2 get_value / set_value - -Getter and setter for the simpleType's value. - -=head1 OVERLOADING - -Depending on the simple type's base type, the following operations are overloaded - - Stringification - Numerification - Boolification - -Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information. - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/char1.pm b/perllib/BarnetTypes/char1.pm deleted file mode 100644 index d0bab8e5e..000000000 --- a/perllib/BarnetTypes/char1.pm +++ /dev/null @@ -1,65 +0,0 @@ -package BarnetTypes::char1; -use strict; -use warnings; - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'}; - -# derivation by restriction -use base qw( - SOAP::WSDL::XSD::Typelib::Builtin::string); - - - -1; - -__END__ - -=pod - -=head1 NAME - - - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined simpleType -char1 from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - -This clase is derived from - SOAP::WSDL::XSD::Typelib::Builtin::string -. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly -like it's base type. - -# Description of restrictions not implemented yet. - - -=head1 METHODS - -=head2 new - -Constructor. - -=head2 get_value / set_value - -Getter and setter for the simpleType's value. - -=head1 OVERLOADING - -Depending on the simple type's base type, the following operations are overloaded - - Stringification - Numerification - Boolification - -Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information. - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/char10.pm b/perllib/BarnetTypes/char10.pm deleted file mode 100644 index 6ff454e4b..000000000 --- a/perllib/BarnetTypes/char10.pm +++ /dev/null @@ -1,65 +0,0 @@ -package BarnetTypes::char10; -use strict; -use warnings; - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'}; - -# derivation by restriction -use base qw( - SOAP::WSDL::XSD::Typelib::Builtin::string); - - - -1; - -__END__ - -=pod - -=head1 NAME - - - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined simpleType -char10 from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - -This clase is derived from - SOAP::WSDL::XSD::Typelib::Builtin::string -. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly -like it's base type. - -# Description of restrictions not implemented yet. - - -=head1 METHODS - -=head2 new - -Constructor. - -=head2 get_value / set_value - -Getter and setter for the simpleType's value. - -=head1 OVERLOADING - -Depending on the simple type's base type, the following operations are overloaded - - Stringification - Numerification - Boolification - -Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information. - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/char132.pm b/perllib/BarnetTypes/char132.pm deleted file mode 100644 index 46a41077b..000000000 --- a/perllib/BarnetTypes/char132.pm +++ /dev/null @@ -1,65 +0,0 @@ -package BarnetTypes::char132; -use strict; -use warnings; - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'}; - -# derivation by restriction -use base qw( - SOAP::WSDL::XSD::Typelib::Builtin::string); - - - -1; - -__END__ - -=pod - -=head1 NAME - - - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined simpleType -char132 from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - -This clase is derived from - SOAP::WSDL::XSD::Typelib::Builtin::string -. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly -like it's base type. - -# Description of restrictions not implemented yet. - - -=head1 METHODS - -=head2 new - -Constructor. - -=head2 get_value / set_value - -Getter and setter for the simpleType's value. - -=head1 OVERLOADING - -Depending on the simple type's base type, the following operations are overloaded - - Stringification - Numerification - Boolification - -Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information. - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/char2.pm b/perllib/BarnetTypes/char2.pm deleted file mode 100644 index 35c476fbe..000000000 --- a/perllib/BarnetTypes/char2.pm +++ /dev/null @@ -1,65 +0,0 @@ -package BarnetTypes::char2; -use strict; -use warnings; - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'}; - -# derivation by restriction -use base qw( - SOAP::WSDL::XSD::Typelib::Builtin::string); - - - -1; - -__END__ - -=pod - -=head1 NAME - - - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined simpleType -char2 from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - -This clase is derived from - SOAP::WSDL::XSD::Typelib::Builtin::string -. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly -like it's base type. - -# Description of restrictions not implemented yet. - - -=head1 METHODS - -=head2 new - -Constructor. - -=head2 get_value / set_value - -Getter and setter for the simpleType's value. - -=head1 OVERLOADING - -Depending on the simple type's base type, the following operations are overloaded - - Stringification - Numerification - Boolification - -Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information. - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/char20.pm b/perllib/BarnetTypes/char20.pm deleted file mode 100644 index 1c2df092a..000000000 --- a/perllib/BarnetTypes/char20.pm +++ /dev/null @@ -1,65 +0,0 @@ -package BarnetTypes::char20; -use strict; -use warnings; - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'}; - -# derivation by restriction -use base qw( - SOAP::WSDL::XSD::Typelib::Builtin::string); - - - -1; - -__END__ - -=pod - -=head1 NAME - - - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined simpleType -char20 from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - -This clase is derived from - SOAP::WSDL::XSD::Typelib::Builtin::string -. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly -like it's base type. - -# Description of restrictions not implemented yet. - - -=head1 METHODS - -=head2 new - -Constructor. - -=head2 get_value / set_value - -Getter and setter for the simpleType's value. - -=head1 OVERLOADING - -Depending on the simple type's base type, the following operations are overloaded - - Stringification - Numerification - Boolification - -Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information. - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/char220.pm b/perllib/BarnetTypes/char220.pm deleted file mode 100644 index 7ccde81f8..000000000 --- a/perllib/BarnetTypes/char220.pm +++ /dev/null @@ -1,65 +0,0 @@ -package BarnetTypes::char220; -use strict; -use warnings; - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'}; - -# derivation by restriction -use base qw( - SOAP::WSDL::XSD::Typelib::Builtin::string); - - - -1; - -__END__ - -=pod - -=head1 NAME - - - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined simpleType -char220 from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - -This clase is derived from - SOAP::WSDL::XSD::Typelib::Builtin::string -. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly -like it's base type. - -# Description of restrictions not implemented yet. - - -=head1 METHODS - -=head2 new - -Constructor. - -=head2 get_value / set_value - -Getter and setter for the simpleType's value. - -=head1 OVERLOADING - -Depending on the simple type's base type, the following operations are overloaded - - Stringification - Numerification - Boolification - -Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information. - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/char241.pm b/perllib/BarnetTypes/char241.pm deleted file mode 100644 index e6567554f..000000000 --- a/perllib/BarnetTypes/char241.pm +++ /dev/null @@ -1,65 +0,0 @@ -package BarnetTypes::char241; -use strict; -use warnings; - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'}; - -# derivation by restriction -use base qw( - SOAP::WSDL::XSD::Typelib::Builtin::string); - - - -1; - -__END__ - -=pod - -=head1 NAME - - - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined simpleType -char241 from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - -This clase is derived from - SOAP::WSDL::XSD::Typelib::Builtin::string -. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly -like it's base type. - -# Description of restrictions not implemented yet. - - -=head1 METHODS - -=head2 new - -Constructor. - -=head2 get_value / set_value - -Getter and setter for the simpleType's value. - -=head1 OVERLOADING - -Depending on the simple type's base type, the following operations are overloaded - - Stringification - Numerification - Boolification - -Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information. - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/char3.pm b/perllib/BarnetTypes/char3.pm deleted file mode 100644 index f9d001cda..000000000 --- a/perllib/BarnetTypes/char3.pm +++ /dev/null @@ -1,65 +0,0 @@ -package BarnetTypes::char3; -use strict; -use warnings; - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'}; - -# derivation by restriction -use base qw( - SOAP::WSDL::XSD::Typelib::Builtin::string); - - - -1; - -__END__ - -=pod - -=head1 NAME - - - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined simpleType -char3 from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - -This clase is derived from - SOAP::WSDL::XSD::Typelib::Builtin::string -. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly -like it's base type. - -# Description of restrictions not implemented yet. - - -=head1 METHODS - -=head2 new - -Constructor. - -=head2 get_value / set_value - -Getter and setter for the simpleType's value. - -=head1 OVERLOADING - -Depending on the simple type's base type, the following operations are overloaded - - Stringification - Numerification - Boolification - -Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information. - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/char30.pm b/perllib/BarnetTypes/char30.pm deleted file mode 100644 index 91d98eb30..000000000 --- a/perllib/BarnetTypes/char30.pm +++ /dev/null @@ -1,65 +0,0 @@ -package BarnetTypes::char30; -use strict; -use warnings; - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'}; - -# derivation by restriction -use base qw( - SOAP::WSDL::XSD::Typelib::Builtin::string); - - - -1; - -__END__ - -=pod - -=head1 NAME - - - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined simpleType -char30 from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - -This clase is derived from - SOAP::WSDL::XSD::Typelib::Builtin::string -. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly -like it's base type. - -# Description of restrictions not implemented yet. - - -=head1 METHODS - -=head2 new - -Constructor. - -=head2 get_value / set_value - -Getter and setter for the simpleType's value. - -=head1 OVERLOADING - -Depending on the simple type's base type, the following operations are overloaded - - Stringification - Numerification - Boolification - -Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information. - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/char32.pm b/perllib/BarnetTypes/char32.pm deleted file mode 100644 index c5efdaabd..000000000 --- a/perllib/BarnetTypes/char32.pm +++ /dev/null @@ -1,65 +0,0 @@ -package BarnetTypes::char32; -use strict; -use warnings; - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'}; - -# derivation by restriction -use base qw( - SOAP::WSDL::XSD::Typelib::Builtin::string); - - - -1; - -__END__ - -=pod - -=head1 NAME - - - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined simpleType -char32 from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - -This clase is derived from - SOAP::WSDL::XSD::Typelib::Builtin::string -. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly -like it's base type. - -# Description of restrictions not implemented yet. - - -=head1 METHODS - -=head2 new - -Constructor. - -=head2 get_value / set_value - -Getter and setter for the simpleType's value. - -=head1 OVERLOADING - -Depending on the simple type's base type, the following operations are overloaded - - Stringification - Numerification - Boolification - -Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information. - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/char35.pm b/perllib/BarnetTypes/char35.pm deleted file mode 100644 index 40aef3d7a..000000000 --- a/perllib/BarnetTypes/char35.pm +++ /dev/null @@ -1,65 +0,0 @@ -package BarnetTypes::char35; -use strict; -use warnings; - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'}; - -# derivation by restriction -use base qw( - SOAP::WSDL::XSD::Typelib::Builtin::string); - - - -1; - -__END__ - -=pod - -=head1 NAME - - - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined simpleType -char35 from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - -This clase is derived from - SOAP::WSDL::XSD::Typelib::Builtin::string -. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly -like it's base type. - -# Description of restrictions not implemented yet. - - -=head1 METHODS - -=head2 new - -Constructor. - -=head2 get_value / set_value - -Getter and setter for the simpleType's value. - -=head1 OVERLOADING - -Depending on the simple type's base type, the following operations are overloaded - - Stringification - Numerification - Boolification - -Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information. - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/char40.pm b/perllib/BarnetTypes/char40.pm deleted file mode 100644 index 4402875c1..000000000 --- a/perllib/BarnetTypes/char40.pm +++ /dev/null @@ -1,65 +0,0 @@ -package BarnetTypes::char40; -use strict; -use warnings; - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'}; - -# derivation by restriction -use base qw( - SOAP::WSDL::XSD::Typelib::Builtin::string); - - - -1; - -__END__ - -=pod - -=head1 NAME - - - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined simpleType -char40 from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - -This clase is derived from - SOAP::WSDL::XSD::Typelib::Builtin::string -. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly -like it's base type. - -# Description of restrictions not implemented yet. - - -=head1 METHODS - -=head2 new - -Constructor. - -=head2 get_value / set_value - -Getter and setter for the simpleType's value. - -=head1 OVERLOADING - -Depending on the simple type's base type, the following operations are overloaded - - Stringification - Numerification - Boolification - -Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information. - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/char5.pm b/perllib/BarnetTypes/char5.pm deleted file mode 100644 index fed108437..000000000 --- a/perllib/BarnetTypes/char5.pm +++ /dev/null @@ -1,65 +0,0 @@ -package BarnetTypes::char5; -use strict; -use warnings; - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'}; - -# derivation by restriction -use base qw( - SOAP::WSDL::XSD::Typelib::Builtin::string); - - - -1; - -__END__ - -=pod - -=head1 NAME - - - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined simpleType -char5 from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - -This clase is derived from - SOAP::WSDL::XSD::Typelib::Builtin::string -. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly -like it's base type. - -# Description of restrictions not implemented yet. - - -=head1 METHODS - -=head2 new - -Constructor. - -=head2 get_value / set_value - -Getter and setter for the simpleType's value. - -=head1 OVERLOADING - -Depending on the simple type's base type, the following operations are overloaded - - Stringification - Numerification - Boolification - -Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information. - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/char50.pm b/perllib/BarnetTypes/char50.pm deleted file mode 100644 index 34e5720d1..000000000 --- a/perllib/BarnetTypes/char50.pm +++ /dev/null @@ -1,65 +0,0 @@ -package BarnetTypes::char50; -use strict; -use warnings; - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'}; - -# derivation by restriction -use base qw( - SOAP::WSDL::XSD::Typelib::Builtin::string); - - - -1; - -__END__ - -=pod - -=head1 NAME - - - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined simpleType -char50 from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - -This clase is derived from - SOAP::WSDL::XSD::Typelib::Builtin::string -. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly -like it's base type. - -# Description of restrictions not implemented yet. - - -=head1 METHODS - -=head2 new - -Constructor. - -=head2 get_value / set_value - -Getter and setter for the simpleType's value. - -=head1 OVERLOADING - -Depending on the simple type's base type, the following operations are overloaded - - Stringification - Numerification - Boolification - -Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information. - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/numeric3.pm b/perllib/BarnetTypes/numeric3.pm deleted file mode 100644 index c473d2866..000000000 --- a/perllib/BarnetTypes/numeric3.pm +++ /dev/null @@ -1,65 +0,0 @@ -package BarnetTypes::numeric3; -use strict; -use warnings; - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'}; - -# derivation by restriction -use base qw( - SOAP::WSDL::XSD::Typelib::Builtin::string); - - - -1; - -__END__ - -=pod - -=head1 NAME - - - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined simpleType -numeric3 from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - -This clase is derived from - SOAP::WSDL::XSD::Typelib::Builtin::string -. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly -like it's base type. - -# Description of restrictions not implemented yet. - - -=head1 METHODS - -=head2 new - -Constructor. - -=head2 get_value / set_value - -Getter and setter for the simpleType's value. - -=head1 OVERLOADING - -Depending on the simple type's base type, the following operations are overloaded - - Stringification - Numerification - Boolification - -Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information. - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/BarnetTypes/numeric6.pm b/perllib/BarnetTypes/numeric6.pm deleted file mode 100644 index b5438c1aa..000000000 --- a/perllib/BarnetTypes/numeric6.pm +++ /dev/null @@ -1,65 +0,0 @@ -package BarnetTypes::numeric6; -use strict; -use warnings; - -sub get_xmlns { 'urn:sap-com:document:sap:rfc:functions'}; - -# derivation by restriction -use base qw( - SOAP::WSDL::XSD::Typelib::Builtin::string); - - - -1; - -__END__ - -=pod - -=head1 NAME - - - -=head1 DESCRIPTION - -Perl data type class for the XML Schema defined simpleType -numeric6 from the namespace urn:sap-com:document:sap:rfc:functions. - - - - - -This clase is derived from - SOAP::WSDL::XSD::Typelib::Builtin::string -. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly -like it's base type. - -# Description of restrictions not implemented yet. - - -=head1 METHODS - -=head2 new - -Constructor. - -=head2 get_value / set_value - -Getter and setter for the simpleType's value. - -=head1 OVERLOADING - -Depending on the simple type's base type, the following operations are overloaded - - Stringification - Numerification - Boolification - -Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information. - -=head1 AUTHOR - -Generated by SOAP::WSDL - -=cut - diff --git a/perllib/FixMyStreet/DB/Result/Problem.pm b/perllib/FixMyStreet/DB/Result/Problem.pm index 88794ee52..9706087aa 100644 --- a/perllib/FixMyStreet/DB/Result/Problem.pm +++ b/perllib/FixMyStreet/DB/Result/Problem.pm @@ -637,16 +637,13 @@ sub body { return $body; } -# returns true if the external id is the council's ref, i.e., useful to publish it -# (by way of an example, the barnet send method returns a useful reference when -# it succeeds, so that is the ref we should show on the problem report page). +# returns true if the external id is the council's ref, i.e., useful to publish it. # Future: this is installation-dependent so maybe should be using the contact # data to determine if the external id is public on a council-by-council basis. # Note: this only makes sense when called on a problem that has been sent! sub can_display_external_id { my $self = shift; - if ($self->external_id && $self->send_method_used && - ($self->send_method_used eq 'barnet' || $self->bodies_str =~ /2237/)) { + if ($self->external_id && $self->send_method_used && $self->bodies_str =~ /2237/) { return 1; } return 0; diff --git a/perllib/FixMyStreet/SendReport/Barnet.pm b/perllib/FixMyStreet/SendReport/Barnet.pm deleted file mode 100644 index 07adb4c33..000000000 --- a/perllib/FixMyStreet/SendReport/Barnet.pm +++ /dev/null @@ -1,208 +0,0 @@ -package FixMyStreet::SendReport::Barnet; - -use Moose; - -BEGIN { extends 'FixMyStreet::SendReport'; } - -use Encode; -use Utils; -use mySociety::Config; -use mySociety::Web qw(ent); - -# specific council numbers -use constant COUNCIL_ID_BARNET => 2489; -use constant MAX_LINE_LENGTH => 132; - -sub construct_message { - my %h = @_; - my $message = <<EOF; -Subject: $h{title} - -Details: $h{detail} - -$h{fuzzy}, or to provide an update on the problem, please visit the following link: - -$h{url} - -$h{closest_address} -EOF -} - - -sub send { - my ( $self, $row, $h ) = @_; - - my %h = %$h; - - $h{message} = construct_message(%h); - - my $return = 1; - my $err_msg = ""; - - my $default_kbid = 14; # This is the default, "Street Scene" - my $kbid = sprintf( "%050d", Utils::barnet_categories()->{$h{category}} || $default_kbid); - - my $geo_code = "$h{easting} $h{northing}"; - - require BarnetInterfaces::service::ZLBB_SERVICE_ORDER; - my $interface = BarnetInterfaces::service::ZLBB_SERVICE_ORDER->new(); - - my ($nearest_postcode, $nearest_street) = ('', ''); - for ($h{closest_address}) { - $nearest_postcode = sprintf("%-10s", $1) if /Nearest postcode [^:]+: ((\w{1,4}\s?\w+|\w+))/; - # use partial postcode or comma as delimiter, strip leading number (possible letter 221B) off too - # "99 Foo Street, London N11 1XX" becomes Foo Street - # "99 Foo Street N11 1XX" becomes Foo Street - $nearest_street = $1 if /Nearest road [^:]+: (?:\d+\w? )?(.*?)(\b[A-Z]+\d|,|$)/m; - } - my $postcode = mySociety::PostcodeUtil::is_valid_postcode($h{query}) - ? $h{query} : $nearest_postcode; # use given postcode if available - - # note: endpoint can be of form 'https://username:password@url' - my $body = FixMyStreet::App->model("DB::Body")->search( { 'body_areas.area_id' => COUNCIL_ID_BARNET }, { join => "body_areas" } )->first; - if ($body and $body->endpoint) { - $interface->set_proxy($body->endpoint); - # Barnet web service doesn't like namespaces in the elements so use a prefix - $interface->set_prefix('urn'); - # uncomment these lines to print XML that will be sent rather - # than connecting to the endpoint - #$interface->outputxml(1); - #$interface->no_dispatch(1); - } else { - die "Barnet webservice FAIL: looks like you're missing some config data: no endpoint (URL) found for area ID " . COUNCIL_ID_BARNET; - } - - eval { - my $result = $interface->Z_CRM_SERVICE_ORDER_CREATE( { - ET_RETURN => { # ignored by server - item => { - TYPE => "", ID => "", NUMBER => "", MESSAGE => "", LOG_NO => "", LOG_MSG_NO => "", - MESSAGE_V1 => "", MESSAGE_V2 => "", MESSAGE_V3 => "", MESSAGE_V4 => "", PARAMETER => "", - ROW => "", FIELD => "", SYSTEM => "", - }, - }, - IT_PROBLEM_DESC => { # MyTypes::TABLE_OF_CRMT_SERVICE_REQUEST_TEXT - item => [ # MyTypes::CRMT_SERVICE_REQUEST_TEXT - map { { TEXT_LINE => $_ } } split_text_with_entities(ent(encode_utf8($h{message})), 132) # char132 - ], - }, - IV_CUST_EMAIL => truncate_string_with_entities(ent(encode_utf8($h{email})), 241), # char241 - IV_CUST_NAME => truncate_string_with_entities(ent(encode_utf8($h{name})), 50), # char50 - IV_KBID => $kbid, # char50 - IV_PROBLEM_ID => $h{id}, # char35 - IV_PROBLEM_LOC => { # MyTypes::BAPI_TTET_ADDRESS_COM - COUNTRY2 => 'GB', # char2 - REGION => "", # char3 - COUNTY => "", # char30 - CITY => "", # char30 - POSTALCODE => $postcode, # char10 - STREET => truncate_string_with_entities(ent(encode_utf8($nearest_street)), 30), # char30 - STREETNUMBER => "", # char5 - GEOCODE => $geo_code, # char32 - }, - IV_PROBLEM_SUB => truncate_string_with_entities(ent(encode_utf8($h{title})), 40), # char40 - }, - ); - if ($result) { - # currently not using this: get_EV_ORDER_GUID (maybe that's the customer number in the CRM) - if (my $barnet_id = $result->get_EV_ORDER_NO()) { - $row->external_id( $barnet_id ); - $row->external_body( 'Barnet Borough Council' ); # better to use $row->body()? - $row->send_method_used('barnet'); - $return = 0; - } else { - my @returned_items = split /<item[^>]*>/, $result->get_ET_RETURN; - my @messages = (); - foreach my $item (@returned_items) { - if ($item=~/<MESSAGE [^>]*>\s*(\S.*?)<\/MESSAGE>/) { # if there's a non-null MESSAGE in there, grab it - push @messages, $1; # best stab at extracting useful error message back from convoluted response - } - } - push @messages, "service returned no external id" unless @messages; - $err_msg = "Failed (problem id $h{id}): " . join(" \n ", @messages); - } - } else { - my %fault = ( - 'code' => $result->get_faultcode(), - 'actor' => $result->get_faultactor(), - 'string' => $result->get_faultstring(), - 'detail' => $result->get_detail(), # possibly only contains debug info - ); - foreach (keys %fault) { - $fault{$_}="" unless defined $fault{$_}; - $fault{$_}=~s/^\s*|\s*$//g; - } - $fault{actor}&&=" (actor: $fault{actor})"; - $fault{'detail'} &&= "\n" . $fault{'detail'}; - $err_msg = "Failed (problem id $h{id}): Fault $fault{code}$fault{actor}\n$fault{string}$fault{detail}"; - } - - }; - if ($err_msg) { - # for timeouts, we can tidy the message a wee bit (i.e. strip the 'error deserializing...' message) - $err_msg=~s/(?:Error deserializing message:.*)(Can't connect to [a-zA-Z0-9.:]+\s*\(Connection timed out\)).*/$1/s; - print "$err_msg\n"; - } - if ($@) { - my $e = shift; - print "Caught an error: $@\n"; - } - if ( $return ) { - $self->error( "Error sending to Barnet: $err_msg" ); - } - $self->success( !$return ); - return $return; -} - -# for barnet webservice: max-length fields require truncate and split - -# truncate_string_with_entities -# args: text to truncate -# max number of chars -# returns: string truncated -# Note: must not partially truncate an entity (e.g., &) -sub truncate_string_with_entities { - my ($str, $max_len) = @_; - my $retVal = ""; - foreach my $chunk (split /(\&(?:\#\d+|\w+);)/, $str) { - if ($chunk=~/^\&(\#\d+|\w+);$/){ - my $next = $retVal.$chunk; - last if length $next > $max_len; - $retVal=$next - } else { - $retVal.=$chunk; - if (length $retVal > $max_len) { - $retVal = substr($retVal, 0, $max_len); - last - } - } - } - return $retVal -} - -# split_text_with_entities into lines -# args: text to be broken into lines -# max length (option: uses constant MAX_LINE_LENGTH) -# returns: array of lines -# Must not to split an entity (e.g., &) -# Not worrying about hyphenating here, since a word is only ever split if -# it's longer than the whole line, which is uncommon in genuine problem reports -sub split_text_with_entities { - my ($text, $max_line_length) = @_; - $max_line_length ||= MAX_LINE_LENGTH; - my @lines; - foreach my $line (split "\n", $text) { - while (length $line > $max_line_length) { - if (! ($line =~ s/^(.{1,$max_line_length})\s// # break on a space - or $line =~ s/^(.{1,$max_line_length})(\&(\#\d+|\w+);)/$2/ # break before an entity - or $line =~ s/(.{$max_line_length})//)) { # break the word ruthlessly - $line =~ s/(.*)//; # otherwise gobble whole line (which is now shorter than max length) - } - push @lines, $1; - } - push @lines, $line; - } - return @lines; -} - -1; diff --git a/perllib/Utils.pm b/perllib/Utils.pm index 21a7311f2..87c1a10d6 100644 --- a/perllib/Utils.pm +++ b/perllib/Utils.pm @@ -91,37 +91,6 @@ sub truncate_coordinate { return $out; } -sub barnet_categories { - # The values here are KBIDs from Barnet's system: see bin/send-reports for formatting. - # They are no longer used since Barnet switched to email for delivery of problem reports. - # and can be removed when SendReport/Barnet.pm is removed. - if (mySociety::Config::get('STAGING_SITE')) { # note staging site must use different KBIDs - return { - 'Street scene misc' => 14 # for test - } - } else { - return { - 'Accumulated Litter' => 349, - 'Dog Bin' => 203, - 'Dog Fouling' => 288, - 'Drain or Gully' => 256, - 'Fly Posting' => 465, - 'Fly Tipping' => 449, - 'Graffiti' => 292, - 'Gritting' => 200, - 'Highways' => 186, - 'Litter Bin Overflowing' => 205, - 'Manhole Cover' => 417, - 'Overhanging Foliage' => 421, - 'Pavement Damaged/Cracked' => 195, - 'Pothole' => 204, - 'Road Sign' => 80, - 'Roadworks' => 246, - 'Street Lighting' => 251, - }; - } -} - =head2 trim_text my $text = trim_text( $text_to_trim ); |