SOAP LITE return message

NewMonk2Perl has asked for the wisdom of the Perl Monks concerning the following question:

Good morning gurus! I am trying to automate and replace a process that we currently have which sends out information from an Excel spreadsheet written with VB code using a button to call a web service from one of our clients. I think I have it working but it only returns the code of "1 , 1" which Im sure it means that it errorred or failed (which I fully expect because Im using test data that they already have). How would I write it so that it will return the actual return message? Below is the code that I am using:

  #!perl -w

  use SOAP::Lite;
  #use SOAP::Lite +trace => 'all';
  use warnings;
  use strict;    
  
  my $soap = SOAP::Lite
    -> uri('http://tempuri.org/test/serv')
    -> on_action( sub { join '/', 'tempuri.org/test/Serv', $_[1] } )
    -> proxy('http://webserver.company.com/test/svc.asmx?wsdl');
        
my $method = SOAP::Data->name('wsm_Get_WMLead')
    ->attr({xmlns => 'http://tempuri.org/test/Serv/'});


my @params = ( SOAP::Data->name(str_UserName => "Manual"), 
                SOAP::Data->name(str_Password => "M*Post"),
                SOAP::Data->name(str_TraceNumber => "19381120000000"),
                SOAP::Data->name(str_FName => "QU"),
                SOAP::Data->name(str_Minit => "D"),
                SOAP::Data->name(str_LName => "TEALS"),
                SOAP::Data->name(str_Address1 => "155 GRIFFIN LANE"),
                SOAP::Data->name(str_City => "MANSFIELD"),
                SOAP::Data->name(str_State => "CA"),
                SOAP::Data->name(str_ZipCode => "96063"),
                SOAP::Data->name(str_Phone => "5555534821"),
                SOAP::Data->name(str_ACEID => "4108574"),
                SOAP::Data->name(str_Center => "1938"),
                SOAP::Data->name(str_NewCustDate => "20110214"),
                SOAP::Data->name(str_PrinAmnt => "400.00"),
                SOAP::Data->name(str_CompanyCode => "C01"),
                SOAP::Data->name(str_ScriptNo => "") );

print $soap->call($method => @params)->result;  
  
unless ($soap->fault) {
    print $soap->result();
} 
else {
    print join ', ', 
      $soap->faultcode, 
      $soap->faultstring;
}
[download]

The script prints out "1 , 1"; I am assuming this is the faultcode and faultstring. I want to know what these value really means. How would I write it so I actually get the message rather than just the code? Thanks in advance. -Paul

Comment on SOAP LITE return message Download Code

Replies are listed 'Best First'.
Re: SOAP LITE return message by toolic (Bishop) on Feb 17, 2011 at 15:10 UTC
When things look unexpected to me, I try to print more info. What is the output using Data::Dumper? `print $soap->call($method => @params)->result; print Dumper($soap->fault);` [download]	[reply] [d/l]
Re^2: SOAP LITE return message by NewMonk2Perl (Sexton) on Feb 17, 2011 at 16:28 UTC
Im still looking thru it. Thanks! Looks like this is what the faultstring is saying. What is "fault."? `<faultstring>Server did not recognize the value of HTTP Header SOAPAct +ion: tempuri.org/acecash/Service1/fault.</faultstring>` [download]	[reply] [d/l]
Re: SOAP LITE return message by dHarry (Abbot) on Feb 17, 2011 at 15:41 UTC
The script prints out "1 , 1"; I am assuming this is the faultcode and faultstring. The faultstring is suposed to contain a human readable explanation;) The value "1" looks more like the value of an attribute to me. You can customize fault behavior, maybe that's what the server side did? As was mentioned before, turn (back) on tracing to find out what is going on. If possible, look what the server is supposed to send e.g. documentation?! Harry	[reply]
Re^2: SOAP LITE return message by NewMonk2Perl (Sexton) on Feb 17, 2011 at 16:15 UTC
Based on the return message that are printed on the Excel spreadsheet we should get either : `"Success: Record Submitted - Return From CallNow Service: SUCCESS: Ass +igned to List 841" OR "Success: Record Submitted - Return From CallNow Service: ERROR: Dupli +cate Record already exist in list table - Insert Aborted" I turned on Trace and I get multiple error msgs below: SOAP::TRANSPORT::HTTP::CLIENT::send_Receive::HTTP/1.1 500 Internal Err +or.` [download] Im not sure what that means. -Paul	[reply] [d/l]
Re^3: SOAP LITE return message by dHarry (Abbot) on Feb 17, 2011 at 17:04 UTC
Hmm, this doesn't like like a problem on the client side, more like a bug on the server side. Having said that you might try your luck with: Using SOAP:Lite with Perl and SOAP::Lite and proxy settings. And they tell us the S stands for simple (<.<). HTH, Harry	[reply]
Re^4: SOAP LITE return message by NewMonk2Perl (Sexton) on Feb 17, 2011 at 19:16 UTC
Re: SOAP LITE return message by Anonymous Monk on Feb 17, 2011 at 15:13 UTC
The script prints out "1 , 1"; I Turn on tracing :)	[reply]


Think about Loose Coupling
	PerlMonks