svn commit: samba r1652 - hooks

[metze at samba.org]

Author: metze
Date: 2004-08-04 13:04:23 +0000 (Wed, 04 Aug 2004)
New Revision: 1652
WebSVN: http://websvn.samba.org/websvn/changeset.php?rep=samba&path=/&rev=1652&nolog=1
Log:
add 100 line diff to the commit mail

metze

Modified:
   hooks/commit-email.pl

Changeset:
Modified: hooks/commit-email.pl
===================================================================
--- hooks/commit-email.pl	2004-08-04 11:17:48 UTC (rev 1651)
+++ hooks/commit-email.pl	2004-08-04 13:04:23 UTC (rev 1652)
@@ -277,6 +277,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.
@@ -356,7 +358,13 @@
     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
 # project.  If so, send the log out.
 foreach my $project (@project_settings_list)