Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re^2: Net::HTTPS:::SUPER ???

by dsb (Chaplain)
on May 16, 2014 at 20:42 UTC ( #1086391=note: print w/replies, xml ) Need Help??


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

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

Replies are listed 'Best First'.
Re^3: Net::HTTPS:::SUPER ???
by jeffa (Bishop) on May 16, 2014 at 20:58 UTC

    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
Node Status?
node history
Node Type: note [id://1086391]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (5)
As of 2020-10-30 20:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My favourite web site is:












    Results (284 votes). Check out past polls.

    Notices?