Improve error message for problem connecting to CA, bug# 404084.

git-svn-id: svn+ssh://svn.fedorahosted.org/svn/pki/trunk@11 c9f7a03b-bd48-0410-a16d-cbbf54688b0b

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);