mirror of
https://git.postgresql.org/git/postgresql.git
synced 2024-09-30 01:01:32 +02:00
dfd0f2bbc5
The existing coding resulted in touching every copyright-containing file in the tree, even if it was already up to date. That doesn't matter much for the annual run, but it's an annoyance if you try to use the script for mop-up at the close of a devel cycle, as I just did. Discussion: https://postgr.es/m/266030.1649685473@sss.pgh.pa.us
76 lines
2.0 KiB
Perl
Executable File
76 lines
2.0 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
#################################################################
|
|
# copyright.pl -- update copyright notices throughout the source tree, idempotently.
|
|
#
|
|
# Copyright (c) 2011-2022, PostgreSQL Global Development Group
|
|
#
|
|
# src/tools/copyright.pl
|
|
#
|
|
# FYI, Tie adds a trailing newline on the last line if missing.
|
|
#################################################################
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use File::Find;
|
|
use File::Basename;
|
|
use Tie::File;
|
|
|
|
my $pgdg = 'PostgreSQL Global Development Group';
|
|
my $cc = 'Copyright \(c\)';
|
|
my $ccliteral = 'Copyright (c)';
|
|
|
|
# year-1900 is what localtime(time) puts in element 5
|
|
my $year = 1900 + ${ [ localtime(time) ] }[5];
|
|
|
|
print "Using current year: $year\n";
|
|
|
|
find({ wanted => \&wanted, no_chdir => 1 }, '.');
|
|
|
|
sub wanted
|
|
{
|
|
|
|
# prevent corruption of git indexes by ignoring any .git/
|
|
if (basename($_) eq '.git')
|
|
{
|
|
$File::Find::prune = 1;
|
|
return;
|
|
}
|
|
|
|
return if !-f $File::Find::name || -l $File::Find::name;
|
|
|
|
# skip file names with binary extensions
|
|
# How are these updated? bjm 2012-01-02
|
|
return if ($_ =~ m/\.(ico|bin|po|key)$/);
|
|
|
|
my @lines;
|
|
tie @lines, "Tie::File", $File::Find::name;
|
|
|
|
# We process all lines because some files have copyright
|
|
# strings embedded in them, e.g. src/bin/psql/help.c
|
|
foreach my $line (@lines)
|
|
{
|
|
|
|
# We only care about lines with a copyright notice.
|
|
next unless $line =~ m/$cc.*$pgdg/i;
|
|
|
|
# Skip line if it already matches the current year; if not
|
|
# we get $year-$year, e.g. 2012-2012.
|
|
next if $line =~ m/$cc $year, $pgdg/i;
|
|
|
|
# Skip already-updated lines too, to avoid unnecessary
|
|
# file updates.
|
|
next if $line =~ m/$cc \d{4}-$year, $pgdg/i;
|
|
|
|
# Apply the update, relying on Tie::File to write the file.
|
|
$line =~ s/$cc (\d{4})-\d{4}, $pgdg/$ccliteral $1-$year, $pgdg/i;
|
|
$line =~ s/$cc (\d{4}), $pgdg/$ccliteral $1-$year, $pgdg/i;
|
|
}
|
|
untie @lines;
|
|
return;
|
|
}
|
|
|
|
print "Manually update:\n";
|
|
print " ./doc/src/sgml/legal.sgml in head and back branches\n";
|
|
print " ./COPYRIGHT in back branches\n";
|