r77663 - /scripts/forward-patch

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Thu Jul 21 09:53:14 2011
New Revision: 77663

URL: http://svn.debian.org/wsvn/?sc=1&rev=77663
Log:
prepare more content for mail body

Modified:
    scripts/forward-patch

Modified: scripts/forward-patch
URL: http://svn.debian.org/wsvn/scripts/forward-patch?rev=77663&op=diff
==============================================================================
--- scripts/forward-patch (original)
+++ scripts/forward-patch Thu Jul 21 09:53:14 2011
@@ -76,12 +76,16 @@
 open my $patch_fh, '<', $patch
 	or die "Err: Can't open $patch for reading: $!";
 
-my $header = "";
+my $body = "In Debian we are currently applying the attached patch to $dist.\n";
+$body .= "We thought you might be interested in it, too.\n\n";
 
 while (my $line = <$patch_fh>) {
 	last if ($line =~ /^--- /);
-	$header .= $line;
+	next if ($line =~ /^Forwarded:/);
+	$body .= $line;
 }
+
+$body .= "Thanks in advance,\n";
 
 # RT::Client::REST does not support attachments, we need to use the email interface
 
@@ -92,6 +96,8 @@
 	$name = (getpwuid($<))[6];
 	$name =~ s/,.*//;
 }
+
+$body .= "$name, Debian perl Group\n";
 
 my $from = "$name <$email>";
 my $to = 'bug-'.lc($dist).'@rt.cpan.org';
@@ -105,7 +111,7 @@
 
 # generate body for ticket
 my $text = Proc::InvokeEditor -> edit(
-	$header
+	$body
 );
 
 $msg -> attach (