generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

PR: 2031

Browse Source 
Submitted by: steve@openssl.org

Tolerate application/timestamp-response which some servers send out.
This commit is contained in:
Dr. Stephen Henson 2009-09-07 17:57:18 +00:00
parent 14b148d390
commit b5ca7df5aa
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
apps/tsget
View File

@ -1,7 +1,7 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
# Written by Zoltan Glozik <zglozik@stones.com>. # Written by Zoltan Glozik <zglozik@stones.com>.
# Copyright (c) 2002 The OpenTSA Project. All rights reserved. # Copyright (c) 2002 The OpenTSA Project. All rights reserved.
$::version = '$Id: tsget,v 1.2 2009/09/02 15:57:24 steve Exp $'; $::version = '$Id: tsget,v 1.3 2009/09/07 17:57:18 steve Exp $';
use strict; use strict;
use IO::Handle; use IO::Handle;
@ -49,7 +49,7 @@ sub create_curl {
$curl->setopt(CURLOPT_CUSTOMREQUEST, "POST"); $curl->setopt(CURLOPT_CUSTOMREQUEST, "POST");
$curl->setopt(CURLOPT_HTTPHEADER, $curl->setopt(CURLOPT_HTTPHEADER,
["Content-Type: application/timestamp-query", ["Content-Type: application/timestamp-query",
"Accept: application/timestamp-reply"]); "Accept: application/timestamp-reply,application/timestamp-response"]);
$curl->setopt(CURLOPT_READFUNCTION, \&read_body); $curl->setopt(CURLOPT_READFUNCTION, \&read_body);
$curl->setopt(CURLOPT_HEADERFUNCTION, sub { return length($_[0]); }); $curl->setopt(CURLOPT_HEADERFUNCTION, sub { return length($_[0]); });
@ -102,7 +102,8 @@ sub get_timestamp {
$error_string .= " ($::error_buf)" if defined($::error_buf); $error_string .= " ($::error_buf)" if defined($::error_buf);
} else { } else {
my $ct = $curl->getinfo(CURLINFO_CONTENT_TYPE); my $ct = $curl->getinfo(CURLINFO_CONTENT_TYPE);
if (lc($ct) ne "application/timestamp-reply") { if (lc($ct) ne "application/timestamp-reply"
&& lc($ct) ne "application/timestamp-response") {
$error_string = "unexpected content type returned: $ct"; $error_string = "unexpected content type returned: $ct";
} }
} }