For several days now I'v been trying to make this work, still
nothing.
I tryed any combination I could think of, of the 3 components that
seems to have impact on the connectivity between the dispatcher, the
module that contains the services and the client:
dispatch_to , proxy and uri.
  I keep getting an error msg that says:
===========================================
Failed to access class (callexpert::doron::Test): Can't locate
callexpert/doron/Test.pm in @INC (@INC
contains: /callexpert/doron/Test) at (eval 134) line 3.

   So here is my question:
What should I put in those 3 variables if I'm running a soap daemon
server called test_WS_server.pl located in /callexpert/doron/
and calling a function called test in Test.pm located in the same
directory.
currently it looks like this :

in the client:
=================
$host = "http://tti-ce:18885/callexpert/doron/test_WS_server.pl";
$ns = '/callexpert/doron/Test';
my $soap = SOAP::Lite
   ->readable(1)
   ->uri($ns)
   ->proxy($host);
in the server:
===================
   my $daemon = SOAP::Transport::HTTP::Daemon
     -> new (LocalPort => 18885)
     -> dispatch_to('/callexpert/doron/Test')
   ;

   TIA
   Doron

On  2003-08-01 22:06:00  ddiiddoo2000 <doron.ido@...> wrote:

> For several days now I'v been trying to make this work, still
>nothing.
>I tryed any combination I could think of, of the 3 components that
>seems to have impact on the connectivity between the dispatcher, the
>module that contains the services and the client:
>dispatch_to , proxy and uri.
> I keep getting an error msg that says:
>===========================================
>Failed to access class (callexpert::doron::Test): Can't locate
>callexpert/doron/Test.pm in @INC (@INC
>contains: /callexpert/doron/Test) at (eval 134) line 3.
>
>  So here is my question:
>What should I put in those 3 variables if I'm running a soap daemon
>server called test_WS_server.pl located in /callexpert/doron/
>and calling a function called test in Test.pm located in the same
>directory.
>currently it looks like this :
>
>in the client:
>=================
>$host = "http://tti-ce:18885/callexpert/doron/test_WS_server.pl";
>$ns = '/callexpert/doron/Test';
>my $soap = SOAP::Lite
>  ->readable(1)
>  ->uri($ns)
>  ->proxy($host);
>in the server:
>===================
>  my $daemon = SOAP::Transport::HTTP::Daemon
>    -> new (LocalPort => 18885)
>    -> dispatch_to('/callexpert/doron/Test')
>  ;
>

Assuming that your file Test.pm contains a package called simply Test, and
not something like Foo::Bar::Test, then this should work:

in the client:
=================
$host = "http://tti-ce:18885";
$ns = 'urn:Test';
my $soap = SOAP::Lite
   ->readable(1)
   ->uri($ns)
   ->proxy($host);

in the server:
===================
   my $daemon = SOAP::Transport::HTTP::Daemon
     -> new (LocalPort => 18885)
     -> dispatch_to('/callexpert/doron')
   ;

Note that the client doesn't need to know the path of the server daemon, just
the server name and port number. The uri() gives in effect the package name.
The dispatch_to() gives, in this example, the path to the directory. This will
provide access by the server to all modules in the specified directory.

Regards
Duncan

I am would like to retrieve the names of the methods described in a
wdsl document so that I can pipe them to a easysoap++ program that
will call them.
I can retrieve the details of a business using the UDDI:Lite module,
and display them within a web interface.  The <accessPoint> data gives
me a starting point, but I know not the methods I need to connect to.

So idealy I want to read the wsdl doc, and display the methods
available.  With the number of attributes required.

ie

Service : Calcualtor,
AccessPoint : http://www.someurl.com/endpoint
Methods: Add() - args: num1 num2
          mult() - args: num1 num2
          etc.

Is this possible?

Many thanks

Hello,

I am new to SOAP::Lite and I am trying to get SOAP messages passed from
a client via SMTP and the server reading via POP3...

My client is:

use SOAP::Lite;
SOAP::Lite
    -> uri('http://localhost/Demo')
    -> proxy('mailto:myemail@...', smtp => 'smtp', From =>
'me@...', Subject => 'SOAP message')
    -> hi();

My server is composed of two files, Demo.pm and soap.pop3:
Demo.pm:

package Demo;
    sub hi {
      open(FD, "test.dat") or die("Couldn't open test.dat\n");
      print FD "hello, world";
      close(FD);
    }
1;

soap.pop3:

#!perl -w

use SOAP::Transport::POP3;
use Demo;
my $server = SOAP::Transport::POP3::Server
    -> new('pop://myemail:mypassword@pop.myserversomewhere.com')
    -> dispatch_to('Demo');
do { $server->handle } while sleep 10;

When I use "use SOAP::Lite +trace;" in soap.pop3 I get these messages:

Unquoted string "trace" may clash with future reserved word at
soap.pop3 line 4.
SOAP::Serializer::new: ()
SOAP::Deserializer::new: ()
SOAP::Parser::new: ()
SOAP::Server::new: ()
SOAP::Server::handle: ()
SOAP::Deserializer::deserialize: ()
SOAP::MIMEParser::new: ()
SOAP::Parser::decode: ()
SOAP::SOM::new: ()
SOAP::Data::new: ()
SOAP::Data::DESTROY: ()
(eval):
SOAP::Server::handle:
SOAP::Fault::new: ()
SOAP::SOM::DESTROY: ()

But my sub "hi" in Demo.pm is not called, otherwise I would have the
file created, right? I am lost! You will noticed by now that I am new
to this :) Please have mercy :)!

