diff options
Diffstat (limited to 'pki/base/tps/lib/perl/PKI/TPS')
-rwxr-xr-x | pki/base/tps/lib/perl/PKI/TPS/NamePanel.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/pki/base/tps/lib/perl/PKI/TPS/NamePanel.pm b/pki/base/tps/lib/perl/PKI/TPS/NamePanel.pm index 0c65f100c..8ac588bfd 100755 --- a/pki/base/tps/lib/perl/PKI/TPS/NamePanel.pm +++ b/pki/base/tps/lib/perl/PKI/TPS/NamePanel.pm @@ -298,6 +298,10 @@ $req = "/usr/bin/sslget -e \"$params\" -d \"$instanceDir/alias\" -p \"$db_passwo $content =~ /(\<XMLResponse\>.*\<\/XMLResponse\>)/; $content = $1; + if ($content eq "") { + $::symbol{errorString} = "CA returned no response. Please check that the CA is available and also check the host's firewall settings."; + return 0; + } my $parser = XML::Simple->new(); &PKI::TPS::Wizard::debug_log("NamePanel: response content= " . $content); @@ -306,9 +310,10 @@ $req = "/usr/bin/sslget -e \"$params\" -d \"$instanceDir/alias\" -p \"$db_passwo if ($status ne "0") { my $error = $response->{Error}; &PKI::TPS::Wizard::debug_log("NamePanel: Error = $error"); - $::symbol{errorString} = "CA response: $error. Please also check previous related panels."; + $::symbol{errorString} = "CA response: $error. Please check previous related panels." . " Please check that the CA is available and also check the host's firewall settings."; return 0; } + $cert = $response->{Requests}->{Request}->{b64}; &PKI::TPS::Wizard::debug_log("NamePanel: new cert generated= " . $cert); |