diff options
author | alee <alee@c9f7a03b-bd48-0410-a16d-cbbf54688b0b> | 2009-06-24 19:39:54 +0000 |
---|---|---|
committer | alee <alee@c9f7a03b-bd48-0410-a16d-cbbf54688b0b> | 2009-06-24 19:39:54 +0000 |
commit | 620312473cb838777f50de9b9766aa94963682b8 (patch) | |
tree | e7b5c03e1310b6381a3bdc0c517a9f3877fadfce | |
parent | 0267ceeb083200a16a2ece01b309448e1c7d8641 (diff) | |
download | pki-620312473cb838777f50de9b9766aa94963682b8.tar.gz pki-620312473cb838777f50de9b9766aa94963682b8.tar.xz pki-620312473cb838777f50de9b9766aa94963682b8.zip |
Bugzilla Bug: 505788 - RA agent list certificates and view a user certificate throws 500 internal server error
git-svn-id: svn+ssh://svn.fedorahosted.org/svn/pki/trunk@646 c9f7a03b-bd48-0410-a16d-cbbf54688b0b
-rw-r--r-- | pki/base/native-tools/src/sslget/sslget.c | 3 | ||||
-rw-r--r-- | pki/base/ra/lib/perl/PKI/Conn/CA.pm | 3 |
2 files changed, 5 insertions, 1 deletions
diff --git a/pki/base/native-tools/src/sslget/sslget.c b/pki/base/native-tools/src/sslget/sslget.c index 6110c522..d08a9cf4 100644 --- a/pki/base/native-tools/src/sslget/sslget.c +++ b/pki/base/native-tools/src/sslget/sslget.c @@ -382,7 +382,6 @@ do_io( PRFileDesc *ssl_sock, int connection) connection, rv, countRead ); FPRINTF(stderr, "these bytes read:\n"); PR_Write(PR_STDOUT,buf,rv); - PR_fprintf(PR_STDOUT, "\n"); if (first) { first=0; @@ -396,6 +395,8 @@ do_io( PRFileDesc *ssl_sock, int connection) } } } + PR_fprintf(PR_STDOUT, "\n"); + PR_Free(buf); buf = 0; diff --git a/pki/base/ra/lib/perl/PKI/Conn/CA.pm b/pki/base/ra/lib/perl/PKI/Conn/CA.pm index 82089990..b86a995b 100644 --- a/pki/base/ra/lib/perl/PKI/Conn/CA.pm +++ b/pki/base/ra/lib/perl/PKI/Conn/CA.pm @@ -106,6 +106,7 @@ sub enroll { $content =~ /(\<XMLResponse\>.*\<\/XMLResponse\>)/; $content = $1; + $content =~ s/\n//g; my $xmlparser = XML::Simple->new(); my $response = $xmlparser->XMLin($content); @@ -203,6 +204,7 @@ sub revoke { $content =~ s/\000//; $content =~ /(\<xml\>.*\<\/xml\>)/s; $content = $1; + $content =~ s/\n//g; my $req = $queue->read_request($rid); @@ -259,6 +261,7 @@ sub getCertStatus { $content =~ /(\<xml\>.*\<\/xml\>)/s; $content = $1; + $content =~ s/\n//g; my $xmlparser = XML::Simple->new(NormalizeSpace => 2); my $response = $xmlparser->XMLin($content); |