Klaus Guenter <klaus.guenter@...> wrote:
> On Monday 13 September 2004 12:49, you wrote:
> > I vaguely remember reading something about this.
> > Am I hallucinating? :)
>
> Yep. ;o) At least AFAICT, there is nothing like that
> in SOAP::Lite.

He may be recalling something described in the POD
under the heading "IN/OUT, OUT PARAMETERS AND
AUTOBINDING". It shows an example of a client's
variable defined as SOAP::Data, passed to the server,
and auto-magically containing the value returned from
the server.

Mark



__________________________________
Do you Yahoo!?
Yahoo! Mail - You care about security. So do we.
http://promotions.yahoo.com/new_mail

OK, then I never saw this in the POD. Nice to know.
Anyone ever tried that?

Regards,
Klaus
--
People often find it easier to be a result of the past than a cause of
the future.
-

Is it possible to get SOAP::Lite to return an array that conforms to
what folks have defined in a WSDL file? I'm trying to get SOAP::Lite
to produce something like:

<CODE>
<?xml version="1.0"?>
<SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/19
99/XMLSchema-instance"
xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"
xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsd="http://www.w3.org/1999/XMLSchema"
SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
<SOAP-ENV:Body>
   <namesp1:doGetClientListResponse xmlns:namesp1="urn:iReserve">
     <records xsi:type="typens:ClientRecordList">
       <ClientArray SOAP-ENC:arrayType="typens:ClientRecord[2]"
xsi:type="SOAP-ENC:Array">
         <ClientRecord xsi:type="typens:ClientRecord">
           <id xsi:type="xsd:Int">1</id>
           <name xsi:type="xsd:String">Bob's Low Cost Insurance</name>
         </ClientRecord>
         <ClientRecord xsi:type="typens:ClientRecord">
           <id xsi:type="xsd:Int">2</id>
           <name xsi:type="xsd:String">Tom's Great Insurance</name>
         </ClientRecord>
       </ClientArray>
     </records>
   </namesp1:doGetClientListResponse>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>
</CODE>

using this routine

<CODE>
sub doGetClientList {
     # deal with arguments
#    warn Dumper(\@_);
     shift; # remove class name
     my $cookie = shift; # unused currently

     # talk to database
     my $dbh = _dbh();
     my $sql = "select * from client";
     my $sth = $dbh->prepare($sql) or die "prep $sql";
     $sth->execute() or die "exec $sql";

     my $clientlist = [];
     while (my $row = $sth->fetchrow_hashref()) {
#        my $soapclientrec = SOAP::Data->new();
#        $soapclientrec->name('clientrecord');
#        $soapclientrec->type('typens:ClientRecord');
         push(@$clientlist,$row);
     }

     warn "PID=$$ " . Dumper($clientlist);
#    warn "PID=$$ clients=(" . join(',',@$clientlist) . ")";
#    warn "here";

#    return ({records=>$clientlist});

#    return SOAP::Data->name("records" =>
#            SOAP::Data->value(    SOAP::Data->name("client" =>
@$clientlist)
#                            ->type("ClientRecord")
#            )
#        )->type("ClientRecordArray");

     my @soaprecs;
     foreach my $row (@$clientlist) {
         foreach my $key (keys %$row) {
             unless (defined $row->{$key}) {
                 $row->{$key} = '';
             }
         }
         my $clirec = SOAP::Data->new();
         $clirec->name('ClientRecord');
         #$clirec->value($row->{clientid});
         $clirec->value($row);
         $clirec->type('typens::ClientRecord');
         push(@soaprecs,$clirec);
     }

     #warn Dumper(\@soaprecs);

     my $reccount = scalar(@soaprecs);

     my $clientarray = SOAP::Data->new();
     $clientarray->name('ClientArray');
#    $clientarray->value(@soaprecs);
     $clientarray->value('blah blah');

$clientarray->attr({'SOAP-ENC:arrayType'=>"typens:
ClientRecord[$reccount]",
#            'xsi:type' => 'SOAP-ENC:Array',
         });
     $clientarray->type('SOAP-ENC:Array',);

     my $records = SOAP::Data->new();
     $records->name('records');
     $records->value($clientarray);
     $records->type('typens:ClientRecordList');

#    warn "about to encode array";
#    use warnings;

#    my $serializer = SOAP::Serializer->new();
#    warn "got serializer";
#    my $records =
$serializer->encode_array($clientlist,'clientlist','ClientRec
+ordArray',{});
#    my $records =
$serializer->encode_object($clientlist,'clientlist','ClientRe
+cordArray');

#    warn Dumper($records);

     return $records;
}
<CODE>

I left the various incantations I've tried commented out. So my
questions would be these:

1) Is it possible to use SOAP::Lite to produce that SOAP Message
above?

2) If it won't do it natively how can I override it's output so I can
wack it into shape by hand?

3) Is there any Perl SOAP implementation which validates what the
server side is doing against a given WSDL?

4) Should I just give up on SOAP and do something else to move
arbitarily complex data structures back and forth between a client
written in Mozilla XUL and a server written in Perl?

Any guidance would be greatly appreciated.

I have bad credit, I am self employed and I
was able to re-finance at a really low rate.
I am saving hundreds a month
Just fill out this simple FREE form

simply copy and paste this link into your web browser now!
http://homeloansmarket.net/?partid=rcc1

Save more of your hard earned money
Raise the quality of your family's life.
The time is now, be sure not to miss out.
Find out why you should act now.

simply copy and paste this exact link into your web browser.
http://homeloansmarket.net/?partid=rcc1