Thanks in advance for pointers, suggestions, ideas.

Cheers

/B

--
Bruno Mattarollo <bmatt@...>
Currently in: Amsterdam, The Netherlands

Hi all,

I'm using a soap::lite for a simple service returning a single
integer parameter.  I'm trying to connect to it using Apache Soap.
When I look a the SOAP response it contains the integer value it is
supposed to return.  However apache soap generates an error

[SOAPException: faultCode=SOAP-ENV:Client; msg=No Deserializer found
to deserialize a 'http://www.w3.org/1999/XMLSchema:integer'
using encoding style
'http://schemas.xmlsoap.org/soap/encoding/'.;
targetException=java.lang.IllegalArgumentException: No Deserializer
found to deserialize a 'http://www.w3.org/1999/XMLSchema:integer'
using encoding style 'http://schemas.xmlsoap.org/soap/encoding/'.]

-----------------------------------------------------------

#!/usr/bin/perl

use SOAP::Transport::HTTP;

	 SOAP::Transport::HTTP::CGI
   		 ->dispatch_to('Hallo')
   		 ->handle;
exit;

package Hallo;

sub single_param {
	 $ret = '456';
	 return ($ret);
}

---------------------------------------

     try {
       URL url = new URL("http://mywebservice/url.cgi");
       String urn = "urn:Hallo";
       Call call = new Call();
       call.setEncodingStyleURI(Constants.NS_URI_SOAP_ENC);
       call.setTargetObjectURI(urn);
       call.setMethodName("single_param");

       Response response = call.invoke(url, "");

       if (response.generatedFault()) {
         Fault f = response.getFault();
       }
       else {

             Parameter ret = response.getReturnValue();
         }
     }
     catch (Exception e) {}

I'm trying to call a method example: FOO::Name->find()

In my server, I call FOO but in my client I can't access any of the
methods in FOO::Name.

use SOAP::Lite +autodispatch =>
   uri => 'http//joyce.net',
   proxy => 'http://localserver/soap.cgi';


my ($exist) = FOO::Name->find($domainname);

in my SOAP.cgi, i call

SOAP::Transport::HTTP::CGI
   -> dispatch_to('/home/joyce', 'FOO')
   -> handle;

CAN SOMEONE PLEASE HELP?

Hi,

I think I've found a bug in SOAP::Lite that prevents it from
working under mod_perl.

For this configuration, my mod_perl and apache version is
1.3.27 -- the absolute latest at the time of this message.
SOAP::Lite is .55

Here is my soap server (soap3.cgi):

#!/usr/bin/perl -w
use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::CGI->dispatch_to(@INC)->handle;

Here is the client:

#!/usr/bin/perl -w

use SOAP::Lite;

my $soap = SOAP::Lite
                 ->uri('https://127.0.0.1/UWDS/WSTest')
                 ->proxy('https://127.0.0.1/basic/soap3.cgi')
                 ->on_debug( sub { print @_; } );

my $result = $soap->Test(data=>"Jeremy");

   unless ($result->fault) {
     print $result->result() . "\n";
   } else {
     print join ', ',
       $result->faultcode,
       $result->faultstring;
   }

sub SOAP::Transport::HTTP::Client::get_basic_credentials {
  return 'TestUser1' => 'blah';
}

UWDS::Test is a module installed in the system, in @INC.

The first few times it runs, it works fine:

<?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:TestResponse
xmlns:namesp1="https://wrath.doit.wisc.edu/UWDS/WSTest"><s-gensym3
xsi:type="xsd:string">Hello World, Hello Jeremy</s-
gensym3></namesp1:TestResponse></SOAP-ENV:Body></SOAP-ENV:Envelope>
Hello World, Hello Jeremy

After 3-4 times it starts to fail:

<?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><SOAP-
ENV:Fault><faultcode xsi:type="xsd:string">SOAP-
ENV:Client</faultcode><faultstring xsi:type="xsd:string">Denied
access to method (Test) in class (UWDS::WSTest)
at /usr/lib/perl5/site_perl/5.6.1/SOAP/Lite.pm line 2128, <DATA>
line 422.
</faultstring></SOAP-ENV:Fault></SOAP-ENV:Body></SOAP-ENV:Envelope>
SOAP-ENV:Client, Denied access to method (Test) in class
(UWDS::WSTest) at /usr/lib/perl5/site_perl/5.6.1/SOAP/Lite.pm line
2128, <DATA> line 422.

This occurs when the script is run under both mod_perl's
Apache::PerlRun and Apache::Registry, but it works just fine
when run as a plain old cgi. I even compiled Apache with
--disable-rule=EXPAT as some have suggested, but that doesn't
help.

Any Ideas? Anyone?

Hi, thanks for the response...

I actually ended up doing what you
suggested but with a little bit of a twist.

Dispatching to @INC is dangerous, but what
I didn't show was how I mitigate that with
security checks.

