Re: Patches for cvs and cvslog

[Lars Magne Ingebrigtsen <larsi@gnus.org>]

Russ Allbery <rra@stanford.edu> writes:

> I'd be happy to roll those changes into my version if you have a patch, so
> that you won't have to maintain them locally.

I've included the patch below, but remember: I don't know any Perl, so
try not to hurt yourself too badly when you fall off your chair,
laughing.  :-)

--- cvslog.old	Wed Jan  2 06:27:52 2002
+++ cvslog	Thu Jan  3 17:24:37 2002
@@ -586,6 +586,26 @@
 }
 $data{messages} = [ $data{message} ] unless $data{messages};
 
+my $from_line = "";
+
+if (open (PASSWD, "/usr/local/cvsroot/CVSROOT/passwd")) {
+    my $passwd_user = $ENV{CVSUSER};
+    my $full_name = "CVS";
+    my $email_address = "cvs\@" . `hostname --fqdn`;
+    chomp $email_address;
+    my $line;
+    my @info;
+    while ($line = <PASSWD>) {
+	chomp $line;
+	@info = split (/:/, $line);
+	if ($info[0] eq $passwd_user) {
+	    $full_name = $info[3];
+	    $email_address = $info[4];
+	}
+    }
+    $from_line = "From: \"$full_name\" <$email_address>\n";
+}
+
 # Open our mail program.
 open (MAIL, '| /usr/lib/sendmail -t -oi -oem')
     or die "$0: can't fork /usr/lib/sendmail: $!\n";
@@ -603,7 +623,13 @@
     print MAIL "To: $address\n";
 }
 print MAIL $headers if $headers;
+print MAIL $from_line;
 print MAIL "Subject: $subject", build_subject (\%data), "\n\n";
 
 # Build the message and write it out.
 print MAIL build_header (\%data, $showdir);

-- 
(domestic pets only, the antidote for overdose, milk.)
   larsi@gnus.org * Lars Magne Ingebrigtsen