1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
#
# (c) Jan Gehring <jan.gehring@gmail.com>
#
package Rex::Interface::Connection::HTTPS;
use v5.14.4;
use warnings;
use Rex::Interface::Connection::HTTP;
use base qw(Rex::Interface::Connection::HTTP);
our $VERSION = '1.16.1'; # 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;
|