(I had thought that my extra code caused the
bug, but it didn't so I left it out for clarity.)

I had another server that uses the "on_action"
handler to read $ENV{REMOTE_ADDR},
$ENV{REMOTE_USER} or a certificate subject,
and the called soapaction method.

With these three pieces of information, a
custom routine (in the on_action handler)
does an authorization check against an LDAP
server with custom application schema.
(Is this user from ip allowed to run the method?)

If they're not authorized, it dies with a soap fault.
If they are, it goes ahead and dispatches.

So what I did was turn my cgi into an Apache
module by using Apache::SOAP as a template.
I added the 'on_action' option to Apache::SOAP
along with some other custom code and called it
Apache::UWDS. Also, this runs over SSL and each
client has an SSL certificate with a subject that
represents their user name.

Here's the config. Note the evil <Perl> tags.

<Location "/cert">
     SSLVerifyClient require
     SSLOptions +StdEnvVars
     SetHandler perl-script
     PerlHandler Apache::UWDS
     <Perl>
      push @{ $Location{"/cert"}->{PerlSetVar}}, [
dispatch_to => join(",",@INC) ];
     </Perl>
</Location>


So, now I have a secure and easy to administer
webservice platform. All I do is install the perl
modules I want people to access on the webservers,
give them client certificates, and add an application
entry to our LDAP server with the module::methods
they're allowed to call and it's done. No messing with
the webserver for new modules/new users! :)

I ran this code last night, and it ran 300,000 soap
calls without leaking memory/blowing up, crashing the
LDAP server etc... I use ResourcePool for making the
LDAP connections.



> Luckily there is a very simple solution ... mod_soap
> which is documented in the SOAP::Lite
> pods (perldoc SOAP::Lite ... or
> http://www.soaplite.com). This will register yoru
> SOAP server
> as a pure mod_perl handler and take care of the
> dispatching for you. All you need to do is
> configure the httpd.conf file to point in the right
> direction.
>
> Also this means you won't have to/be able to do the
> very scary and dangerous
> ->dispatch_to(@INC) ...
>
> -Chris
>


__________________________________
Do you Yahoo!?
Yahoo! SiteBuilder - Free, easy-to-use web site design software
http://sitebuilder.yahoo.com

On 2003.08.05 08:44, joycecho1121 wrote:
> I'm trying to call a method example: FOO::Name->find()
>
> In my server, I call FOO but in my client I can't access any of the
> methods in FOO::Name.
>
> use SOAP::Lite +autodispatch =>
>   uri => 'http//joyce.net',
>   proxy => 'http://localserver/soap.cgi';
>
>
> my ($exist) = FOO::Name->find($domainname);
>
> in my SOAP.cgi, i call
>
> SOAP::Transport::HTTP::CGI
>   -> dispatch_to('/home/joyce', 'FOO')
>   -> handle;

Well, to begin with you are dispatching to 'FOO', and not 'FOO::Name'.
However, without more in the way of client and server code (and the FOO::Name
class, for that matter), it's hard to say any more than that.

Randy
--
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Randy J. Ray        Campbell, CA    http://www.rjray.org   rjray@...

Silicon Valley Scale Modelers: http://www.svsm.org

Hello all,...

...first of all, being new to here: Hello. I'm Kris. :) Being using
perl for quite a lot of years now, I some days ago stepped into
SOAP::Lite more or less out of necessity rather than "just"
interest. Actually, I am about to create a "server" which processes
data coming from an already existing client. Time for that is
_rather_ short, and in the end I am left with learning about SOAP
and (mostly) XML in less than two weeks. :/ Anyhow, thanks to
"Programming Web Services In Perl" (great book, a really worthy
buy), I by now at least have a slight idea of what is goin' on, and
also wrote some small try-out SOAP client/server pairs for example
to modify images using perlmagick - funny. :)

Anyhow, as for my special task, there are two issues I don't yet
know how to solve:

(a) As stated, the client which should connect to our server already
exists. To write the server I was given some sample SOAP messages of
what the client sends to the server, and which I need to process in
order to put the data submitted somewhere. Question: Inside a
SOAP::Transport::HTTP::CGI, how do I get the unmodified, full
message that has been posted to that server? How can I access the
XML code itself to extract what I need?

(b) Those messages will come with a .zip file attached which
contains several files; and, as for the client, message and file can
be transmitted using MIME and DIME. How do I access this file that
is attached to the message (actually, the file name itself is, as a
string, found in the xml part of that message).

Sorry if those questions are probably rather stupid or too obvious,
perhaps I'll find out how to do this, myself, by movin' on reading
through the documentation I found, but I'd really be thankful for
some hints on that...

TIA, have a nice weekend anyone. :)
Kris

--
unschuldig? nicht verdächtig? unbeobachtet? vergiß es ...

gegen eine gesellschaft der totalen überwachung - aufwachen
und mitmachen:  http://www.stop1984.org

Hi,

  I am trying to send a hashmap to a soaplite server.

Client code (snippet) looks like:

%params = ("program" => "fasta3");
...
my $som = $soap->testhash(SOAP::Data->type(map=>\%params)-
>name('params'));
print $som=>result."\n";

The soap request looks like:
<namesp1:testhash xmlns:namesp1="TestHash">
       <params xsi:type="apachens:Map">
         <item>
           <key xsi:type="xsd:string">program</key>
           <value xsi:type="xsd:string">fasta3</value>
        </item>
     </params>
</namesp1:testhash>

The server code snippet:

my ($self, %params) =@_;
my $value = $params{"program"};
...

I have gone through the mails here and think the above server code is right. But
I
don't seem to be able to access the hash. What am I doing wrong? Is there some
module I am missing?

Will appreciate any help.
TIA,
Sharmila.

Hello all,...

