upd: openssl to 1.1.0

[cassiopeia.git] / lib / openssl / apps / tsget

diff --git a/lib/openssl/apps/tsget b/lib/openssl/apps/tsget
old mode 100644 (file)
new mode 100755 (executable)
index 0d54e9f..6899b71
--- a/lib/openssl/apps/tsget
+++ b/lib/openssl/apps/tsget
@@ -1,7 +1,11 @@
-#!/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.1.2.2 2009/09/07 17:57:02 steve Exp $';
+#!/usr/bin/env perl
+# 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-1.1.0c");
 
     # Options for POST method.
     $curl->setopt(CURLOPT_UPLOAD, 1);