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

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;
[download]

I should also say that the same code works fine on a different machine.

dsb
This @ISA my( $cool ) %SIG

Comment on Re^2: Net::HTTPS:::SUPER ??? Download Code

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() ] };` [download] 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)	[reply] [d/l] [select]

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() ] };
[download]

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)

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom