version 1.18, 2018/08/09 13:27:55
|
version 1.19, 2018/08/20 18:53:20
|
Line 411 sub has_badcert_file {
|
Line 411 sub has_badcert_file {
|
} |
} |
|
|
sub Read_Connect_Config { |
sub Read_Connect_Config { |
my ($secureconf,$checkedcrl,$perlvarref) = @_; |
my ($secureconf,$perlvarref) = @_; |
return unless ((ref($secureconf) eq 'HASH') && (ref($checkedcrl) eq 'HASH')); |
return unless (ref($secureconf) eq 'HASH'); |
|
|
unless (ref($perlvarref) eq 'HASH') { |
unless (ref($perlvarref) eq 'HASH') { |
$perlvarref = $perlvar; |
$perlvarref = $perlvar; |
} |
} |
|
|
# Clear hash of clients for which Certificate Revocation List checked |
|
foreach my $key (keys(%{$checkedcrl})) { |
|
delete($checkedcrl->{$key}); |
|
} |
|
# Clean out the old table first. |
# Clean out the old table first. |
foreach my $key (keys(%{$secureconf})) { |
foreach my $key (keys(%{$secureconf})) { |
delete($secureconf->{$key}); |
delete($secureconf->{$key}); |