Hello,
Since I updated SOAP::WSDL to 2.0 on the client side, and adapted my clients to work with it, the following problem appeared:
Some parameters I send to the server are lists of strings. As long as there are at least two elements in the list, all elements are passed to the server. But if there is only one element in the list, it is not passed to the server.
Our wsdl can be found here: http://rsat.bigre.ulb.ac.be/rsat/web_services/RSATWS.wsdl
Here is a minimalist client which is working with the "old" SOAP::WSDL:
#!/usr/bin/perl -w
# retrieve-seq_client_soap-wsdl.pl - Client retrieve-seq using the SOAP::WSDL module
################################################################
##
## This script runs a simple demo of the web service interface to the
## RSAT tool retrieve-seq. It sends a request to the server for
## obtaining the start codon of one E.coli gene.
##
################################################################
use strict;
use SOAP::WSDL;
## WSDL location
my $server = 'http://rsat.scmbb.ulb.ac.be/rsat/web_services';
my $WSDL = $server.'/RSATWS.wsdl';
my $proxy = $server.'/RSATWS.cgi';
## Service call
my $soap=SOAP::WSDL->new(wsdl => $WSDL)->proxy($proxy);
$soap->wsdlinit;
## Retrieve-seq parameters
my $organism = 'Escherichia_coli_K12'; ## Name of the query organism
my @query_genes = ("metA"); ## List of query genes
my $from = 0; ## Start position of the sequence
my $to = 2; ## End position of the sequence
warn "\nThis demo script retrieves the start codons for a set of query genes\n\n";
my %args = (
'organism' => $organism,
'query' => \@query_genes,
'from' => $from,
'to' => $to
);
## Send the request to the server
print "Sending request to the server $server\n";
my $som = $soap->call('retrieve_seq' => 'request' => \%args);
## Get the result
if ($som->fault){ ## Report error if any
printf "A fault (%s) occured: %s\n", $som->faultcode, $som->faultstring;
} else {
my $results_ref = $som->result; ## A reference to the result hash table
my %results = %$results_ref; ## Dereference the result hash table
## Report the remote command
my $command = $results{'command'};
print "Command used on the server: ".$command, "\n";
## Report the result
my $server_file = $results{'server'};
my $result = $results{'client'};
print "Result file on the server: ".$server_file, "\n";
print "Retrieved sequence(s): \n".$result;
}
Here is a minimalist client working with SOAP::WSDL 2.0:
#!/usr/bin/perl -w
# retrieve-seq_client_soap-wsdl.pl - Client retrieve-seq using the SOAP::WSDL module
################################################################
##
## This script runs a simple demo of the web service inerface to the
## RSAT tool retrieve-seq. It sends a request to the server for
## obtaining the start codons of 3 E.coli genes.
##
################################################################
use strict;
use SOAP::WSDL;
use lib 'RSATWS';
use MyInterfaces::RSATWebServices::RSATWSPortType;
warn "\nThis demo script retrieves the start codons for a set of query genes\n\n";
## WSDL location
my $server = 'http://rsat.scmbb.ulb.ac.be/rsat/web_services';
## Service call
my $soap=MyInterfaces::RSATWebServices::RSATWSPortType->new();
## Retrieve-seq parameters
my $organism = 'Escherichia_coli_K12'; ## Name of the query organism
my @gene = ("metA", "metB"); ## List of query genes
my $from = 0; ## Start position of the sequence
my $to = 2; ## End position of the sequence
my %args = (
'organism' => $organism,
'query' => \@gene, ## An array in a hash has to be referenced (always?)
'from' => $from,
'to' => $to
);
## Send the request to the server
print "Sending request to the server $server\n";
my $som = $soap->retrieve_seq({'request' => \%args});
## Get the result
unless ($som) {
#if ($som->get_faultstring()){
printf "A fault (%s) occured: %s\n", $som->get_faultcode(), $som->get_faultstring();
} else {
my $results = $som->get_response();
## Report the remote command
my $command = $results -> get_command();
print "Command used on the server: ".$command, "\n";
## Report the result
my $server_file = $results -> get_server();
my $result = $results -> get_client();
print "Result file on the server: ".$server_file."\n";
print "Retrieved sequence(s): \n".$result;
}
my @gene = ("metA", "metB"); ## List of query genes
my @gene = ("metA"); ## List of query genes
The client does not work anymore.
Is it something I do wrong? Any help would be welcome...
Thanks,
Olivier
|
(0)
]
