Pb pour générer fichier wsdl via Perl

Bonjour,

A partir de fichiers yyy.pm et xxx.cgi je souhaite créer un fichier .wsdl.

Voici mon fichier Perl générant le code wsdl:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/bin/perl
 
use Pod::WSDL;
 
my $pod = new Pod::WSDL(
	source => 'yyy.pm',
	location => 'http://jjjjjjj/xxx/cgi-bin/xxx.cgi',
	withDocumentation => 1,
	pretty => 1);
 
 
print $pod->WSDL;

Voici mon fichier xxx.cgi

Code:

1
2
3
4
5
6
7
8
9
10
 
#!/usr/bin/perl
##
## printenv -- demo CGI program which just prints its environment
##
 
 
useBiochemicalPathwaysScript;
use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::CGI -> dispatch_to('yyy')->handle;

Voici mon fichier yyy.pm

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
package yyy;
 
use strict;
use URI::URL;
use LWP::Simple;
use XML::Simple;
use Fcntl;
 
 
=begin WSDL
  _IN list    $string   yy
  _IN minsimilarity     $string    ttt
  _IN UserName $string   hh
  _RETURN $string hhh
=cut
sub runprotocol_similarity{
 
	my $self = shift;
	my $list= shift;
	my $minsimilarity= shift;
	my $UserName= shift;
 
            ...
 
	return ffff;
}

Voici mon fichier résultat

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
<?xml version="1.0" encoding="UTF-8"?>
<!-- WSDL for 'http://jjjjjjj/xxx/cgi-bin/xxx.cgi created by Pod::WSDL version: 0.05 on Wed Oct 29 17:27:45 2008 -->
<wsdl:definitions targetNamespace="http://jjjjjjj/yyy" xmlns:impl="http://jjjjjjj/BiochemicalPathways/cgi-bin" xmlns:wsdlsoap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:tns1="'http://jjjjjjj/BiochemicalPathways/cgi-bin">
 
	<wsdl:message name="runprotocol_similarityRequest">
		<wsdl:part name="list" type="xsd:string">
			<wsdl:documentation>yy</wsdl:documentation>
		</wsdl:part>
		<wsdl:part name="minsimilarity" type="xsd:string">
			<wsdl:documentation>ttt</wsdl:documentation>
		</wsdl:part>
		<wsdl:part name="UserName" type="xsd:string">
			<wsdl:documentation>hh</wsdl:documentation>
		</wsdl:part>
	</wsdl:message>
 
	<wsdl:message name="runprotocol_similarityResponse">
		<wsdl:part name="runprotocol_similarityReturn" type="xsd:string">
			<wsdl:documentation>hhh</wsdl:documentation>
		</wsdl:part>
	</wsdl:message>
 
	<wsdl:portType name="yyyHandler">
		<wsdl:operation name="runprotocol_similarity" parameterOrder="list minsimilarity UserName">
			<wsdl:input message="impl:runprotocol_similarityRequest" name="runprotocol_similarityRequest" />
			<wsdl:output message="impl:runprotocol_similarityResponse" name="runprotocol_similarityResponse" />
		</wsdl:operation>
 
	</wsdl:portType>
 
	<wsdl:binding name="yyySoapBinding" type="impl:yyyHandler">
		<wsdlsoap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http" />
 
		<wsdl:operation name="runprotocol_similarity">
			<wsdlsoap:operation soapAction="" />
			<wsdl:input name="runprotocol_similarityRequest">
				<wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://jjjjjjj/yyy" use="encoded" />
			</wsdl:input>
			<wsdl:output name="runprotocol_similarityResponse">
				<wsdlsoap:body encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="http://jjjjjjj/yyy" use="encoded" />
			</wsdl:output>
		</wsdl:operation>
 
	</wsdl:binding>
 
	<wsdl:service name="yyyHandlerService">
		<wsdl:port binding="impl:yyySoapBinding" name="yyy">
			<wsdlsoap:address location="http://jjjjjjj/xxx/cgi-bin/xxx.cgi" />
		</wsdl:port>
	</wsdl:service>
 
</wsdl:definitions>

Comment dois je faire pour que targetNamespace="http://jjjjjjj/yyy" prenne directement pour valeur targetNamespace="yyy"?

Avez vous une idée?

Merci par avance et bonne soirée