xref: /openssl/util/perl/OpenSSL/copyright.pm (revision fecb3aae)
1#! /usr/bin/env perl
2# Copyright 2021-2022 The OpenSSL Project Authors. All Rights Reserved.
3#
4# Licensed under the Apache License 2.0 (the "License").  You may not use
5# this file except in compliance with the License.  You can obtain a copy
6# in the file LICENSE in the source distribution or at
7# https://www.openssl.org/source/license.html
8
9use strict;
10use warnings;
11
12package OpenSSL::copyright;
13
14sub year_of {
15    my $file = shift;
16
17    return $ENV{'OSSL_COPYRIGHT_YEAR'} if defined $ENV{'OSSL_COPYRIGHT_YEAR'};
18
19    # Get the current year.  We use that as the default because the other
20    # common case is that someone unpacked a tarfile and the file dates
21    # are't properly set on extract.
22    my $YEAR = [localtime()]->[5] + 1900;
23
24    # See if git's available
25    open my $FH,
26       "git log -1 --date=short --format=format:%cd $file 2>/dev/null|"
27           or return $YEAR;
28    my $LINE = <$FH>;
29    close $FH;
30    $LINE =~ s/^([0-9]*)-.*/$1/;
31    $YEAR = $LINE if $LINE;
32    return $YEAR;
33}
34
35sub latest {
36    my $l = 0;
37    foreach my $f (@_ ) {
38        my $y = year_of($f);
39        $l = $y if $y > $l;
40    }
41    return $l
42}
431;
44