This email was sent because you joined our group.
If you do not wish to recieve any emails, unsubscribe.
by sending a mail here soaplite-unsubscribe@yahoogroups.com

----- Original Message -----
From: "aviannachao" <aviannachao@...>
To: <soaplite@yahoogroups.com>
Sent: Wednesday, September 15, 2004 7:42 PM
Subject: [soaplite] specifying xmlns of method with WSDL call?
[snip]


>
> A follow up question would be, see the "namesp2" definition in the
> envelope and <sayHelloRequest> tag?  well, where the hell did soaplite
> get that from?  sayHelloRequest is a message in the HelloWorld
> namespace.  The XML should look like:
>
> <SOAP-ENV:Envelope xmlns="HelloWorld" xmlns:SOAP-ENV="http://
> schemas.xmlsoap.org/soap/envelope/"
> xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance"
> xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"
> xmlns:xsd="http://www.w3.org/1999/XMLSchema"
> SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
> <SOAP-ENV:Body>
> <sayHello>
> <sayHelloRequest>
> [snip]
> </sayHelloRequest>
> </sayHello>
> </SOAP-ENV:Body>
> </SOAP-ENV:Envelope>
>

Actually, from what I remember, .Net is very anal about explicit namespaces
for everything, so just don't complain.

   Issac

See, the problem with doing something new is that you become the "resident
expert", which I really shouldn't be as I didn't succeed from deep
understanding of either soaplit or .Net, but rather reading as much as I
could and throwing requests and responses and different WSDL across until
something worked.  What I would suggest is getting the MS .NET generic SOAP
client, which I'm sure I've posted a link to (if you can't find it, email me
offlist and I'll send you a .zip - actually, if enough people ask, I can see
about posting the tools and toolkits online).  Anyway, get the toolkit, and
look at exactly what you're getting sent to your BizTalk server.  Then,
start playing with the soapsh.pl script that comes with soaplite (put all
debug messages on by entering "on_debug(sub{print@_})" in the soapsh.pl
shell) and keep playing with the serializers and with the WSDL (although I'd
favor the former since soaplite is known to not have strong WSDL support)
until the XML matches what .Net did.  That's basically how I did it.

   Issac

----- Original Message -----
From: "aviannachao" <aviannachao@...>
To: <margol@...>
Sent: Wednesday, September 15, 2004 10:36 PM
Subject: Biztalk server with soaplite client?


