Commit b5ca7df5 authored by Dr. Stephen Henson's avatar Dr. Stephen Henson
Browse files

PR: 2031 

Submitted by: steve@openssl.org

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

apps/tsget

+4 −3
Original line number Diff line number Diff line 
#!/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";

        }

    }