#! /usr/bin/perl
#
# $Id: cvsedit,v 1.11 1997/04/13 11:18:55 bde Exp $
# 
# This crude hack is to sanitise the results of what the user may have
# "done" while editing the commit log message.. :-)   Peter Wemm.
#
# To use this, make it executable, and set your editinfo DEFAULT line:
# DEFAULT   /path/to/this/program
#

# same rules as CVS
$editor="vi";
if (defined $ENV{'EDITOR'}) {		# $EDITOR overrides default
	$editor = $ENV{'EDITOR'};
}
if (defined $ENV{'CVSEDITOR'}) {	# $CVSEDITOR overrises $EDITOR
	$editor = $ENV{'CVSEDITOR'};
}

if (!@ARGV) {
	die "Usage: cvsedit filename\n";
}
$filename = $ARGV[0];
$tmpfile = $filename . "tmp";

$retcode = system("$editor $filename");
$retcode /= 256;

if ($retcode) {
	# Kaboom!
	exit($retcode);
}

open(IN, "< $filename") ||
	die "cvsedit: Cannot open for reading: $filename: $!\n";

open(OUT, "> $tmpfile") ||
	die "cvsedit: Cannot open for writing: $tmpfile: $!\n";

# In-place edit the result of the user's edit on the file.
$blank = 0;	# true if the last line was blank
$first = 0;	# true if we have seen the first real text
while(<IN>) {

	# Dont let CVS: lines upset things, but maintain them in case
	# the editor is re-entered.  NO CHANGES!!
	if (/^CVS:/) {
		print OUT;
		next;
	}

	chop;		# strip trailing newline
	s/[\s]+$//;	# strip trailing whitespace

	# collapse multiple blank lines, and trailing blank lines.
	if (/^$/) {
		# Blank line. Remember in case more text follows.
		$blank = 1;
		next;
	} else {
		# Delete if they only have whitespace after them.
		if (/^PR:$/i ||
		    /^Reviewed by:$/i ||
		    /^Submitted by:$/i ||
		    /^Obtained from:$/i ||
		    /^CC:$/i) {
			next;
		}
		if ($blank && $first) {
			# Previous line(s) was blank, this isn't. Close the
			# collapsed section.
			print OUT "\n";
		}
		$blank = 0;	# record non-blank
		$first = 1;	# record first line
		print OUT "$_\n";
	}
}
close(IN);
close(OUT);

unlink($filename . "~");	# Nuke likely editor backups..
unlink($filename . ".bak");	# Nuke likely editor backups..

# Check to see if any differences.
$different = system("cmp -s $tmpfile $filename");

# Make a clean exit if there are no changes, or there is no 'text'
# - for example, a user quit the editor without saving.
# preserve stat() info if appropriate.
if (!$different || !$first) {
	unlink($tmpfile);
	exit(0);
}

rename("$tmpfile", "$filename") ||
	die("cvsedit: Could not rename $tmpfile to $filename: $!");

exit(0);
id=84bf9e34055ec00963867a191257ef7234d64e9e'>tree</a><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-graphics/commit/print/dvips2ascii/pkg-descr?id=84bf9e34055ec00963867a191257ef7234d64e9e'>commit</a><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-graphics/diff/print/dvips2ascii/pkg-descr?id=84bf9e34055ec00963867a191257ef7234d64e9e'>diff</a><a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-graphics/stats/print/dvips2ascii/pkg-descr'>stats</a></td><td class='form'><form class='right' method='get' action='/~lantw44/cgit/cgit.cgi/freebsd-ports-graphics/log/print/dvips2ascii/pkg-descr'>
<input type='hidden' name='id' value='84bf9e34055ec00963867a191257ef7234d64e9e'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-graphics/log/?id=84bf9e34055ec00963867a191257ef7234d64e9e'>root</a>/<a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-graphics/log/print?id=84bf9e34055ec00963867a191257ef7234d64e9e'>print</a>/<a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-graphics/log/print/dvips2ascii?id=84bf9e34055ec00963867a191257ef7234d64e9e'>dvips2ascii</a>/<a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-graphics/log/print/dvips2ascii/pkg-descr?id=84bf9e34055ec00963867a191257ef7234d64e9e'>pkg-descr</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th></th><th class='left'>Commit message (<a href='/~lantw44/cgit/cgit.cgi/freebsd-ports-graphics/log/print/dvips2ascii/pkg-descr?id=84bf9e34055ec00963867a191257ef7234d64e9e&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th><th class='left'>Age</th><th class='left'>Files</th><th class='left'>Lines</th></tr>