#!/usr/bin/perl -w
use CGI::Carp 'fatalsToBrowser';
my $soap_transport = SOAP::Transport::HTTP::CGI->dispatch_to('my_server');
$soap_transport->serializer->encoding('UTF-8');
$soap_transport->handle();
=begin WSDL
_RETURN $string
_DOC fonction de test du web service
=cut
sub test {
my $response = "xxx";
return $response;
}
####
xxx
####
=begin WSDL
_RETURN $string
_DOC fonction de test du web service
=cut
sub test {
my $response = "ייי";
return $response;
}
####
w6nDqcOp
####
#!/usr/bin/perl -w
use CGI::Carp 'fatalsToBrowser';
use utf8;
my $soap_transport = SOAP::Transport::HTTP::CGI->dispatch_to('saint_kro');
$soap_transport->serializer->encoding('UTF-8');
$soap_transport->handle();
=begin WSDL
_RETURN $string
_DOC fonction de test du web service
=cut
sub test {
my $response = "ייי";
utf8::encode($response);
return $response;
}
####
w6nDqcOp