Process incoming NewSessionTicket messages on the client side

[openssl.git] / apps / tsget.in

diff --git a/apps/tsget.in b/apps/tsget.in
index fe029f353a04527e5a25e66eea1e24df87536835..89d1bc7ea384ed0ba35de2a122b3f6b22416d0cf 100644 (file)
--- a/apps/tsget.in
+++ b/apps/tsget.in
@@ -1,7 +1,11 @@
-#!{- $config{perl} -}
-# Written by Zoltan Glozik <zglozik@stones.com>.
-# Copyright (c) 2002 The OpenTSA Project.  All rights reserved.
-$::version = '$Id: tsget,v 1.3 2009/09/07 17:57:18 steve Exp $';
+#!{- $config{hashbangperl} -}
+# Copyright (c) 2002 The OpenTSA Project. All rights reserved.
+# Copyright 2002-2016 The OpenSSL Project Authors. All Rights Reserved.
+#
+# Licensed under the OpenSSL license (the "License").  You may not use
+# this file except in compliance with the License.  You can obtain a copy
+# in the file LICENSE in the source distribution or at
+# https://www.openssl.org/source/license.html
 
 use strict;
 use IO::Handle;
@@ -42,7 +46,8 @@ sub create_curl {
     # Error-handling related options.
     $curl->setopt(CURLOPT_VERBOSE, 1) if $options{d};
     $curl->setopt(CURLOPT_FAILONERROR, 1);
-    $curl->setopt(CURLOPT_USERAGENT, "OpenTSA tsget.pl/" . (split / /, $::version)[2]);
+    $curl->setopt(CURLOPT_USERAGENT,
+        "OpenTSA tsget.pl/openssl-{- $config{version} -}");
 
     # Options for POST method.
     $curl->setopt(CURLOPT_UPLOAD, 1);