...first of all, being new to here: Hello. I'm Kris. :) Being using
perl for quite a lot of years now, I some days ago stepped into
SOAP::Lite more or less out of necessity rather than "just"
interest. Actually, I am about to create a "server" which processes
data coming from an already existing client. Time for that is
_rather_ short, and in the end I am left with learning about SOAP
and (mostly) XML in less than two weeks. :/ Anyhow, thanks to
"Programming Web Services In Perl" (great book, a really worthy
buy), I by now at least have a slight idea of what is goin' on, and
also wrote some small try-out SOAP client/server pairs for example
to modify images using perlmagick - funny. :)

Anyhow, as for my special task, there are two issues I don't yet
know how to solve:

(a) As stated, the client which should connect to our server already
exists. To write the server I was given some sample SOAP messages of
what the client sends to the server, and which I need to process in
order to put the data submitted somewhere. Question: Inside a
SOAP::Transport::HTTP::CGI, how do I get the unmodified, full
message that has been posted to that server? How can I access the
XML code itself to extract what I need?

(b) Those messages will come with a .zip file attached which
contains several files; and, as for the client, message and file can
be transmitted using MIME and DIME. How do I access this file that
is attached to the message (actually, the file name itself is, as a
string, found in the xml part of that message).

Sorry if those questions are probably rather stupid or too obvious,
perhaps I'll find out how to do this, myself, by movin' on reading
through the documentation I found, but I'd really be thankful for
some hints on that...

TIA, have a nice weekend anyone. :)
Kris

--
unschuldig? nicht verdächtig? unbeobachtet? vergiß es ...

gegen eine gesellschaft der totalen überwachung - aufwachen
und mitmachen:  http://www.stop1984.org

Sharmila,

I am doing something similar in nmy SOAP server. Here is my client call:

	 my $inputSoapParam = SOAP::Data
		 -> name('inputStruct')
		 -> type('SOAPStruct')
		 -> value(\%xmlInput)
	 ;

	 my $response = SOAP::Lite
		 -> readable(1)
		 -> uri($uri)
		 -> proxy($PROXY)
		 -> getDecision($inputSoapParam)
	 ;

and here is the catcher's mitt in the server:

sub getDecision {
	 my ($obj, $in) = @_;
	 my $out = &do_something(%{$in});
}

and it works fine for me. I haven't done any performance testing, though, so I
am not sure how optimal this is...

Thom Eden

---------- Original Message ----------------------------------
From: "sharmila_pillai" <sharmila_pillai@...>
Date: Fri, 08 Aug 2003 11:13:18 -0000

>Hi,
>
> I am trying to send a hashmap to a soaplite server.
>
>Client code (snippet) looks like:
>
>%params = ("program" => "fasta3");
>...
>my $som = $soap->testhash(SOAP::Data->type(map=>\%params)-
>>name('params'));
>print $som=>result."\n";
>
>The soap request looks like:
><namesp1:testhash xmlns:namesp1="TestHash">
>      <params xsi:type="apachens:Map">
>        <item>
>          <key xsi:type="xsd:string">program</key>
>          <value xsi:type="xsd:string">fasta3</value>
>       </item>
>    </params>
></namesp1:testhash>
>
>The server code snippet:
>
>my ($self, %params) =@_;
>my $value = $params{"program"};
>...
>
>I have gone through the mails here and think the above server code is right.
But I
>don't seem to be able to access the hash. What am I doing wrong? Is there some
>module I am missing?
>
>Will appreciate any help.
>TIA,
>Sharmila.
>
>
>
>
>To unsubscribe from this group, send an email to:
>soaplite-unsubscribe@yahoogroups.com
>
>
>
>Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>
>

My experience is that this works great for SOAP::Lite to SOAP::Lite
servers and clients, but not for the WS community at large.

I personally would avoid SOAPStructs like the plague. :)

Instead, you relegate yourself to a more "manual" process for deriving
your XML instead of using native Perl data structures.

Check out: http://majordojo.com/soaplite/ for some HOWTOs on this topic.

On Fri, 2003-08-08 at 08:54, Thom Eden wrote:
> Sharmila,
>
> I am doing something similar in nmy SOAP server. Here is my client
> call:
>
>       my $inputSoapParam = SOAP::Data
>             -> name('inputStruct')
>             -> type('SOAPStruct')
>             -> value(\%xmlInput)
>       ;
>
>       my $response = SOAP::Lite
>             -> readable(1)
>             -> uri($uri)
>             -> proxy($PROXY)
>             -> getDecision($inputSoapParam)
>       ;
>
> and here is the catcher's mitt in the server:
>
> sub getDecision {
>       my ($obj, $in) = @_;
>       my $out = &do_something(%{$in});
> }
>
> and it works fine for me. I haven't done any performance testing,
> though, so I am not sure how optimal this is...
>
> Thom Eden
>
> ---------- Original Message ----------------------------------
> From: "sharmila_pillai" <sharmila_pillai@...>
> Date: Fri, 08 Aug 2003 11:13:18 -0000
>
> >Hi,
> >
> > I am trying to send a hashmap to a soaplite server.
> >
> >Client code (snippet) looks like:
> >
> >%params = ("program" => "fasta3");
> >...
> >my $som = $soap->testhash(SOAP::Data->type(map=>\%params)-
> >>name('params'));
> >print $som=>result."\n";
> >
> >The soap request looks like:
> ><namesp1:testhash xmlns:namesp1="TestHash">
> >      <params xsi:type="apachens:Map">
> >        <item>
> >          <key xsi:type="xsd:string">program</key>
> >          <value xsi:type="xsd:string">fasta3</value>
> >       </item>
> >    </params>
> ></namesp1:testhash>
> >
> >The server code snippet:
> >
> >my ($self, %params) =@_;
> >my $value = $params{"program"};
> >...
> >
> >I have gone through the mails here and think the above server code is
> right. But I
> >don't seem to be able to access the hash. What am I doing wrong? Is
> there some
> >module I am missing?
> >
> >Will appreciate any help.
> >TIA,
> >Sharmila.
> >
> >
> >
> >
> >To unsubscribe from this group, send an email to:
> >soaplite-unsubscribe@yahoogroups.com
> >
> >
> >
> >Your use of Yahoo! Groups is subject to
> http://docs.yahoo.com/info/terms/
> >
> >
> >
>
>                         Yahoo! Groups Sponsor
>                                           ADVERTISEMENT
>                                             Click Here!
>
> To unsubscribe from this group, send an email to:
> soaplite-unsubscribe@yahoogroups.com
>
>
>
> Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
--
Byrne Reese <byrne@...>

