#!/usr/bin/perl

use lib "/vhosts/connect-perl.allotz-dev.com/htdocs/perl5/";

use WSDL::Generator;

my $init = {

	'schema_namesp' => 'http://connect-perl.allotz.dyndns.org/Demo.xsd',
	'services'      => 'WorldFunctions',
	'service_name'  => 'WorldFunctionsService',
	'target_namesp' => 'http://connect-perl.allotz.dyndns.org/WorldFunctions',
	'documentation' => 'Demo SOAP Service.',
	'location'      => 'http://connect-perl.allotz.dyndns.org/cgi-bin/worldfunctions.pl'

};

my $w = WSDL::Generator->new($init);

WorldFunctions->Hello();

print $w->get(WorldFunctions);

exit;