package WebserviceFunctions;

=begin WSDL
_DOC Hello
_IN name $string this is the name
_OUT text $string return text
=end WSDL


sub Hello {
    my ($s, $name) = @_;
    return "Hello, $name".$/;
}

=begin WSDL
_DOC Goodbye
_IN name $string this is the name
_OUT text $string return text
=end WSDL

sub Goodbye {
    my ($s, $name) = @_;
    return "Goodbye, $name".$/;
}

1;

##</code><code>##

#!/usr/bin/perl -w

use Pod::WSDL;
use CGI;

print CGI->header('text/xml');

my $pod = new Pod::WSDL(source=> 'WebserviceFunctions.pm',
                        location=>'http://192.168.11.73/~efuentes/webservice',
                        pretty=>1,
                        withDocumentation=>1);

$pod->addNamespace('http://192.168.11.73/~efuentes/webservice/','WebserviceFunctions');

print $pod->WSDL;