import SOAP-WSDL 2.00_29 from CPAN

git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00_29
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_29.tar.gz

example/cgi-bin/helloworld.pl

@@ -0,0 +1,56 @@
+#!/usr/bin/perl -w
+use strict;
+use warnings;
+use lib '../../lib';
+use lib '../lib';
+use MyServer::HelloWorld::HelloWorldSoap;
+
+my $soap = MyServer::HelloWorld::HelloWorldSoap->new({
+    dispatch_to => 'main',
+});
+
+$soap->handle();
+
+sub sayHello {
+    my ($self, $body, $header) = @_;
+    my $name = $body->get_name();
+    my $givenName = $body->get_givenName();
+
+    return MyElements::sayHelloResponse->new({
+        sayHelloResult => "Hello $givenName $name"
+    })
+}
+
+=pod
+
+=head1 NAME
+
+helloworld.pl - a simple CGI-based SOAP server implementing the service from
+in examples/wsdl/helloworld.wsdl
+
+=head1 USAGE
+
+Before using this script, you should secure your webserver. The easiest way
+to do so is to let it listen to 127.0.0.1 only.
+
+Then make a ScriptAlias named /soap-wsdl-test/ pointing at the directory 
+this file lies in.
+
+For my apache, it looks like this:
+
+ ScriptAlias /soap-wsdl-test/ /home/martin/workspace/SOAP-WSDL/example/cgi-bin/
+ <Directory "/home/martin/workspace/SOAP-WSDL/example/cgi-bin">
+    AllowOverride None
+    Options +ExecCGI -MultiViews
+    Order allow,deny
+    Allow from all
+ </Directory>
+
+Then run the helloworld.pl from the examples directory. It should print
+
+ Hello World
+
+=head1 DESCRIPTION
+
+=cut
+

example/cgi-bin/person.pl

@@ -0,0 +1,84 @@
+#!/usr/bin/perl -w
+package main;
+use strict;
+use warnings;
+#use lib qw(../lib ../../lib);
+use MyElements::ListPersonResponse;
+use MyServer::TestService::TestPort;
+my $server = MyServer::TestService::TestPort->new({
+   dispatch_to => 'main',
+   transport_class => 'SOAP::WSDL::Server::CGI',   # optional, default
+});
+$server->handle();
+
+sub ListPerson {
+    my ($self, $body, $header) = @_;
+    # body is a ??? object - sorry, POD not implemented yet
+    # header is a ??? object - sorry, POD not implemented yet
+    
+    # do something with body and header...
+
+    my %person = (
+        PersonID =>         { # MyTypes::PersonID
+          ID =>  1, # int
+        },
+        Salutation => 'Salutation0', # string
+        Name =>  'Name0', # string
+        GivenName =>  'Martin', # string
+        DateOfBirth =>  '1970-01-01', # date
+        HomeAddress =>         { # MyTypes::Address
+          Street => 'Street 0', # string
+          ZIP =>  '00000', # string
+          City =>  'City0', # string
+          Country =>  'Country0', # string
+          PhoneNumber => '++499131123456', # PhoneNumber
+          MobilePhoneNumber => '++49150123456', # PhoneNumber
+        },
+        WorkAddress =>         { # MyTypes::Address
+          Street => 'Somestreet 23', # string
+          ZIP =>  '12345', # string
+          City =>  'SomeCity', # string
+          Country =>  'Germany', # string
+          PhoneNumber => '++499131123456', # PhoneNumber
+          MobilePhoneNumber => '++49150123456', # PhoneNumber
+        },
+        Contracts =>         { # MyTypes::ArrayOfContract
+          Contract => [          
+          { # MyTypes::Contract
+            ContractID =>  100000, # long
+            ContractName =>  'SomeContract0', # string
+          },
+          { # MyTypes::Contract
+            ContractID =>  100001, # long
+            ContractName =>  'SomeContract1', # string
+          },
+          { # MyTypes::Contract
+            ContractID =>  100002, # long
+            ContractName =>  'SomeContract2', # string
+          },
+          { # MyTypes::Contract
+            ContractID =>  100003, # long
+            ContractName =>  'SomeContract3', # string
+          },
+          ],
+        },
+    );
+
+    return  MyElements::ListPersonResponse->new(  {
+    out => { # MyTypes::ArrayOfPerson
+            NewElement => [
+                { %person },
+                { %person },
+                { %person },
+                { %person },
+                { %person },
+                { %person },
+                { %person },
+                { %person },
+                { %person },
+                { %person },
+            ],
+        },
+    }
+ );
+ }