Adding upstream version 15.4.upstream/15.4upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 75 insertions, 0 deletions

diff --git a/src/tools/copyright.pl b/src/tools/copyright.pl
new file mode 100755
index 0000000..182177e
--- /dev/null
+++ b/src/tools/copyright.pl
@@ -0,0 +1,75 @@
+#!/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";