#!/usr/bin/perl -w
#
# $FreeBSD$
#
#
# Perl filter to handle pre-commit checking of files.  This program
# records the last directory where commits will be taking place for
# use by the log_accum.pl script.  For new files, it forces the
# existence of a RCS "Id" keyword in the first ten lines of the file.
# For existing files, it checks the version number in the "Id" line to
# prevent losing changes because an old version of a file was copied
# into the direcory.
#
# Possible future enhancements:
#
#
#    Check for cruft left by unresolved conflicts.  Search for
#    "^<<<<<<<$", "^-------$", and "^>>>>>>>$".
#
#    Look for a copyright and automagically update it to the
#    current year.
#
# Contributed by David Hampton <hampton@cisco.com>
#

require 5.003;	# to be sure.  log_accum needs perl5

use strict;
use lib $ENV{CVSROOT};
use CVSROOT::cfg;
my $CVSROOT = $ENV{'CVSROOT'} || die "Can't determine \$CVSROOT!";


############################################################
#
# Constants
#
############################################################
my $ENTRIES       = "CVS/Entries";


# The "Id" header to check for.
my $HEADER	= $cfg::IDHEADER;

############################################################
#
# Error messages
#
############################################################
my $NoId = "%s - \"\$$HEADER\$\" keyword is either missing or corrupt.\n";

# Protect string from substitution by RCS.
my $NoName = "%s - The ID line should contain only \$$HEADER\$ for " .
    "a newly created file.\n";

#$DelPath = "
#%s - The old path and version has been deleted from \$$HEADER\$.\n";

my $BadName = "%s - The pathname '%s'
    in the \$$HEADER\$ line does not match the actual filename.\n";

my $BadVersion = "%s - GRRR!!  You spammed your copy of the file
    which was based upon version %s, with a different version based
    upon %s.  Please move your '%s' out of the way,
    perform an update to get the current version, and then
    CAREFULLY merge your changes into that file.\n";

my $DOSLineBreak = "%s - Dos/Windows/Mac linebreaks encountered (line %d).\n";
my $DOSLineErr = "PLEASE use only UNIX linebreaks.\n";


############################################################
#
# Subroutines
#
############################################################

# Write a single line to a file.
sub write_line {
	my $filename = shift;	# File to write to.
	my $line = shift;	# Line to write to the file.

	open FILE, ">$filename" or die "Cannot open $filename, stopped\n";
	print FILE "$line\n";
	close FILE;
}

# Check to see whether a file is mentioned in the exclusion file.
sub exclude_file {
	my $filename = shift;
	my $directory = shift;

	my $path = "$directory/$filename";
	if (open(EX, "< $cfg::EXCLUDE_FILE")) {
		while (<EX>) {
			chomp;
			my $ex_entry = $_;

			# Skip comments and blank lines.
			next if $ex_entry =~ /^#/;
			next if $ex_entry =~ /^$/;

			if ($path =~ /$ex_entry/) {
				close(EX);
				return(1);
			}
		}
		close(EX);
	}

	# File shouldn't be excluded.
	return(0);
}