for example, the GetTopMovers() function in
http://www.xignite.com/xquotes.asmx?WSDL

returns an array of complex types. I can't figure out how to decode
this. using $som->result and decoding with Data::Dumper just gives me
the last item.

there's supposed to be some magical incantation of SOAP::Lite where a
function of your choice is called whenever certain tags are received, e.g.

sub decode_change() if a <change> and </change> pair are found
sub decode_movers() if <movers> and </movers>

etc. etc.

although i can't remember how to do the prescribed incantation. :P

Hello Guys,

I'm new to soaplite and I'm havin some interoperabities issues.

I did a SOAP::Lite server that is working pretty weel with soaplite
clients and with asp clients using the soaplite COM dll.
My problem is to use the SOAP::Lite Server with a delphi or ms soap
toolkit with a wsdl file.
I create the wsdl file with WSDL::Generator and with Cape Clear WSDL
Editor.
The problem is that when I make a request using the wsdl file, the xml
request generated doesn't include the method name, but just the
parameters and this don't work.
Whith  the soaplite COM dll the method name is passed and all works
pretty well.
What could be the problem? Is it my wsdl file, or my SOAP::Lite
server.


This is my SOAP::Lite server

#!/usr/bin/perl -w

use SOAP::Transport::HTTP;

SOAP::Transport::HTTP::CGI
     -> on_action(sub {return})
     -> dispatch_to('/opt/mf', 'debitos', 'segundavia')
     -> handle;


And this is my wsdl file:

<?xml version="1.0" encoding="UTF-8"?>
<definitions
     name="debitos"
     targetNamespace="http://10.1.20.217/wsdl/debitos.wsdl"
     xmlns="http://schemas.xmlsoap.org/wsdl/"
     xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
     xmlns:tns="http://10.1.20.217/wsdl/debitos.wsdl"
     xmlns:xsd="http://www.w3.org/2001/XMLSchema"
     xmlns:xsd1="http://10.1.20.217/wsdl/debitos.xsd1">
     <types>
         <xsd:schema
             targetNamespace="http://10.1.20.217/wsdl/debitos.xsd1"
             xmlns="http://schemas.xmlsoap.org/wsdl/"
             xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/"
             xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/"
             xmlns:tns="http://10.1.20.217/wsdl/debitos.wsdl"
             xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
             xmlns:xsd="http://www.w3.org/2001/XMLSchema"
             xmlns:xsd1="http://10.1.20.217/wsdl/debitos.xsd1">
             <xsd:complexType name="LinhaDebitos">
                 <xsd:complexContent>
                     <xsd:restriction base="SOAP-ENC:Array">
                         <xsd:sequence>
                             <xsd:element maxOccurs="5" minOccurs="5"
name="item" type="xsd:string"/>
                         </xsd:sequence>
                         <xsd:attribute ref="SOAP-ENC:arrayType"
wsdl:arrayType="xsd:string[]"/>
                     </xsd:restriction>
                 </xsd:complexContent>
             </xsd:complexType>
             <xsd:complexType name="ArrayDebitos">
                 <xsd:complexContent>
                     <xsd:restriction base="SOAP-ENC:Array">
                         <xsd:sequence>
                             <xsd:element maxOccurs="24" minOccurs="0"
name="item" type="xsd1:LinhaDebitos"/>
                         </xsd:sequence>
                         <xsd:attribute ref="SOAP-ENC:arrayType"
wsdl:arrayType="xsd1:LinhaDebitos[]"/>
                     </xsd:restriction>
                 </xsd:complexContent>
             </xsd:complexType>
             <xsd:complexType name="ListaDebitos">
                 <xsd:sequence>
                     <xsd:element maxOccurs="1" minOccurs="1"
name="Nome" type="xsd:string"/>
                     <xsd:element maxOccurs="1" minOccurs="1"
name="cdc" type="xsd:string"/>
                     <xsd:element
                         maxOccurs="1"
                         minOccurs="1"
                         name="debitos"
                         type="xsd1:ArrayDebitos"/>
                 </xsd:sequence>
             </xsd:complexType>
         </xsd:schema>
     </types>
     <message name="NewMessageResponse">
         <part name="debitos" type="xsd1:ListaDebitos"/>
     </message>
     <message name="NewMessageRequest">
         <part name="cdc" type="xsd:string"/>
     </message>
     <portType name="debitosPortType">
         <operation name="lista_debitos">
             <input message="tns:NewMessageRequest"/>
             <output message="tns:NewMessageResponse"/>
         </operation>
         <operation name="hi">
             <input message="tns:hiRequest"/>
             <output message="tns:hiResponse"/>
         </operation>
     </portType>
     <binding name="debitosBinding" type="tns:debitosPortType">
         <soap:binding style="document"
