PR: 2031
authorDr. Stephen Henson <steve@openssl.org>
Mon, 7 Sep 2009 17:57:18 +0000 (17:57 +0000)
committerDr. Stephen Henson <steve@openssl.org>
Mon, 7 Sep 2009 17:57:18 +0000 (17:57 +0000)
Submitted by: steve@openssl.org

Tolerate application/timestamp-response which some servers send out.

apps/tsget

index 03b3e5c..da900d9 100644 (file)
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 # Written by Zoltan Glozik <zglozik@stones.com>.
 # 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 IO::Handle;
@@ -49,7 +49,7 @@ sub create_curl {
     $curl->setopt(CURLOPT_CUSTOMREQUEST, "POST");
     $curl->setopt(CURLOPT_HTTPHEADER,
                ["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_HEADERFUNCTION, sub { return length($_[0]); });
 
@@ -102,7 +102,8 @@ sub get_timestamp {
        $error_string .= " ($::error_buf)" if defined($::error_buf);
     } else {
         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";
         }
     }