> Hi Issac,
>
> I read your post
> (http://groups.yahoo.com/group/soaplite/message/3770), but I am
> currently having problems going the other way, I have a soaplite
> client trying to connect to a Biztalk web service (my full question at
> http://groups.yahoo.com/group/soaplite/message/3927).
>
> The short of it is Biztalk receives my request, but thinks my request
> is blank.
>
> I did see the MS article
> http://support.microsoft.com/default.aspx?scid=kb;en-us;308438, and
> tried doing what they suggested (renaming s and to xsd, and so on),
> but it still does not work, actually the XML it generates is exactly
> the same as if I didn't do the renaming.  The article also says "4.
> Remove all elements that involve the HTTP GET and HTTP POST messages,
> portTypes, bindings, and service ports."  Do you have any idea what
> this means?  If I remove all the portTypes, bindings and service
> ports, then the WSDL page won't be complete anymore, and my soaplite
> client can't find the method/service.
>
> Thanks in advance,
> Avianna
>
>

I've written a SOAP HTTP server daemon using SOAP::Lite. It works great. I can
connect to
it fine across the network when running it at the command line.

I've written Windows Services before using Roth's Win32::Daemon module. They
work fine
as well.

Now I want to combine them so I will have a SOAP HTTP server damon running as a
Windows Service.

Here's my problem. Normally you put the code that you want to repeat forever in
the
Running section of the Win32 service and a sleep(1) in there so that it has time
to
communicate with the Windows Service Manager. In the case of the SOAP daemon
there is
no explicit infinite loop since you just call $daemon->handle and the loop is
handled
internally. This is a problem for a Windows service because if you don't release
a slice of
the CPU to the Windows service manager every once in awhile, then the service
can't
respond to the state changes. In short, I can't stop my Windows service without
rebooting.

How do I make my SOAP HTTP server daemon run as a Windows Service and respond
correctly to Windows service manager?

Thanks,
Glaucon74

Hi,

a webservice expects me to send an empty array (params) represented
by the following xml:
<params xsi:type="soapenc:Array" soapenc:arrayType="xsd:string[0]"
xmlns:ns2="http://www:8081/axis/services/ScriptRunner"
xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"/>

I tried to send an empty array with the following perl code (based on
soap::lite with wsdl):
push(@runScriptParameters,SOAP::Data->name("params" => ()) -> type
('soapenc:Array' => [])->attr({'soapenc:arrayType' => 'string[0]'}));

The result is:
<params soapenc:arrayType="string[0]" xsi:type="soapenc:Array"/>

So my question is: How can I define the right type of 'params' with
the right order of xsi:type and soapenc:arrayType ?

BTW: Is there any resource to get more details how to use SOAP::Data
to define datatypes?

Thank you and Best Regards,
Alexander Reger
Munich/Germany

On Mon, 20 Sep 2004, ar_munich wrote:

> Hi,
>
> a webservice expects me to send an empty array (params) represented
> by the following xml:
> <params xsi:type="soapenc:Array" soapenc:arrayType="xsd:string[0]"
> xmlns:ns2="http://www:8081/axis/services/ScriptRunner"
> xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"/>
>
> I tried to send an empty array with the following perl code (based on
> soap::lite with wsdl):
> push(@runScriptParameters,SOAP::Data->name("params" => ()) -> type
> ('soapenc:Array' => [])->attr({'soapenc:arrayType' => 'string[0]'}));
>
> The result is:
> <params soapenc:arrayType="string[0]" xsi:type="soapenc:Array"/>
>
> So my question is: How can I define the right type of 'params' with
> the right order of xsi:type and soapenc:arrayType ?

Whether or not there is a way to coerce SOAP::Lite into doing this, you
should be aware that the XML specification does not permit or support the
notion of ordered attributes.  Any client or server which relies on such
ordering is fundamentally broken.

Steve

--------------------------------------------------------------------
Opinions expressed in this message are mine personally, not those of
my employer.
--------------------------------------------------------------------

I am the lead author for an upcoming book entitled: Enterprise SOA. I am
looking for ten individuals to review a portion of the manuscript and
provide timely feedback. If you are knowledgable in registries, event driven
architecture or security, please do not hesitate to contact me.

NOTE: My email spam filters deletes all replies from free email services
such as Yahoo, Hotmail, etc so reply back using work email.

Cheers


James McGovern
Number Two Blogger on the Internet
http://blogs.ittoolbox.com/eai/leadership

Mark,

Any chance you could mail the same examples to me?  I too am new to web
services but not to Perl, have bought the book "Web Services with Perl"
and am too none the wiser.  Is there a theme here?

Regards
Colin

-----Original Message-----
From: Mark Fuller [mailto:amigo_boy2000@...]
Sent: 14 September 2004 22:16
To: reidyre
Cc: soaplite@yahoogroups.com
Subject: Re: [soaplite] how to

>All,
>I am new to writing web services, but not to Perl.
>Is there a how-to
>on what to do?  I have the "Web Services with
>Perl" book from
>O'Reilly, but I'm still confused.

Ron,

I've got some examples I created to help people get up
to speed as painlessly as possible. I can mail them to
you if you want.

BTW: Don't feel alone at being perplexed. I had *a
lot* of difficulty comprehending where to start and
how to do it. In my opinion, SOAP::Lite has way too
many ways to do things, documentated in too many
places. I found I couldn't become productive with just
the book, or just one web site, etc. My examples, of
course, contribute to the problem. :) But, I don't try
to cover every way to do things. Just the simplest
(from my perspective as someone who wasn't "getting"
it).

Mark



_______________________________
Do you Yahoo!?
Express yourself with Y! Messenger! Free. Download now.
http://messenger.yahoo.com




Yahoo! Groups Links

Hello,

Apologies from a newbie if this was discussed before.

I kept getting an error:

org.xml.sax.SAXException: Deserializing parameter
'SoapAccount':  could not find deserializer for type
{http://namespaces.soaplite.com/perl}SoapAccount

The SoapAccount is an object returned by a Webservice.  However, the
client is using http://namespaces.soaplite.com/perl.  I looked at the
envelope being sent and indeed it is using the aforementioned URI.  My
question is, how can I change an entry in the Envelope being sent
while maintaining the other values?  Someone suggested to me to use
the namespace from the Webservice but I do not know how to change the
namespace.

The Envelope starts with:

<?xml version="1.0" encoding="UTF-8"?><SOAP-ENV:Envelope
xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:namesp3="http://namespaces.soaplite.com/perl"
xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance"
xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"
xmlns:xsd="http://www.w3.org/1999/XMLSchema"
SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">

The one in question is the xmlns:namesp3.  Or is there another
solution to fix the deserialization/serialization issue?

Thanks.

Regards, Neil

Hello -

I have installed the latest SOAP::Lite on a HPUX machine (HPUX 11.11,
apache 1.3.31, mod_ssl 2.8.19,  mod_ssl 1.29, perl 5.8.3). SOAP::Lite
is running as a mod_perl package on the server side. When I run a test
soap client, I get an error saying " 500 internal error: SSL read time
out;".

Did anyone see the same error before? Any insight will be greatly
appreciated.

Dear all,

This question might be a FAQ question, but I have searched and found
no answers to my question.

When defining the WSDL - I understand that the definition and the
schema part has to have the tns defined with
the 'http:\\[my_server]' style.

However with my simple little soap server, I only get:

<SOAP-ENV:Body><namesp1:SayHello xmlns:namesp1="Hello">
<FirstNM xsi:type="xsd:string">Poul</FirstNM>
<LastNM xsi:type="xsd:string">Kornmod</LastNM>
</namesp1:SayHello></SOAP-ENV:Body></SOAP-ENV:Envelope>

which of cause nicely correspond with my server code:

use SOAP::Transport::HTTP;
     SOAP::Transport::HTTP::CGI
     -> dispatch_to('Hello')
     -> handle;

BEGIN {
   package Hello;

   sub SayHello {
     ..

But I'm looking for something or how to define my tns like:

targetNamespace="http://www.kornmod.dk/soap/Hello.pl"

with a corresponding response <SOAP-ENV:Body>:

<SOAP-ENV:Body><namesp1:SayHello
xmlns:namesp1="http://www.kornmod.dk/soap/Hello">
<FirstNM xsi:type="xsd:string">Poul</FirstNM>
<LastNM xsi:type="xsd:string">Kornmod</LastNM>
</namesp1:SayHello></SOAP-ENV:Body></SOAP-ENV:Envelope>

I really appreciate all you help and guidance.

Poul

In searching for information on deserializers I stumbled upon this gem:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnsoap/html/soa\
pliteperl.asp

Yes, it comes as some what of a shock to find such a useful article on
a microsoft web site, but hey, this one was well done.

I wish I had found this 2 weeks ago, cause the last 2 weeks have been
hell trying to figure out what this article describes in clear detail.

Hi Colin,

I gave up using Soap::Lite instead I used a mixture of LWP and  MIME tools
for perl to simply post the formulated xml request to the server. I found
the documentation for Soap::Lite after 2 weeks very abstract, with no real
examples on the net.
Graham.


>From: "Colin Magee" <colin@...>
>To: "'Mark Fuller'" <amigo_boy2000@...>,"'reidyre'"
><ron.reidy@...>
>CC: <soaplite@yahoogroups.com>
>Subject: RE: [soaplite] how to
>Date: Mon, 20 Sep 2004 19:40:15 +0100
>
>Mark,
>
>Any chance you could mail the same examples to me?  I too am new to web
>services but not to Perl, have bought the book "Web Services with Perl"
>and am too none the wiser.  Is there a theme here?
>
>Regards
>Colin
>
>-----Original Message-----
>From: Mark Fuller [mailto:amigo_boy2000@...]
>Sent: 14 September 2004 22:16
>To: reidyre
>Cc: soaplite@yahoogroups.com
>Subject: Re: [soaplite] how to
>
> >All,
> >I am new to writing web services, but not to Perl.
> >Is there a how-to
> >on what to do?  I have the "Web Services with
> >Perl" book from
> >O'Reilly, but I'm still confused.
>
>Ron,
>
>I've got some examples I created to help people get up
>to speed as painlessly as possible. I can mail them to
>you if you want.
>
>BTW: Don't feel alone at being perplexed. I had *a
>lot* of difficulty comprehending where to start and
>how to do it. In my opinion, SOAP::Lite has way too
>many ways to do things, documentated in too many
>places. I found I couldn't become productive with just
>the book, or just one web site, etc. My examples, of
>course, contribute to the problem. :) But, I don't try
>to cover every way to do things. Just the simplest
>(from my perspective as someone who wasn't "getting"
>it).
>
>Mark
>
>
>
>_______________________________
>Do you Yahoo!?
>Express yourself with Y! Messenger! Free. Download now.
>http://messenger.yahoo.com
>
>
>
>
>Yahoo! Groups Links
>
>
>
>
>

_________________________________________________________________
MSN 8 with e-mail virus protection service: 2 months FREE*
http://join.msn.com/?page=features/virus

Hello,

I have a Daemon:

use SOAP::Transport::HTTP;
use strict;

my $daemon = SOAP::Transport::HTTP::Daemon
     -> new ( LocalAddr => 'localhost', LocalPort => $ARGV[0])
     -> dispatch_to('Node')
     -> handle();

I run a SOAP::Lite client against this server, it just calls the 2
methods Node provides, and always get a 500 Internal server error the
first time.

However, in the second and following runs of the client, the first
method (called store) always succeeds and gets a 200 response, and the
second method (called execute) always fails and gets a 500 internal
server error response.

So, I have 2 questions:

1) Why the first attempt always fails, no matter what method is called.
2) How can I debug the daemon to determinate the cause of the internal
server error.

Thanks in advance.

Juan Natera


Node provide just 2 methods, "store" and "execute", if I run
Is there a way to know what caused the 500 error response?

I'm trying to configure a SOAP server using MIME::Lite.  I'm using
this code on the client side:

my $sl = SOAP::Lite
     -> proxy( 'http://localhost:7070/soaptest' )
     -> uri( '/soaptest' );

$sl->Runner( SOAP::Data->name( blotto => 'foobarius' ) );
print $sl->result, "\n";

Which generates this request:

POST http://localhost:7070/soaptest
Accept: text/xml
Accept: multipart/*
Content-Length: 499
Content-Type: text/xml; charset=utf-8
SOAPAction: "/soaptest#Runner"

<?xml version="1.0" encoding="UTF-8"?><SOAP-ENV:Envelope
xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"
SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance"
xmlns:xsd="http://www.w3.org/1999/XMLSchema"><SOAP-ENV:Body><namesp1:Runner
xmlns:namesp1="/soaptest"><blotto
xsi:type="xsd:string">foobarius</blotto></namesp1:Runner></SOAP-ENV:Body></SOAP-\
ENV:Envelope>

which in turns generates this result:

HTTP/1.1 400 Bad Request
Connection: close
Date: Mon, 27 Sep 2004 16:36:46 GMT
Server: Apache/1.3.31 (Unix) mod_perl/1.29
Content-Type: text/html; charset=iso-8859-1
Client-Date: Mon, 27 Sep 2004 16:36:46 GMT
Client-Peer: 155.10.37.51:7070
Client-Response-Num: 1
Client-Transfer-Encoding: chunked
Title: 400 Bad Request
X-Cache: MISS from localhost

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<HTML><HEAD>
<TITLE>400 Bad Request</TITLE>
</HEAD><BODY>
<H1>Bad Request</H1>
Your browser sent a request that this server could not understand.<P>
[libapreq] unknown content-type: `text/xml; charset=utf-8'<P>
</BODY></HTML>


SOAP::Transport::HTTP::Apache is throwing an error when it tries to
fetch the 'class' paramter from the args passed in the request:

     my %args = $r->args();
     unless (exists $args{class}) {
         return BAD_REQUEST;
     }

I know the error is occurring here, as I've placed debugging messages
in the module.

The server code is this:

use SOAP::Transport::HTTP::Apache;

sub handler {
     my $safe_classes = {
         Runner => undef,
     };
     print STDERR "-------SOAP SERVER START -----------\n";
     my $rc = SOAP::Transport::HTTP::Apache->handler($safe_classes);
     print STDERR "-------SOAP SERVER END -----------\n";
     return $rc;
}

The two messages are written to the log, but the 'Runner' class is
never invoked.

What appears to be happening is that SOAP::Lite is POSTing a XML
document with a content type of text/xml, whereas ::HTTP::Apache is
expected form-encoded data (via calling $r->args).

I've also tried specifying

    $SOAP::Constants::DO_NOT_USE_CHARSET = 1;
    $SOAP::Constants::DO_NOT_CHECK_CONTENT_TYPE = 1;

but it did not help.

I'm following the example in the SOAP::Lite docs, so one would assume
that this worked at one point.  What am I doing wrong?

Many thanks!

     -klm.

--- In soaplite@yahoogroups.com, "Colin Magee" <colin@b...> wrote:
> Mark,
>
> Any chance you could mail the same examples to me?  I too am new to web
> services but not to Perl, have bought the book "Web Services with Perl"
> and am too none the wiser.  Is there a theme here?

Ditto.  Some simple, complete examples, would be much appreciated.

I will say that I did have SOAP operating on some mod-perl enabled
servers, but it was decided (due to in-house security contraints) that
we could not use SOAP.  Don't ask.  Trust me on this one.

So, it was dropped, and I implemented some custom software to jump
through the required security hoops.  However, the time has come where
we can start to look at SOAP again.  Something fundamental has
obviously changed in the last few years with respect to the perl SOAP
implementation, since I didn't have any trouble at all getting it to
work the first time.

Cheers!

    -klm.

Hello,

Please bear with me, as I'm new to using the SOAP::Lite module.

I have to write a client app that makes a request to a .NET service
and according to the service the request must look like this:

<?xml version="1.0" encoding="utf-8" ?>
<PolicySpecification>
         <Policy>
                 <Product>
                         <ProductCode>006700</ProductCode>
                         <PlanId>21577</PlanId>
                         <TransactionType>quote</TransactionType>
                         <OptionalPackages>
                                 <FlightGuard>100000</FlightGuard>
                                 <CollisionDamageWaiver>
                                         <Cars>2</Cars>
                                         <Days>7</Days>
                                 </CollisionDamageWaiver>
                         </OptionalPackages>
                 </Product>
                 <Travelers>
                         <Traveler>
                                 <TripCost>300.00</TripCost>
                                 <BirthDate>01/01/1979</BirthDate>
                         </Traveler>
                         <Traveler>
                                 <TripCost>700.00</TripCost>
                                 <BirthDate>01/01/1979</BirthDate>
                         </Traveler>
                 </Travelers>
                 <Trip>
                         <DepartureDate>11/22/2004</DepartureDate>
                         <ReturnDate>11/27/2004</ReturnDate>

<InitialTripDepositDate>04/04/2004</InitialTripDepositDate>
                 </Trip>
         </Policy>
</PolicySpecification>

Now I've seen that I'm supposed to use SOAP::Data to dress up the call
for .NET, but I've only seen it done when one or two parameters must
be sent over, how do I get to work with something more complex? The
following is my feeble attempt at it:

#!/usr/bin/perl -w

use SOAP::Lite +trace => all;

my $soap = SOAP::Lite-> uri('http://website.com')
                       -> on_action( sub { join '/',
'http://website.com', $_[1] } )
       ->proxy('http://website.com/services.asmx');
$soap->encoding('utf-8');
my $method = SOAP::Data->name('GetQuote')
               ->attr({xmlns => 'http://website.com/'});

my %param = (
   PolicySpecification => {
     Policy => {
       Product => { ProductCode => 006700,
                    PlanId => 21577,
                    TransactionType => "quote",
                    OptionalPackages => {
                      FlightGuard => 100000,
                      CollisionDamageWaiver => {
                        Cars => 2,
                        Days => 7,
                      },
                    },
       },
       Travelers => [
         { Traveler => { TripCost => 300.00, BirthDate => "01/01/1979" }},
         { Traveler => { TripCost => 700.00, BirthDate => "01/01/1979" }},
       ],
       Trip => { DepartureDate => "11/22/2004",
                 ReturnDate => "11/27/2004",
                 InitialTripDepositDate => "04/04/2004"
               }
     }
   }
);
print  $soap->call($method => %param)->result;

Everytime I run it I get a response from the service but its always an
error "Value can not be null: Parameter name s".

Any suggestions?

Justin

Greetings,

I am attempting to connect to a WSDL (for an Ultraseek search engine)
and call a basic method.  My SOAP::Lite client consistanly fails.  I
am, however, able to generate a functional envelope using Mindreef's
SOAPscope.  Can anyone please assit me on how to get SOAP::Lite to
create an equivenant envelope?

######################################
First, the functional envelope generated from SOAPscope:

<?xml version="1.0" encoding="UTF-8"?>
<soap:Envelope xmlns:search="http://verity.com/service/2003/search"
xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
    <soap:Body
soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
       <search:visitURL>
          <visitURLRequestPart
xsi:type="search:VisitURLRequestMessage">
             <sources soapenc:arrayType="xsd:string[1]"
xsi:type="soapenc:Array">
                <item xsi:type="xsd:string">state</item>
             </sources>
             <urls soapenc:arrayType="xsd:string[1]"
xsi:type="soapenc:Array">
                <item
xsi:type="xsd:string">http://server.admin.state.mn.us/test2.htm</item>
             </urls>
          </visitURLRequestPart>
       </search:visitURL>
    </soap:Body>
</soap:Envelope>


##################################################
Next, my lame SOAP::Lite program:

#!/usr/bin/perl
use SOAP::Lite +trace =>  'debug';
my $soap = SOAP::Lite
         -> service
("http://search.state.mn.us/webservices/ultraseek.wsdl")
         -> on_fault(sub { my($soap, $res) = @_;
          die ref $res ? $res->faultdetail : $soap->transport-
>status, "\n";
        });

$soap->visitURL(
SOAP::Data->name('sources')->value('state'),
SOAP::Data->name('urls')->value
('http://server.admin.state.mn.us/resource.html?Id=7997')


#SOAP::Data->name('sources')->value('state')->type
('search:StringArray'),   ##Tried this too, but it fails.
#SOAP::Data->name('urls')->value
('http://server.admin.state.mn.us/resource.html?Id=7997')->type
('search:StringArray'), ##Tried this too, but it fails.

               );

###################################################
Which results in this envelope:

<?xml version="1.0" encoding="UTF-8"?>
<SOAP-ENV:Envelope
xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance"
xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"
xmlns:SOAP-ENV=http://schemas.xmlsoap.org/soap/envelope/
xmlns:xsd="http://www.w3.org/1999/XMLSchema"
SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">

<SOAP-ENV:Body>
<namesp1:visitURL
xmlns:namesp1="http://verity.com/service/2003/search">
<sources xsi:type="xsd:string">state</sources>
<urls
xsi:type="xsd:string">http://server.admin.state.mn.us/resource.html?
Id=7997</urls>
</namesp1:visitURL>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>


######################################

From my reading of the perldocs and cookbook I dont see a way to
force the StringArray type successfully, or embed my variables into
the VisitURLRequestMessage structure.  Any assistance would be
greatly appreciated.

Cheers,

Andrew Koebrick
Minnesota Dept. of Administration
Librarian / Web Guy

Hello,

How does one maintain the data type of a returned complex structure?

Part of the response from a request returns:

<multiRef id="id0" soapenc:root="0" soapenv:encodingStyle="http://schemas.xmls
oap.org/soap/encoding/" xsi:type="ns1:SoapObject" xmlns:soapenc="http://schemas
.xmlsoap.org/soap/encoding/" xmlns:ns1="http://mysoap.server">
<id xsi:type="xsd:string">1234567890</id>
<date xsi:type="xsd:dateTime">2002-04-04T03:32:28.829Z</date>
<activate xsi:type="xsd:boolean">false</activate>
</multiRef>

So let's say I got the object as $result.

  $result = $soap->call($method => @params)->result;

But when I reference the object again, the dateTime data type becomes
string and the activate data type becomes int.  Therefore there's a
data type mismatch when I pass the complex structure again as the
component data types have changed.

The only method I can think of is to pass the structure by specifying
each data type like:
                         SOAP::Data->name('id' =>
                                 SOAP::Data->type('xsd:string' =>
$result->{id})),
                         SOAP::Data->name('date' =>
                                 SOAP::Data->type('xsd:dateTime' =>
$result->{date})),
                         SOAP::Data->name('activate' =>
                                 SOAP::Data->type('xsd:boolean' =>
$result->{activate}))

So going back to my question, is there any other way of maintaining
the data type of the components in a complex structure?

Regards, Neil

At 2004-09-27, 21:14:09 justin122345 <justin122345@...> wrote:

>Hello,
>
>Please bear with me, as I'm new to using the SOAP::Lite module.
>
>I have to write a client app that makes a request to a .NET service
>and according to the service the request must look like this:
>
><?xml version="1.0" encoding="utf-8" ?>
><PolicySpecification>
>        <Policy>
>                <Product>
>                        <ProductCode>006700</ProductCode>
>                        <PlanId>21577</PlanId>
>                        <TransactionType>quote</TransactionType>
>                        <OptionalPackages>
>                                <FlightGuard>100000</FlightGuard>
>                                <CollisionDamageWaiver>
>                                        <Cars>2</Cars>
>                                        <Days>7</Days>
>                                </CollisionDamageWaiver>
>                        </OptionalPackages>
>                </Product>
>                <Travelers>
>                        <Traveler>
>                                <TripCost>300.00</TripCost>
>                                <BirthDate>01/01/1979</BirthDate>
>                        </Traveler>
>                        <Traveler>
>                                <TripCost>700.00</TripCost>
>                                <BirthDate>01/01/1979</BirthDate>
>                        </Traveler>
>                </Travelers>
>                <Trip>
>                        <DepartureDate>11/22/2004</DepartureDate>
>                        <ReturnDate>11/27/2004</ReturnDate>
>
><InitialTripDepositDate>04/04/2004</InitialTripDepositDate>
>                </Trip>
>        </Policy>
></PolicySpecification>
>
>Now I've seen that I'm supposed to use SOAP::Data to dress up the call
>for .NET, but I've only seen it done when one or two parameters must
>be sent over, how do I get to work with something more complex? The
>following is my feeble attempt at it:
>
>#!/usr/bin/perl -w
>
>use SOAP::Lite +trace => all;
>
>my $soap = SOAP::Lite-> uri('http://website.com')
>                      -> on_action( sub { join '/',
>'http://website.com', $_[1] } )
>      ->proxy('http://website.com/services.asmx');
>$soap->encoding('utf-8');
>my $method = SOAP::Data->name('GetQuote')
>              ->attr({xmlns => 'http://website.com/'});
>
>my %param = (
>  PolicySpecification => {
>    Policy => {
>      Product => { ProductCode => 006700,
>                   PlanId => 21577,
>                   TransactionType => "quote",
>                   OptionalPackages => {
>                     FlightGuard => 100000,
>                     CollisionDamageWaiver => {
>                       Cars => 2,
>                       Days => 7,
>                     },
>                   },
>      },
>      Travelers => [
>        { Traveler => { TripCost => 300.00, BirthDate => "01/01/1979"
>}},
>        { Traveler => { TripCost => 700.00, BirthDate => "01/01/1979"
>}},
>      ],
>      Trip => { DepartureDate => "11/22/2004",
>                ReturnDate => "11/27/2004",
>                InitialTripDepositDate => "04/04/2004"
>              }
>    }
>  }
>);
>print  $soap->call($method => %param)->result;
>
>Everytime I run it I get a response from the service but its always an
>error "Value can not be null: Parameter name s".
>
>Any suggestions?

When I used SOAP::Lite to connect to dot net a couple of years ago I
found that I had to do these

1) specify 2001 schema on the soap constructor
     ->xmlschema('2001')
2) explicitly type each element, e.g.
	 SOAP::Data->name(AisleSide => $p{side})->type('string'),

From the error message that you are getting, I would guess that s is a
variable in the server code. Have a word with the server developer to
find out what it is referring to.
Also, turn on trace so that you can see the SOAP envelope that is being
generated.

Regards
Duncan

Hi All

(and apologies in advance if this is a double post)

I am trying to write a SOAP client which requires authentication on
the server. The code i have so far is

*********************************

use SOAP::Lite +trace;

my @data = qq(an, array, of, strings );

my ($server, $endpoint, $soapaction, $method, $method_uri);

$server = 'http://www.soapserver.com';
$endpoint = $server.'/path/to/endPoint.asmx';
$soapaction = 'urn:schema-soap-server/location';
$method = 'Method';
$method_uri = 'urn:schema-soap-server/location';


my $soap = SOAP::Lite->new(
       uri => $soapaction,
       proxy => $endpoint,
       on_action => sub {join '', @_},
       readable => 1,
       encoding => undef
);


$method = SOAP::Data->name($method)->attr({xmlns => $method_uri});

my @params = ( SOAP::Header->name("Authentication" => {
                       "Access" => 'testAcc',
                       "Username"   => 'testUser',
                       "Password"   => '****',
                     })->attr({xmlns => $method_uri}),
                SOAP::Data->name("code"=>\SOAP::Data->value(
                       SOAP::Data->name("string" =>

                         @data)->type("string")))) ;

my $result = $soap->call($method => @params);

***********************************

I am getting the error message

"Server did not find required Authentication SOAP header in the message."

When I look at the serialized XML i can see a name space namesp1 and
in the header

<Authentication xmlns="urn:schema-soap-server/location"
xsi:type="namesp1:SOAPStruct">

I do not have this namespace in the body. Is this the problem, and if
so how can I resolve it? Using LWP with the namesp1 removed *seems* to
work fine, but I would prefer to use SOAP::Lite for deserializing the
reply..

Can anyone help please?

Thanks

Tyndyll

Hello.
How to get XML message, which generated and sent by SOAP::Lite?
Can I get XML before sending request to WS?


Thanks,
Mikhail

See Message 3217 and the replies.

--- In soaplite@yahoogroups.com, "mshtuk_dev" <mshtuk_dev@y...> wrote:
> Hello.
> How to get XML message, which generated and sent by SOAP::Lite?
> Can I get XML before sending request to WS?
>
>
> Thanks,
> Mikhail

Just override SOAP::Trace::debug method and add you prints there:

sub SOAP::Trace::debug
{
    my $caller = (caller(1))[3];
    $caller = (caller(2))[3] if $caller =~ /eval/;
    chomp(my $msg = join ' ', @_);
    printf STDERR "%s: %s\n", $caller, $msg;

    # Add anything you want
    $GLOBAL_LOGGER->log({severity=>'debug', message=>"$caller:\n$msg\n"});
}

-----Original Message-----
From: mshtuk_dev [mailto:mshtuk_dev@...]
Sent: Tuesday, September 28, 2004 5:11 PM
To: soaplite@yahoogroups.com
Subject: [soaplite] Get XML message


Hello.
How to get XML message, which generated and sent by SOAP::Lite?
Can I get XML before sending request to WS?


Thanks,
Mikhail





Yahoo! Groups Links

Just override SOAP::Trace::debug method and add you prints there:

sub SOAP::Trace::debug
{
    my $caller = (caller(1))[3];
    $caller = (caller(2))[3] if $caller =~ /eval/;
    chomp(my $msg = join ' ', @_);
    printf STDERR "%s: %s\n", $caller, $msg;

    # Add anything you want
    $GLOBAL_LOGGER->log({severity=>'debug', message=>"$caller:\n$msg\n"});
}

-----Original Message-----
From: mshtuk_dev [mailto:mshtuk_dev@...]
Sent: Tuesday, September 28, 2004 5:11 PM
To: soaplite@yahoogroups.com
Subject: [soaplite] Get XML message


Hello.
How to get XML message, which generated and sent by SOAP::Lite?
Can I get XML before sending request to WS?


Thanks,
Mikhail





Yahoo! Groups Links

I am posting a solution to my own question, in case future programmers face an identical/similar problem.
Thanks for the off-list assistace I received. The final impediment was my own lack of understanding (now remedied) regarding namespaces.
Anyhow, here is functional Perl::Lite code to interact with the Ultraseek WSDL (in this case suggesting a new URL):
#!/usr/bin/perl
use SOAP::Lite;
my (@sources,@urls);
$urls[0] = "http://server.admin.state.mn.us/test12.htm";
$sources[0] = "state";
my $soap = SOAP::Lite
-> service
("http://search.state.mn.us/webservices/ultraseek.wsdl")
-> on_fault(sub { my($soap, $res) = @_;
die ref $res ? $res->faultdetail : $soap->transport-

>status, "\n";

 });
$soap->visitURL(
SOAP::Data->name("visitURLRequestPart" => \SOAP::Data->value(
SOAP::Data->name("sources" =>
\SOAP::Data->value(SOAP::Data->name("item" => @sources)->type("xsd:string")
)
)->attr({'SOAP-ENC:arrayType' =>'xsd:string[1]'})-

>type("SOAP-ENC:Array"),

 SOAP::Data->name("urls" =>
\SOAP::Data->value(SOAP::Data->name("item" => @urls)->type("xsd:string")
)
)->attr({'SOAP-ENC:arrayType' =>'xsd:string
[1]'})->type("SOAP-ENC:Array")
))->type("namesp1:VisitURLRequestMessage")
);

Greetings,

I am attempting to connect to a WSDL (for an Ultraseek search engine)
and call a basic method.  My SOAP::Lite client consistanly fails.  I
am, however, able to generate a functional envelope using Mindreef's
SOAPscope.  Can anyone please assit me on how to get SOAP::Lite to
create an equivenant envelope?

######################################
First, the functional envelope generated from SOAPscope:

<?xml version="1.0" encoding="UTF-8"?>
<soap:Envelope xmlns:search="http://verity.com/service/2003/search"
xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
   <soap:Body
soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
      <search:visitURL>
         <visitURLRequestPart
xsi:type="search:VisitURLRequestMessage">
            <sources soapenc:arrayType="xsd:string[1]"
xsi:type="soapenc:Array">
               <item xsi:type="xsd:string">state</item>
            </sources>
            <urls soapenc:arrayType="xsd:string[1]"
xsi:type="soapenc:Array">
               <item
xsi:type="xsd:string">http://server.admin.state.mn.us/test2.htm</item>
            </urls>
         </visitURLRequestPart>
      </search:visitURL>
   </soap:Body>
</soap:Envelope>


##################################################
Next, my lame SOAP::Lite program:

#!/usr/bin/perl
use SOAP::Lite +trace =>  'debug';
my $soap = SOAP::Lite
        -> service
("http://search.state.mn.us/webservices/ultraseek.wsdl")
        -> on_fault(sub { my($soap, $res) = @_;
         die ref $res ? $res->faultdetail : $soap->transport-
>status, "\n";
       });

$soap->visitURL(
SOAP::Data->name('sources')->value('state'),
SOAP::Data->name('urls')->value
('http://server.admin.state.mn.us/resource.html?Id=7997')


#SOAP::Data->name('sources')->value('state')->type
('search:StringArray'),   ##Tried this too, but it fails.
#SOAP::Data->name('urls')->value
('http://server.admin.state.mn.us/resource.html?Id=7997')->type
('search:StringArray'), ##Tried this too, but it fails.

              );

###################################################
Which results in this envelope:

<?xml version="1.0" encoding="UTF-8"?>
<SOAP-ENV:Envelope
xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance"
xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"
xmlns:SOAP-ENV=http://schemas.xmlsoap.org/soap/envelope/
xmlns:xsd="http://www.w3.org/1999/XMLSchema"
SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">

<SOAP-ENV:Body>
<namesp1:visitURL
xmlns:namesp1="http://verity.com/service/2003/search">
<sources xsi:type="xsd:string">state</sources>
<urls
xsi:type="xsd:string">http://server.admin.state.mn.us/resource.html?
Id=7997</urls>
</namesp1:visitURL>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>


######################################

>From my reading of the perldocs and cookbook I dont see a way to
force the StringArray type successfully, or embed my variables into
the VisitURLRequestMessage structure.  Any assistance would be
greatly appreciated.

Cheers,

Andrew Koebrick
Minnesota Dept. of Administration
Librarian / Web Guy

-- Andrew Koebrick
Minnesota Bicycle and Pedestrian Alliance, President
www.bikeped.org
651-222-2080 --Sibley Bike Depot
612-276-0641 --Home
The MBPA is a 501(c)3 member supported non-profit dedicated to facilitating biking and walking as a healthy form of transportation. In addition to advocacy and education, we also run the Sibley Bike Depot, a community bicycle education facility in downtown St. Paul.

Please do not change the subject line and reply to terrafirmapune@...

Greetings!

We need Perl, J2EE Programmers for our client in Pune.

About the company:

Our client - a CMM I Level 5 company - (one of the only twleve  IT companies
having this certification in India).Client is amongst the leading software
exporters from India.

___________________________________________________
Details of job: Senior  Programmers Perl, J2EE

Positions: 6

Location: Pune, (you should be willing to relocate to Pune)

Experience: 4-6 Yrs.and above

Qualification: Good Technical Degree BE/MCA/MCM/M.Sc.

Essential skills: Perl, J2EE

The candidates should have very good analytical skills.

Perl and Java,J2EE is A MUST.

Desired Skills: Good Communication Skills
___________________________________________________

Waiting for a positive reply.

Thanks!

Cordially,
Rakesh Ghumatkar
Terra Firma,Placing Ambitions
Pune, India
Tel:91-020-30900542/30907687
Cell:+91-020-31014504
Chat id:terrafirmapune@...

Yahoo IT Job group: www.groups.yahoo.com/group/terrafirmapune  (more than 5000+
members)