Proxmox/pve-apiclient
5
0
Fork 0
mirror of git://git.proxmox.com/git/pve-apiclient.git synced 2025-01-18 10:03:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

format/code cleanup

Browse Source 
Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
This commit is contained in:
Thomas Lamprecht 2020-12-03 15:59:06 +01:00
parent 50f793b9d1
commit e02e35fde3
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
PVE/APIClient/LWP.pm
View File

@ -127,7 +127,8 @@ sub login {
my $exec_login = sub { my $exec_login = sub {
return $ua->post($uri, { return $ua->post($uri, {
username => $username, username => $username,
password => $self->{password} || ''}); password => $self->{password} || ''
});
}; };
my $response = $exec_login->(); my $response = $exec_login->();
@ -322,7 +323,7 @@ sub new {
if (!$ssl_opts->{SSL_verify_callback}) { if (!$ssl_opts->{SSL_verify_callback}) {
$ssl_opts->{'SSL_verify_mode'} = SSL_VERIFY_PEER; $ssl_opts->{'SSL_verify_mode'} = SSL_VERIFY_PEER;
my $fingerprint = $self->{fingerprint}; # avoid passing $self, that's a RC cycle! my $fingerprints = $self->{fingerprint}; # avoid passing $self, that's a RC cycle!
my $verify_fingerprint_cb = $param{verify_fingerprint_cb}; my $verify_fingerprint_cb = $param{verify_fingerprint_cb};
$ssl_opts->{'SSL_verify_callback'} = sub { $ssl_opts->{'SSL_verify_callback'} = sub {
my (undef, undef, undef, undef, $cert, $depth) = @_; my (undef, undef, undef, undef, $cert, $depth) = @_;
@ -330,7 +331,7 @@ sub new {
# we don't care about intermediate or root certificates # we don't care about intermediate or root certificates
return 1 if $depth != 0; return 1 if $depth != 0;
return verify_cert_callback($fingerprint, $cert, $verify_fingerprint_cb); return verify_cert_callback($fingerprints, $cert, $verify_fingerprint_cb);
} }
} }