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

Hi Monks,

I have a question on making web services call and getting the result. I have a server where the web services are hosted and I am using XML-RPC to make the call. I have gone through the article "Creating Web Services with XML-RPC" http://use.perl.org/article.pl?sid=01/02/05/1438258 and doing accordingly. Below is my code sample but it's not returing any result.

#!/bin/perl use strict; use Frontier::Client; my $rps = Frontier::Client->new('url' => 'http://servername/services/D +MIService?wsdl'); print "Calling ServerID()\n"; my $suuid=$rps->call("ServerID"); print "\n=-----------------=\n"; print "Server ID is $suuid\n"; print "\ndone\n";

It should return me the server ID but not getting any result. Could you please help me on these. Thanks.

Replies are listed 'Best First'.
Re: web services call
by Anonymous Monk on Aug 20, 2009 at 14:04 UTC
    show the server, and turn on debug
      Hi Anonymous Monk, For security I can't give the server name but after turning on the debug I got "500 internal server error" as a response. Any idea what could be going wrong here? Thanks for your help. sir_com
        For security I can't give the server name

        Don't need a name, need sample server code for replicate your problem.

        You're having trouble with client, so turn on debug in client.

        For 500 error, check logs (CGI Help Guide).