transport="http://schemas.xmlsoap.org/soap/http"/>
         <operation name="lista_debitos">
             <soap:operation soapAction="debitos#listadebitos"/>
             <input>
                 <soap:body parts="cdc" use="literal"/>
             </input>
             <output>
                 <soap:body parts="debitos" use="literal"/>
             </output>
         </operation>
     </binding>
     <service name="debitos">
         <documentation>Lista de Debitos</documentation>
         <port binding="tns:debitosBinding" name="debitosPort">
             <soap:address
location="http://10.1.20.217/perl/mainframe.cgi"/>
         </port>
     </service>
</definitions>

All,
   I fear that this may be a very dumb/obvious problem, but I'm stuck
and hope that someone will give me a hand.

Here is some background on what I am doing...

1) Building a perl client to a Web Service that I do not control (So
I can only debug/work on this from the client side. Fortunatly that
is where I think the problem is. :)

2) Using windows ActivePerl (5.6.1 build 635) with SOAP::Lite 0.55.

     I have a WSDL for the web service, and it only uses "Document -
Literal" interface. (sorry my termanilogy is likely wrong here.)
Below is a snip of the code I am using...

##### start code ######
use SOAP::Lite;

#HOST is a location to get the WSDL from a standard http request
# replaced actual "host name" with "<server>" for the post. :)
$HOST = "http://<server>/arsys/WSDL/nmba/sprt_Service_Request_test2";
$NS = "sprt_Service_Request_test2";
$REQUEST_ID = "TFR00008170423";

print "starting to connect\n";

print "prep of data\n";
my $data = SOAP::Data
		 ->encodingStyle
('http://schemas.xmlsoap.org/soap/encoding/')
		 ->name('Case_ID')->value($REQUEST_ID);

package main;

print "calling ws and OpGet method ". __LINE__ ."\n";
$conn= SOAP::Lite
	 ->service($HOST)
	 ->uri($NS)
	 ->OpGet($data);
print "got here!\n";
print "ref($conn) (", ref($conn), ")\n";
if (ref($conn)) {
         print "conn is a reference to a ".ref($conn).".\n";
     }
if (!(ref($conn))) {
         print "conn is not a reference at all.\n";
}

#print SOAP::Lite
# ->service($HOST)
# ->uri($NS)
# ->OpGet($data);

##### End code ######

What I get is very odd to me. (Please help me understand what is, or
is not happening.)

When I run the code I get:
"
starting to connect
prep of data
calling ws and OpGet method 69
got here!
ref() ()
conn is not a reference at all.
"

So it is like $conn is not getting set. (To anything!)

     However if I do the print statment that is commented at the end
of the code I see what I would expect to get back. Except all of the
XML tags are striped and the contents are just dumped as a big string.


     If I do a (( use SOAP::Lite +trace=>all; )) to turn on some very
