12345678910111213141516171819202122232425262728293031323334353637383940414243 |
- #! /usr/bin/env perl
- # Copyright 2021-2022 The OpenSSL Project Authors. All Rights Reserved.
- #
- # Licensed under the Apache License 2.0 (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 warnings;
- package OpenSSL::copyright;
- sub year_of {
- my $file = shift;
- return $ENV{'OSSL_COPYRIGHT_YEAR'} if defined $ENV{'OSSL_COPYRIGHT_YEAR'};
- # Get the current year. We use that as the default because the other
- # common case is that someone unpacked a tarfile and the file dates
- # are't properly set on extract.
- my $YEAR = [localtime()]->[5] + 1900;
- # See if git's available
- open my $FH,
- "git log -1 --date=short --format=format:%cd $file 2>/dev/null|"
- or return $YEAR;
- my $LINE = <$FH>;
- close $FH;
- $LINE =~ s/^([0-9]*)-.*/$1/;
- $YEAR = $LINE if $LINE;
- return $YEAR;
- }
- sub latest {
- my $l = 0;
- foreach my $f (@_ ) {
- my $y = year_of($f);
- $l = $y if $y > $l;
- }
- return $l
- }
- 1;
|