sub check_version {
	my $filename = shift;
	my $directory = shift;
	my $hastag = shift;
	my $lastversion = shift;

	my $found_rcsid;	# True if our rcsid was found in the file.
	my $rcsid;		# The rcsid that was in the file.
	my $rcsid_info;		# The expanded values of the rcsid.
	my $rname;		# The file pathname, parsed from the rcsid.
	my $version;		# The file version, parsed from the rcsid.
	my $dos_line_brk_found;	# True if we found a DOS line break in the file.
	my $line_number;	# Keep track of where the line break is.

	# not present - either removed or let cvs deal with it.
	return 0 unless -f $filename;

	# Search the file for our rcsid.
	open FILE, $filename or die "Cannot open $filename, stopped\n";
	$found_rcsid = 0;
	$dos_line_brk_found = 0;
	$line_number = 0;
	$rcsid_info = "";
	while (<FILE>) {
		$line_number++;
		if ( /^.*(\$$HEADER(: ([^\$]* )?)?\$)/) {
			$rcsid = $1;
			$rcsid_info = $3 || "";
			$found_rcsid = 1;
		} elsif ( $cfg::NO_DOS_LINEBREAKS and /\r/ ) {
			# Found a DOS linebreak
			printf($DOSLineBreak, "$directory/$filename",
			    $line_number);
			$dos_line_brk_found = 1;
		}
	}
	close FILE;
	($rname, $version) = split /\s/, $rcsid_info;

	# The file must not contain DOS linebreaks.
	if ($dos_line_brk_found) {
		print $DOSLineErr;
		return(1);
	}

	# The file should have had an rcsid in it!
	unless ($found_rcsid) {
		printf($NoId, "$directory/$filename");
		return(1);
	}

	# Ignore version mismatches (MFC spamming etc) on branches.
	if ($hastag) {
		return (0);
	}

	# A new file should have an unexpanded rcsid.
	if ($lastversion eq '0') {
		unless ($rcsid_info eq "") {
			printf($NoName, "$directory/$filename");
			return(1);
		}
		return(0);
	}

	# It's ok for the rcsid to be not expanded.
	if ($rcsid_info eq "") {
		return (0);
#		if ($directory =~ /^ports\//) {
#			return (0);	# ok for ports
#		}
#		# Don't know whether to allow or trap this.  It means
#		# one could bypass the version spam checks by simply
#		# using a bare tag.
#		printf($DelPath, "$directory/$filename");
#		return(1);
	}

	# Check that the file name in the rcsid matches reality.
	if ($rname ne "$directory/$filename,v") {
		# If ports and the pathname is just the basename
		# (eg: somebody sent in a port with $Id$ and the
		# committer changed Id -> $HEADER and the version
		# numbers otherwise match.
		if (!($directory =~ /^ports\// && $rname eq "$filename,v")) {
			printf($BadName, "$directory/$filename,v", $rname);
			return(1);
		}
	}

	# Check that the version in the rcsid matches reality.
	if ($lastversion ne $version) {
		printf($BadVersion, $filename, $lastversion,
		    $version, "$directory/$filename");
		return(1);
	}
	return(0);
}


# Do file fixups, i.e. replacing $ Id: .* $ with $ Id $.
sub fix_up_file {
	my $filename = shift;

	# not present - either removed or let cvs deal with it.
	return 0 unless -f $filename;

	open F, "< $filename" or die "Can't open $filename!\n";
	my @file = <F>;
	close F;

	open F, "> $filename.tmp" or die "Can't create $filename tmpfile!\n";
	while (@file) {
		my $line = shift @file;

		$line =~ s/\$$HEADER:.*?\$/\$$HEADER\$/g;
		print F $line or die "Out of disk space?\n";
	}
	close F;

	# overwrite the original file......
	system($cfg::PROG_MV, "$filename.tmp", $filename);
	die "Can't recreate $filename!\n" if $? >> 8;
}

#############################################################
#
# Main Body
#
############################################################

#print("ARGV - ", join(":", @ARGV), "\n");
#print("id   - ", $cfg::PID, "\n");

#
# Suck in the Entries file
#
my %cvsversion;
my %cvstag;
open ENTRIES, $ENTRIES or die "Cannot open $ENTRIES.\n";
while (<ENTRIES>) {
	chomp;
	next if /^D/;

	my ($filename, $ver, $stamp, $opt, $tag) = split '/', substr($_, 1);
	$cvsversion{$filename} = $ver;
	$cvstag{$filename} = $tag;
	$stamp = $opt;	#silence -w
}
close ENTRIES;

my $directory = $ARGV[0];
shift @ARGV;

$directory =~ s,^$CVSROOT[/]+,,;

my $check_id = 0;
if ($directory =~ /^src\/contrib/) {
	$check_id = 3;
}
if ($directory =~ /^src\/crypto/) {
	$check_id = 3;
}
#
# Now check each file name passed in, except those excluded.
#
if ($cfg::CHECK_HEADERS or $cfg::WARN_HEADERS) {
	my $failed = 0;
	foreach my $arg (@ARGV) {
		my $hastag = ($cvstag{$arg} ne '');
		next if ($check_id == 3 && $hastag);

		# Ignore the file if it's in the exclude list.
		next if exclude_file($arg, $directory);

		# Check to make sure that the file hasn't had
		# it's revision string changed.
		$failed += &check_version($arg, $directory, $hastag,
		    $cvsversion{$arg});

		# Unexpand the rcsid if required.
		fix_up_file($arg) if $cfg::UNEXPAND_RCSID and !$failed;
	}
	if ($failed and not $cfg::WARN_HEADERS) {
		print "\n";
		unlink($cfg::LAST_FILE);
		exit(1);
	}
}

#
# Record this directory as the last one checked.  This will be used
# by the log_accumulate script to determine when it is processing
# the final directory of a multi-directory commit.
#
&write_line($cfg::LAST_FILE, $directory);

exit(0);
Mark as broken (does not fetch)</a></td><td>gahr</td><td><span title='2008-04-28 18:19:13 +0800'>2008-04-28</span></td><td>1</td><td><span class='deletions'>-0</span>/<span class='insertions'>+2</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-gnome/commit/cad/oregano?id=9d47663d3401cb0d16196eb4d1766942d79b9e6c'>- Unbreak (make fetchable again)</a></td><td>gahr</td><td><span title='2008-03-07 07:42:57 +0800'>2008-03-07</span></td><td>2</td><td><span class='deletions'>-13</span>/<span class='insertions'>+21</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-gnome/commit/cad/oregano?id=24ba2b6b828ec44c60dccf53e36e4fe65bfc812a'>- Mark BROKEN: does not fetch.</a></td><td>miwi</td><td><span title='2008-01-20 00:05:42 +0800'>2008-01-20</span></td><td>1</td><td><span class='deletions'>-0</span>/<span class='insertions'>+2</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-gnome/commit/cad/oregano?id=6452c8f7eca77ba676bcc32b2d1b36444d1aafa1'>- Update to 0.69.0</a></td><td>miwi</td><td><span title='2007-12-15 02:45:40 +0800'>2007-12-15</span></td><td>9</td><td><span class='deletions'>-140</span>/<span class='insertions'>+56</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-gnome/commit/cad/oregano?id=43bd9f14d9ce11690e9538bf3b03d3462faa6dbe'>Presenting GNOME 2.20.1 and all related works for FreeBSD.  The official</a></td><td>marcus</td><td><span title='2007-10-25 07:37:25 +0800'>2007-10-25</span></td><td>2</td><td><span class='deletions'>-65</span>/<span class='insertions'>+62</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-gnome/commit/cad/oregano?id=87f4d471fb27b9547c1a0de221b51f4c31684157'>- Welcome X.org 7.2 \o/.</a></td><td>flz</td><td><span title='2007-05-20 04:36:56 +0800'>2007-05-20</span></td><td>2</td><td><span class='deletions'>-7</span>/<span class='insertions'>+1</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-gnome/commit/cad/oregano?id=9dceaa997ff052e2e4b1bea847c8ea99ef208280'>- Fix build</a></td><td>miwi</td><td><span title='2007-03-29 17:35:49 +0800'>2007-03-29</span></td><td>3</td><td><span class='deletions'>-1</span>/<span class='insertions'>+22</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-gnome/commit/cad/oregano?id=0deb7538cc6a5ae90f4e3e4bdbfe6d0ab974aed8'>Chase the GNOME X11BASE to LOCALBASE move, and fix the build with the</a></td><td>marcus</td><td><span title='2006-10-14 16:54:54 +0800'>2006-10-14</span></td><td>2</td><td><span class='deletions'>-2</span>/<span class='insertions'>+10</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-gnome/commit/cad/oregano?id=58b525cdc1ad93f3f927a0e1329b20729f4f1dc8'>- Update to version 0.60.0.</a></td><td>alepulver</td><td><span title='2006-10-09 08:35:08 +0800'>2006-10-09</span></td><td>5</td><td><span class='deletions'>-63</span>/<span class='insertions'>+23</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-gnome/commit/cad/oregano?id=cb927a031726caa5b37c3700acf8cd49a856ec2c'>- Update to 0.50.0</a></td><td>pav</td><td><span title='2006-06-10 20:50:45 +0800'>2006-06-10</span></td><td>10</td><td><span class='deletions'>-93</span>/<span class='insertions'>+107</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-gnome/commit/cad/oregano?id=da880765886f48c0ac8fd253e5601d04ea853215'>Conversion to a single libtool environment.</a></td><td>ade</td><td><span title='2006-02-23 18:40:44 +0800'>2006-02-23</span></td><td>1</td><td><span class='deletions'>-1</span>/<span class='insertions'>+1</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-gnome/commit/cad/oregano?id=2d327f917a572cd4ed35ffaa9f5fbbedc0672bba'>- Add SHA256</a></td><td>pav</td><td><span title='2005-11-24 08:22:47 +0800'>2005-11-24</span></td><td>1</td><td><span class='deletions'>-0</span>/<span class='insertions'>+1</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-gnome/commit/cad/oregano?id=d9f08969199389c59a829c8132f44fac144748bf'>Mark broken on 4.X.</a></td><td>marcus</td><td><span title='2005-11-19 11:56:58 +0800'>2005-11-19</span></td><td>1</td><td><span class='deletions'>-0</span>/<span class='insertions'>+4</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-gnome/commit/cad/oregano?id=58bd83e920e6e1f7590ea3a778f79414da9512bf'>Fix build on 4.x</a></td><td>vs</td><td><span title='2005-11-10 21:34:56 +0800'>2005-11-10</span></td><td>2</td><td><span class='deletions'>-4</span>/<span class='insertions'>+33</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-gnome/commit/cad/oregano?id=b7ed4fa7da48599b244b2ee7982d96a1568fcf1f'>Update to 0.40.5.</a></td><td>marcus</td><td><span title='2005-11-05 13:32:09 +0800'>2005-11-05</span></td><td>4</td><td><span class='deletions'>-7</span>/<span class='insertions'>+17</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-gnome/commit/cad/oregano?id=3e1a70c02c02ae38f19980ea6899b9790bc96ff2'>Update to 0.40.4.</a></td><td>novel</td><td><span title='2005-06-17 00:25:27 +0800'>2005-06-17</span></td><td>3</td><td><span class='deletions'>-8</span>/<span class='insertions'>+10</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-gnome/commit/cad/oregano?id=b4bbca3ceb500f6eed68eb605f997608a2424d97'>Fix the build.</a></td><td>mezz</td><td><span title='2005-03-22 14:19:23 +0800'>2005-03-22</span></td><td>1</td><td><span class='deletions'>-0</span>/<span class='insertions'>+2</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-gnome/commit/cad/oregano?id=e3fff4369647efa9b82bf01b3f31b7beb787e9c0'>Fully-qualify the path to update-desktop-database and update-mime-database in</a></td><td>mezz</td><td><span title='2005-03-17 05:47:50 +0800'>2005-03-17</span></td><td>2</td><td><span class='deletions'>-3</span>/<span class='insertions'>+3</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-gnome/commit/cad/oregano?id=f9dddf06c58269bd78b5c13fc27bb825e95570df'>Unbreak: Should be fixed by recent updates to cairo</a></td><td>vs</td><td><span title='2005-03-14 01:13:19 +0800'>2005-03-14</span></td><td>1</td><td><span class='deletions'>-4</span>/<span class='insertions'>+0</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-gnome/commit/cad/oregano?id=e70528c3edef9097dec6fae59dd56aa250d9ff7e'>Bump PORTREVISION to chase the glib20 shared lib version change.</a></td><td>marcus</td><td><span title='2005-03-12 18:54:27 +0800'>2005-03-12</span></td><td>1</td><td><span class='deletions'>-0</span>/<span class='insertions'>+1</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-gnome/commit/cad/oregano?id=3af50dda356e61162e90734121e3746969fc32a1'>BROKEN on 4.x: Linker error</a></td><td>krion</td><td><span title='2005-03-01 07:24:32 +0800'>2005-03-01</span></td><td>1</td><td><span class='deletions'>-0</span>/<span class='insertions'>+4</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-gnome/commit/cad/oregano?id=73275caa2d8679db6a8054005323f318b81ca35c'>Update to version 0.40.3</a></td><td>krion</td><td><span title='2005-02-19 15:05:00 +0800'>2005-02-19</span></td><td>2</td><td><span class='deletions'>-4</span>/<span class='insertions'>+4</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-gnome/commit/cad/oregano?id=0fb0e3bd612c8996b68aa9850ddd076535b60127'>Update to version 0.40.2</a></td><td>krion</td><td><span title='2005-02-01 16:37:49 +0800'>2005-02-01</span></td><td>3