File Coverage

lib/Rex/Interface/Connection/HTTPS.pm

Criterion	Covered	Total	%
statement	14	37	37.8
branch	0	8	0.0
condition	0	5	0.0
subroutine	5	10	50.0
pod	0	3	0.0
total	19	63	30.1

#
# (c) Jan Gehring
#

package Rex::Interface::Connection::HTTPS;

use v5.12.5;
use warnings;
use Rex::Interface::Connection::HTTP;
use base qw(Rex::Interface::Connection::HTTP);

our $VERSION = '1.14.2.3'; # TRIAL VERSION

use Rex::Logger;

sub new {
  my $that  = shift;
  my $proto = ref($that) || $that;
  my $self  = $that->SUPER::new(@_);

  bless( $self, $proto );

  return $self;
}

sub get_connection_type { return "HTTP"; }

sub _get_proto {
  return "https";
}

sub _get_port {
  my ( $self, $port ) = @_;
  return $port || 8443;
}

sub ua {
  my ($self) = @_;
  return $self->{ua} if $self->{ua};

  my $ssl_opts = {};

  if ( Rex::Config->get_ca ) {
    Rex::Logger::debug("SSL: Verifying Hostname");
    $ssl_opts->{verify_hostname} = 1;
    $ssl_opts->{SSL_ca_file}     = Rex::Config->get_ca;
  }
  else {
    Rex::Logger::debug("SSL: NOT Verifying Hostname");
    $ssl_opts->{verify_hostname} = 0;
  }

  if ( Rex::Config->get_ca_cert ) {
    $ssl_opts->{SSL_cert_file} = Rex::Config->get_ca_cert;
  }

  if ( Rex::Config->get_ca_key ) {
    $ssl_opts->{SSL_key_file} = Rex::Config->get_ca_key;
  }

  $self->{ua} = LWP::UserAgent->new( ssl_opts => $ssl_opts, );
}

1;