r77663 - /scripts/forward-patch
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Thu Jul 21 09:53:16 UTC 2011
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 (
More information about the Pkg-perl-cvs-commits
mailing list