1
sub getTracker 
    {
    my ($self) = @_;    
    my $url =  HOST() . $URIFromSTDIN;   
    my $req = HTTP::Request->new(GET => $url);
  
    $req->header('Accept', 'application/xml');   
    my @credentials = get_system_credentials();  

    $req->authorization_basic(@credentials[0], @credentials[1]); 
  
    my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 },);   
    $ua->agent("wfa/$VERSION");    
    my $resp = $ua->request($req);    

    if ($resp->is_success) {    
        print $resp->decoded_content;    
    }       
    else {    
        die $resp->status_line;    
    }     
 
    my $output = $resp->decoded_content;    
    my $ref = xml_in($output);    
    $ref->{'userAgent'} = $ua;
    $ref->{'url'} = $url; 
}

上面的代码在 RHEL 7.x 上运行良好,但在 RHEL 8.x 上却抛出错误:Unable to contact service url 500 Can't connect to localhost:443 (certificate verify failed)

4

0 回答 0