verbos output then I see the following. (Which looks more like what I
want to get at, but apparently I/SOAP::Lite does not know how to
handel properly.

### start snip (short version) of commented print statment #####
### the full value is like 10000 lines long so I'm not going to post
the whole thing. :) ###
SOAP::Serializer::envelope: OpGet SOAP::Data=HASH(0x1fc5ab8)
SOAP::Data::new: ()
SOAP::Transport::HTTP::Client::send_receive: HTTP::Request=HASH
(0x222ee60)
SOAP::Transport::HTTP::Client::send_receive: POST
http://<server>/arsys/services/ARService?
server=nmba&webService=sprt_Service_Request_test2
Accept: text/xml
Accept: multipart/*
Content-Length: 538
Content-Type: text/xml; charset=utf-8
SOAPAction: "urn:sprt_Service_Request_test2/OpGet"

<?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><OpGet
xmlns=""><Case_ID SOAP-
ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
xsi:type="xsd:string">TFR00008170423</Case_ID></OpGet></SOAP-
ENV:Body></SOAP-ENV:Envelope>
SOAP::Transport::HTTP::Client::send_receive: HTTP::Response=HASH
(0x232da9c)
SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 200 OK
Connection: close
Date: Tue, 12 Aug 2003 14:53:12 GMT
Server: Microsoft-IIS/5.0
Content-Type: text/xml; charset=utf-8
Client-Date: Tue, 12 Aug 2003 14:53:11 GMT
Client-Peer: 172.22.17.49:80
Client-Response-Num: 1
Set-Cookie: JSESSIONID=<some junk here too :)>; path=/arsys/

<?xml version="1.0" encoding="UTF-8"?>
<soapenv:Envelope
xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <soapenv:Body>
<OpGetResponse
xmlns="urn:sprt_Service_Request_test2"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
	 <__Child_Requests_of_Parent/>
	 <__Child_Service_Requests>0</__Child_Service_Requests>
	 <__Customer_Calls>1</__Customer_Calls>
	 <__Customer_Emails>0</__Customer_Emails>
	 <__Our_Calls>0</__Our_Calls>

<big snip of output here .. just more xml elements with values that
makes sense to me />

<zWorkaround/>
</OpGetResponse> </soapenv:Body>
</soapenv:Envelope>
SOAP::Deserializer::deserialize: ()
SOAP::Parser::decode: ()
SOAP::SOM::new: ()
SOAP::SOM::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::SOM::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Serializer::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Data::DESTROY: ()
SOAP::Deserializer::DESTROY: ()
SOAP::Parser::DESTROY: ()
SOAP::Transport::DESTROY: ()
SOAP::Transport::HTTP::Client::DESTROY: ()
SOAP::Lite::DESTROY: ()
### end snip (short version) of commented print statment #####



Can anyone clue me in to what I need to do to get the results back in
a form that I can process the results in Perl?

(I think I am very close to the solution that I'm looking for. I just
need that one or two more things to finish this.)

Thanks in advance
--
Carey Matthew Black

This was posted before and the previous answers did not help.
Here is what I am trying to do
The webservices are hosted on a weblogic server

My perl client code is as follows
$api_server = SOAP::Lite
     -> uri('http://soapserver.mycompany.com/webservices/')
     -> proxy
('http://soap.mycomp.com:7001/webservices/TestPackageWS.jws')
         ->autotype(0);

$hdr = SOAP::Data->name("header" =>
             \SOAP::Data->value(SOAP::Data->name("date"=>
                           \"2003-08-12T19:53:32.050Z" ),
                           SOAP::Data->name("submitter"=>
                              \"ME"),
                           SOAP::Data->name("submitterTransactionId"=>
                              \10),
                           SOAP::Data->name("attemptNumber" =>
                              \1),
                           SOAP::Data->name("method" =>
                              \"SOAP"))),
             SOAP::Data->name("testInput"=>
             \SOAP::Data->value(SOAP::Data->name("inputID"=>
                            \20)))->type('');

$api_server->request($hdr);


Here is what the weblogic server is logging
<?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><namesp2:request
xmlns:namesp2="http://soapserver.mycompany.com/webservices/"><header><
date><c-gensym5>2003-08-12T19:53:32.050Z</c-
gensym5></date><submitter><c-gensym7>ME</c-
gensym7></submitter><submitterTransactionId><c-gensym9>10</c-
gensym9></submitterTransactionId><attemptNumber><c-gensym11>1</c-
gensym11></attemptNumber><method><c-gensym13>SOAP</c-
gensym13></method></header></namesp2:request></SOAP-ENV:Body></SOAP-
ENV:Envelope>

I still cant understang why there are these c-gensym?? I just want to
turn them off. I even tried
use SOAP::Lite (maptype={},autotype=>0);
It did not work either.

Please help

Hi.  I am using an inherited class in SOAP::Lite, but having trouble
loading the super class.

use SOAP::Lite
dispatch_to=>'Blah',
uri=>$uri,
proxy=>$proxy;

Blah inherits from a super class, Super, with more than one
package.  I'm trying to get hold of other packages in Super without
having to load Super itself.
If I just use Blah without SOAP::Lite, it works fine. However, if I
try to use SOAP::Lite, the packages in Super does not load.  What
Can i Do?

Hi,

is there a way to get debugging (like +trace) information on the server
side together with SOAP::Transport::HTTP::Daemon?

with kind regards,
Mit freundlichen Gruessen,

Roland Moriz
--
Muenchen/Germany - http://www.roland-moriz.de/

In UDDI::Lite I am trying to create a simple business entity structre with
two bindingTemplate within bindingTemplates structure.

Is there a $busent->bindingTemplates->add style method.  I have searched all
the examples given and in lists, but people only ever seem to register
single binding services.

Here is my code, with one bindingTemplate:

################# Start Code ###############################################
my $auth = get_authToken({userID => 'juddi', cred => 'password'})->authInfo;
my $busent = with businessEntity =>
	 name("Business"),
	 description("a business"),
	 businessKey(''),
	 businessServices with businessService =>
		 name("service"),
		 description("Your service"),
		 serviceKey(''),
		 bindingTemplates with bindingTemplate =>
			 description("a binding"),
			 accessPoint('http://url/accesspoint'),
			 bindingKey(''),
			 tModelInstanceDetails with tModelInstanceInfo =>
				 description('Tmodel desc'),
				 tModelKey(''),
				 with overviewDoc =>
					 description(''),
					 overviewURL('http://localhost/ws/x.wsdl');

$bus = save_business($auth, $busent);
################### end Code ###############################################

So how would I go about adding another?

I would appreciate any help offered.

Richard, Guildford-UK

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.505 / Virus Database: 302 - Release Date: 30/07/2003

> This was posted before and the previous answers did not help.
> Here is what I am trying to do
> The webservices are hosted on a weblogic server
>
> My perl client code is as follows
> $api_server = SOAP::Lite
>     -> uri('http://soapserver.mycompany.com/webservices/')
>     -> proxy
> ('http://soap.mycomp.com:7001/webservices/TestPackageWS.jws')
>         ->autotype(0);
>
> $hdr = SOAP::Data->name("header" =>
>             \SOAP::Data->value(SOAP::Data->name("date"=>
>                           \"2003-08-12T19:53:32.050Z" ),
>                           SOAP::Data->name("submitter"=>
>                              \"ME"),
>                           SOAP::Data->name("submitterTransactionId"=>
>                              \10),
>                           SOAP::Data->name("attemptNumber" =>
>                              \1),
>                           SOAP::Data->name("method" =>
>                              \"SOAP"))),
>             SOAP::Data->name("testInput"=>
>             \SOAP::Data->value(SOAP::Data->name("inputID"=>
>                            \20)))->type('');
>
> $api_server->request($hdr);

I believe you've got too many references.  The ones preceding the SOAP::Data-
>value calls are fine; it's the ones preceding the arguments to SOAP::Data-
>name that need to go.

--
Eric Amick
Columbia, MD

Hello

I'm just working to add a SOAP server on an existing perl software.
That software already have a FastCGI web interface, and that's why I
would like to use the same technology for my SOAP server.

Does anybody know if it's possible to Run a FCGI SOAP server with PERL??

Thx in advance

Benoît ORTNER

Hello, perhaps I'm simply not configuring things properly, but I'm
having a hard time using the OO aspect of SOAP::Lite.

I'm setting up a mod_perl server, I've registered Apache::SOAP as the
handler via a location directive (forgive the broken formatting):
<Location /soap>
PerlSetEnv PERL5LIB  \
"/home/mental/source/java-stuff/hmsonline/htdocs/soap"

SetHandler perl-script

PerlHandler Apache::SOAP

PerlSetVar dispatch_to \
"/home/mental/source/java-stuff/hmsonline/htdocs/soap, \
HMS::CCL::Transaction, HMS::CCL::Transaction::clean"

PerlSetVar options "compress_threshold => 10000"
</Location>
################################################################################\
#################

That _seems_ to work. I can write a client and get a new Transaction
object. However, I am unable to call the clean method. I should be able
to instantiate a remote object, then call methods on it, correct? I'm
trying to start simple, then work my way forward. The service is this at
the moment:

package HMS::CCL::Transaction;
use strict;
sub new
{
   my $class = shift;
   my $self  = {};
   bless $self,$class;
   my $args = shift;
   $self->{'type'} = $args->{'type'};
   $self->{'instance_opts'} = $args->{'opts'};
   return $self;
}



sub clean
{
   my ($self) = @_;
   return $self->{'type'};
}

1;
__END__
################################################################################\
##################

Client code looks like:
#!/usr/bin/perl -w
use strict;
use SOAP::Lite
    #+trace=>'all',
    proxy=>'http://crabby.hmsonline.com/soap/',
    on_fault => sub { my ($soap,$res) = @_;
      die ref $res ? $res->faultdetail : $soap->transport->status,"\n";
    }
    ;
use Data::Dumper;
my $soap = SOAP::Lite->new()->uri('/HMS/CCL/Transaction');
my $args = get_constructor_opts();
my $obj = $soap->call(new => $args)->result;
print "returned object:",$obj,"\n";
print Dumper($obj);
my $str = $soap->clean($obj)->result;
print $str;


sub get_constructor_opts
{
   my %foo;
   $foo{'type'} = "hms.phone.us";
   return \%foo;
}

################################################################################\
############

It prints the following:
returned object:HMS::CCL::Transaction=HASH(0x86bac7c)
$VAR1 = bless( {
                  'instance_opts' => undef,
                  'type' => 'hms.phone.us'
                }, 'HMS::CCL::Transaction' );



So, I'm getting the right object type back, but when I call clean, I get
this in the apache error log:
(eval): HMS::CCL::Transaction=HASH(0x87b7b7c)
SOAP::Server::handle:
SOAP::SOM::DESTROY: ()
SOAP::Serializer::envelope: ()
SOAP::Serializer::envelope: Client Failed to locate method (clean) in
class (HMS::CCL::Transaction) at /usr/share/perl5/SOAP/Lite.pm line
2195.



Now, if I change clean to be something like:
sub clean
{ return "foo";}

I get the string foo back. So there's some sort of problem with $self
being deserialized or something. I've tried objects_by_reference, that
yeilds:
SOAP::SOM::DESTROY: ()
SOAP::Serializer::envelope: ()
SOAP::Serializer::envelope: Server Object with specified id couldn't be
found

Can someone please give me a hint, or some insight as to what I'm doing
wrong? I swear I've seen this sort of thing work before. Something like:
$obj = Package->new();
$obj->setData($x);
......
my $x = $obj->getData();

Should be doable, no?

--

Mental (Mental@...)

CARPE NOCTEM, QUAM MINIMUM CREDULA POSTERO.

GPG public key: http://www.neverlight.com/pas/Mental.asc

I'm using a Perl SOAP-Server in conjunction with a Macromedia-Flash
SOAP Client. When I switch my environment to mod_perl everything works
fine, but when I have to use a normal CGI-environment I get a very
strange behaviour of SOAP-Lite: If I send a request to the SOAP-server
the answer, the server is sending back the response immediatly, but it
stops at the last sign ("...</SOAP-ENV:Envelope"  --> the SOAP-Server
does not send the closing "greater than") and hangs for about 18
seconds. After this timeout it sends the closing ">" of the
</SOAP-ENV:Envelope>-tag and the client correctly displays the results.

Thank You for Your help
John

To follow up on my own issue... It turns out it was an issue of brain
not being fully engaged. I was mixing up some autodispatch style code
with non-autodispatch code. I completely forgot the whole
$soap->call(method => $object,$arg) syntax. Its been ages since I used
this stuff, sorry for the faq :)


--

Mental (Mental@...)

CARPE NOCTEM, QUAM MINIMUM CREDULA POSTERO.

GPG public key: http://www.neverlight.com/pas/Mental.asc

This is what I'm seeing in the soap body and I'm not sure how to turn that off
<SOAP-ENV:Body>
     <namesp2:request xmlns:namesp2="http://app.mycompany.com/webservices/"/>
</SOAP-ENV:Body>

Please help

Hi,
Has anyone had any problesm with SOAP::lite transport
being excessively slow for large files (>~2M)?  I have
programmed both a server and a client transporting
over http using apache, and have run into this
problem.

Thanks
eric

__________________________________
Do you Yahoo!?
Yahoo! SiteBuilder - Free, easy-to-use web site design software
http://sitebuilder.yahoo.com