r61042 - /scripts/patchedit

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Sat Jul 31 20:50:39 2010
New Revision: 61042

URL: http://svn.debian.org/wsvn/?sc=1&rev=61042
Log:
patchedit: fill in more fields

Modified:
    scripts/patchedit

Modified: scripts/patchedit
URL: http://svn.debian.org/wsvn/scripts/patchedit?rev=61042&op=diff
==============================================================================
--- scripts/patchedit (original)
+++ scripts/patchedit Sat Jul 31 20:50:39 2010
@@ -106,6 +106,7 @@
 use Test::Builder;
 use DateTime;
 use List::MoreUtils 'none';
+use User::pwent;
 
 use open ':std', ':encoding(UTF-8)';
 
@@ -177,7 +178,7 @@
 	my $patch_content = $patch_struct->{fields};
 	$patch_content->{'Description'} = "*** FIXME ***\n"
 		unless $patch_content->{'Description'} || $patch_content->{'Subject'};
-	$patch_content->{'Origin'} = "*** FIXME ***\n"
+	$patch_content->{'Origin'} = "vendor\n"
 		unless $patch_content->{'Origin'} || $patch_content->{'Author'};
 
 	if ($also_optional) {
@@ -185,9 +186,16 @@
 			unless scalar (grep { m/Bug-?/ } keys %{$patch_content});
 
 		$patch_content->{'Forwarded'} ||= "*** FIXME ***\n";
-		$patch_content->{'Author'} ||= "*** FIXME ***\n"
+
+        my $gecosname = getpwuid($<)->gecos;
+        $gecosname =~ s/,.*//;
+        my $authorname ||= ( $ENV{DEBFULLNAME} || $gecosname );
+        my $authoremail ||= ( $ENV{DEBEMAIL} || $ENV{EMAIL} );
+        my $author = $authorname . ' <' . $authoremail . '>';
+
+		$patch_content->{'Author'} ||= "$author\n"
 			unless $patch_content->{'Author'} || $patch_content->{'From'};
-		$patch_content->{'Reviewed-by'} ||= "*** FIXME ***\n"
+		$patch_content->{'Reviewed-by'} ||= "$author\n"
 			unless $patch_content->{'Reviewed-by'} || $patch_content->{'Acked-by'};
 		$patch_content->{'Last-Update'} ||= DateTime->now->set_time_zone('local')->strftime('%Y-%m-%d')."\n";
 		$patch_content->{'Applied-Upstream'} ||= "*** FIXME ***\n";