Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: Net::HTTPS:::SUPER ???

by jeffa (Bishop)
on May 16, 2014 at 20:35 UTC ( [id://1086390]=note: print w/replies, xml ) Need Help??


in reply to Net::HTTPS:::SUPER ???

It sounds like the problem is within the object that is calling the method. Would you post the code that actually makes the call, and perhaps tell us what class the object actually is? This might help others track the problem down.

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Replies are listed 'Best First'.
Re^2: Net::HTTPS:::SUPER ???
by dsb (Chaplain) on May 16, 2014 at 20:42 UTC
    It's actually a SOAP::Lite call done by an API from an incident management too call ServiceNow.

    I can post that module but it might be easier if I tell you where you can pull down the API.
    ServiceNow API Wiki

    The module performing the call is ServiceNow::Connection.

    # ==================================================================== +== # # Copyright (C) 2009 Service-now.com # # ==================================================================== +== package ServiceNow::Connection; # default is using SOAP::Lite use SOAP::Lite; $VERSION = '1.00'; my $CONFIG; =pod =head1 Connection module Service-now Perl API - Connection perl module =head1 Desciption An object representation of a Connection object used to access your Se +rvice-now instance. The Connection class can be overrided by the API user for implementati +ons other than the default SOAP::Lite dependency. To override this class, provide the subroutines for new, open, and sen +d. =head2 System Requirements The Service-now Perl API requires Perl 5.8 with the following modules +installed * SOAP::Lite (prerequisites http://soaplite.com/prereqs.html) 0.71 o +r later * Crypt::SSLeay * IO::Socket::SSL =cut # implement SOAP::Lite's basic auth strategy sub SOAP::Transport::HTTP::Client::get_basic_credentials { return $CONFIG->getUserName() => $CONFIG->getUserPassword(); } sub new { my ($class, $conf, $target) = (shift, shift, shift); # copy to global my $me = {}; $CONFIG = $conf; $me->{'SOAP'} = SOAP::Lite -> proxy($CONFIG->getSoapEndPoint($target)); bless($me, $class); return $me; } sub open { #print "connection open() is not implemented\n"; } sub send { my ($me, $methodName, %hash) = (shift, shift, %{(shift)}); my $METHOD = SOAP::Data->name($methodName) ->attr({xmlns => 'http://www.service-now.com/' . $methodName}); my(@PARAMS); my($key); foreach $key (keys(%hash)) { push(@PARAMS, SOAP::Data->name($key => $hash{$key})); } my $RESULT = $me->{'SOAP'}->call($METHOD => @PARAMS); # return the element within the Body element, removing SOAP::Lite de +pendencies return $RESULT->valueof('Body'); } sub close { #print "connection close() is not implemented\n"; } 1;
    I should also say that the same code works fine on a different machine.

    dsb
    This @ISA my( $cool ) %SIG

      I don't see the call to http_connect() in this code that you posted. What i would do, and this is not very scientific at all, is simply add a line of code (or two) before the call to SUPER::configure() in the http_connect() method (if you can):

      # untested ... look up the docs for caller() use Data::Dumper; warn Dumper { self => $self, caller => [ caller() ] };
      And see if that helps you get to the root of the problem.

      jeffa

      L-LL-L--L-LL-L--L-LL-L--
      -R--R-RR-R--R-RR-R--R-RR
      B--B--B--B--B--B--B--B--
      H---H---H---H---H---H---
      (the triplet paradiddle with high-hat)
      

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1086390]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others lurking in the Monastery: (4)
As of 2024-03-28 20:46 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found