Author: metze Date: 2004-08-04 12:59:05 +0000 (Wed, 04 Aug 2004) New Revision: 184 WebSVN: http://websvn.samba.org/websvn/changeset.php?rep=samba-docs&path=/&rev=184&nolog=1 Log: fix perl compilation and make output a bit nicer
metze Modified: hooks/commit-email.pl Changeset: Modified: hooks/commit-email.pl =================================================================== --- hooks/commit-email.pl 2004-08-04 12:33:42 UTC (rev 183) +++ hooks/commit-email.pl 2004-08-04 12:59:05 UTC (rev 184) @@ -51,8 +51,7 @@ # in the log and email messages by not printing the file, then set # $no_diff_deleted to 1. my $no_diff_deleted = 0; -my @difflines = &read_from_process($svnlook, 'diff', $repos, - '-r', $rev, @no_diff_deleted); + # Maximum number of lines to display in a diff. If there are more # than this many lines, don't include a diff at all. my $max_difflines = 100; @@ -282,6 +281,8 @@ # Get the diff from svnlook. my @no_diff_deleted = $no_diff_deleted ? ('--no-diff-deleted') : (); +my @difflines = &read_from_process($svnlook, 'diff', $repos, + '-r', $rev, @no_diff_deleted); ###################################################################### # Modified directory name collapsing. @@ -361,8 +362,11 @@ push(@body, "Modified:\n"); push(@body, map { " $_\n" } @mods); } +push(@body, "\nChangeset:\n"); if ($#difflines <= $max_difflines) { push(@body, map { /[\r\n]+$/ ? $_ : "$_\n" } @difflines); +} else { + push(@body, "Sorry the patch is to large, please use WebSVN to see it!\n"); }; # Go through each project and see if there are any matches for this