[Angus] SOAP interface/send method for Angus CRM

1 files changed, 70 insertions, 0 deletions

diff --git a/perllib/Integrations/EastHantsWSDL.pm b/perllib/Integrations/EastHantsWSDL.pm
new file mode 100644
index 000000000..b35309c3d
--- /dev/null
+++ b/perllib/Integrations/EastHantsWSDL.pm
@@ -0,0 +1,70 @@
+package Integrations::EastHantsWSDL;
+
+# -- generated by SOAP::Lite (v0.60) for Perl -- soaplite.com -- Copyright (C) 2000-2001 Paul Kulchenko --
+# -- generated from http://www.easthants.gov.uk/forms.nsf/InputFeedback?WSDL [Thu Oct 16 12:31:57 2008]
+
+my %methods = (
+  INPUTFEEDBACK => {
+    endpoint => 'http://91.224.27.33/forms.nsf/InputFeedback?OpenWebService',
+    soapaction => 'INPUTFEEDBACK',
+    uri => 'urn:DefaultNamespace',
+    parameters => [
+      SOAP::Data->new(name => 'STRSERVICENAME', type => 'xsd:string', attr => {}),
+      SOAP::Data->new(name => 'STRREMOTECREATEDBY', type => 'xsd:string', attr => {}),
+      SOAP::Data->new(name => 'STRSALUTATION', type => 'xsd:string', attr => {}),
+      SOAP::Data->new(name => 'STRFIRSTNAME', type => 'xsd:string', attr => {}),
+      SOAP::Data->new(name => 'STRNAME', type => 'xsd:string', attr => {}),
+      SOAP::Data->new(name => 'STREMAIL', type => 'xsd:string', attr => {}),
+      SOAP::Data->new(name => 'STRTELEPHONE', type => 'xsd:string', attr => {}),
+      SOAP::Data->new(name => 'STRHOUSENONAME', type => 'xsd:string', attr => {}),
+      SOAP::Data->new(name => 'STRSTREET', type => 'xsd:string', attr => {}),
+      SOAP::Data->new(name => 'STRTOWN', type => 'xsd:string', attr => {}),
+      SOAP::Data->new(name => 'STRCOUNTY', type => 'xsd:string', attr => {}),
+      SOAP::Data->new(name => 'STRCOUNTRY', type => 'xsd:string', attr => {}),
+      SOAP::Data->new(name => 'STRPOSTCODE', type => 'xsd:string', attr => {}),
+      SOAP::Data->new(name => 'STRCOMMENTS', type => 'xsd:string', attr => {}),
+      SOAP::Data->new(name => 'STRFURTHERINFO', type => 'xsd:string', attr => {}),
+      SOAP::Data->new(name => 'STRIMAGEURL', type => 'xsd:string', attr => {}),
+    ],
+  },
+);
+
+use SOAP::Lite; # +trace => [qw(debug)];
+use Exporter;
+use Carp ();
+
+use vars qw(@ISA $AUTOLOAD @EXPORT_OK %EXPORT_TAGS);
+@ISA = qw(Exporter SOAP::Lite);
+@EXPORT_OK = (keys %methods);
+%EXPORT_TAGS = ('all' => [@EXPORT_OK]);
+
+no strict 'refs';
+for my $method (@EXPORT_OK) {
+  my %method = %{$methods{$method}};
+  *$method = sub {
+    my $self = UNIVERSAL::isa($_[0] => __PACKAGE__) 
+      ? ref $_[0] ? shift # OBJECT
+                  # CLASS, either get self or create new and assign to self
+                  : (shift->self || __PACKAGE__->self(__PACKAGE__->new))
+      # function call, either get self or create new and assign to self
+      : (__PACKAGE__->self || __PACKAGE__->self(__PACKAGE__->new));
+    $self->proxy($method{endpoint} || Carp::croak "No server address (proxy) specified") unless $self->proxy;
+    my @templates = @{$method{parameters}};
+    my $som = $self
+      -> endpoint($method{endpoint})
+      -> uri($method{uri})
+      -> on_action(sub{qq!"$method{soapaction}"!})
+      -> call($method => map {@templates ? shift(@templates)->value($_) : $_} @_); 
+    UNIVERSAL::isa($som => 'SOAP::SOM') ? wantarray ? $som->paramsall : $som->result 
+                                        : $som;
+  }
+}
+
+sub AUTOLOAD {
+  my $method = substr($AUTOLOAD, rindex($AUTOLOAD, '::') + 2);
+  return if $method eq 'DESTROY';
+
+  die "Unrecognized method '$method'. List of available method(s): @EXPORT_OK\n";
+}
+
+1;