perl soapclient 98.6

##</code><code>##

<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"
               xmlns:tns="http://sunflower.com/soapns"
               xmlns:xs="http://www.w3.org/2001/XMLSchema" >
<soap:Body>
<tns:temperature>
  <tns:farenheit>98.6</tns:farenheit>
</tns:temperature>

</soap:Body>
</soap:Envelope>

##</code><code>##

<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"
               
               xmlns:xs="http://www.w3.org/2001/XMLSchema" >
<soap:Body>
<GantrySoapServiceResponse
    xmlns="http://usegantry.org/soapservice">
  <currentUTCTime>2007-05-15T12:08:18Z</currentUTCTime>
  <celcius>37</celcius>
</GantrySoapServiceResponse>

</soap:Body>
</soap:Envelope>

##</code><code>##

my $site = {
    action_url  =>
        'http://in2test.lsi.uniovi.es/sqlmutationws/getMutantsCompressed',
    post_to_url =>
        'http://in2test.lsi.uniovi.es/sqlmutationws/SQLMutationWS.asmx',
    target_namespace => 'http://in2test.lsi.uniovi.es/sqlmutationws',
};

##</code><code>##

my $request_args = [
    {
        getMutantsCompressed => [
            { sql     => 'select * from table1' },
            { schema  => undef },
            { options => undef },
        ]
    },
];

##</code><code>##

package Gantry::Samples::SOAP;

use strict;
use warnings;

use Gantry qw{
    -PluginNamespace=Gantry::Samples::SOAP
    SOAP::Doc
};

our @ISA = ( 'Gantry' );

sub namespace {
    return 'Gantry::Samples::SOAP';
}   
sub do_f2c {
    my ( $self ) = @_;
    my $time     = $self->soap_current_time();
    my $params   = $self->params();  # easy way
    
    my $f_temp   = $params->{ farenheit };
    my $celcius  = 5.0 * ( $f_temp - 32 ) / 9.0;

    my $ret_struct = [
        {
            GantrySoapServiceResponse => [
                { currentUTCTime => $time },
                { celcius        => $celcius },
            ]
        }
    ];

    $self->soap_namespace_set(
        'http://usegantry.org/soapservice'
    );

    return $self->soap_out(
        $ret_struct, 'internal', 'pretty'
    );
} # END do_f2c

1;