From a4cad706aa927d80ad3bfa4ff23f5afa6b00d475 Mon Sep 17 00:00:00 2001
From: Nicolas Dandrimont <Nicolas.Dandrimont@crans.org>
Date: Sun, 28 Mar 2010 18:17:19 +0200
Subject: [PATCH] =?UTF-8?q?[utils/git-notify]=20additions=20de=20headers?=
 =?UTF-8?q?=20sp=C3=A9cifiques=20au=20Cr@ns?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

darcs-hash:20100328161719-ffbb2-b535d15e8ca89cf8b56d9d9abd581995db3a2320.gz
---
 utils/git-notify | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/utils/git-notify b/utils/git-notify
index d79cfccd..7cdad441 100755
--- a/utils/git-notify
+++ b/utils/git-notify
@@ -168,6 +168,10 @@ sub mail_notification($$$@)
         print "To: $name\n";
         print "Subject: $subject\n";
         print "Content-Type: $content_type\n";
+        print "X-CVSinfo: CRANS\n";
+        print "X-DarcsInfo: CRANS-$repos_name\n";
+        print "X-GitInfo: CRANS-$repos_name\n";
+
         print "\n", join("\n", @text), "\n";
     }
     else
@@ -176,7 +180,12 @@ sub mail_notification($$$@)
         return unless defined $pid;
         if (!$pid)
         {
-            exec $mailer, "-s", $subject, "-a", "Content-Type: $content_type", $name or die "Cannot exec $mailer";
+            exec ($mailer, "-s", $subject, 
+                           "-a", "Content-Type: $content_type",
+                           "-a", "X-CVSinfo: CRANS",
+                           "-a", "X-DarcsInfo: CRANS-$repos_name",
+                           "-a", "X-GitInfo: CRANS-$repos_name",
+                           $name) or die "Cannot exec $mailer";
         }
         print MAIL join("\n", @text), "\n";
         close MAIL;
@@ -290,7 +299,7 @@ sub send_commit_notice($$)
             push @notice, "Diff:   $gitweb_url/?a=commitdiff;h=$obj" if $gitweb_url;
         }
 
-        $subject = $info{"author_name"} . ": " . ${$info{"log"}}[0];
+        $subject = "Git commit ($repos_name): " . ${$info{"log"}}[0];
     }
 
     mail_notification($commitlist_address, $subject, "text/plain; charset=UTF-8", @notice);