Re: [patch] Re: cvs logs usefulness
On Sun, Feb 11, 2001 at 05:11:03PM -0500, Adam Di Carlo wrote:
> Can you give me a new patch? I think the one I applied isn't doing
> any good...
Attached
BTW: No need to CC me on any Debian lists
Marcin
--
Marcin Owsiany <porridge@pandora.info.bielsko.pl>
http://student.uci.agh.edu.pl/~porridge/
GnuPG: 1024D/60F41216 FE67 DA2D 0ACA FC5E 3F75 D6F6 3A0D 8AA0 60F4 1216
--- newlog.pl~ Mon Feb 12 14:14:57 2001
+++ newlog.pl Mon Feb 12 14:48:04 2001
@@ -196,9 +196,12 @@
To: $name
From: $MAILFROM
Reply-To: $MAILREPLYTO
-Subject: Debian Boot CVS: $login
-
EOF
+ print MAIL "Subject: Debian CVS: &join(@subjdirs, ' ') in $modulename:";
+ if (defined($branch)) {
+ print $branch;
+ }
+ print "\n\n";
print MAIL join("\n", @text), "\n";
close(MAIL);
}
@@ -220,6 +223,7 @@
$debug = 0;
$id = getpgrp(); # note, you *must* use a shell which does setpgrp()
$state = $STATE_NONE;
+@subjdirs = ();
$login = $ENV{'CVS_USER'} || $ENV{'LOGNAME'} || $ENV{'USER'} || getlogin || (getpwuid($<))[0] || "nobody";
@@ -451,16 +455,19 @@
last if (! -e "$LOG_FILE.$i.$id"); # we're done them all!
@lines = &read_logfile("$CHANGED_FILE.$i.$id", "");
if ($#lines >= 0) {
+ push(@subjdirs, $lines[0]);
push(@text, "Modified files:");
push(@text, &format_lists(@lines));
}
@lines = &read_logfile("$ADDED_FILE.$i.$id", "");
if ($#lines >= 0) {
+ push(@subjdirs, $lines[0]);
push(@text, "Added files:");
push(@text, &format_lists(@lines));
}
@lines = &read_logfile("$REMOVED_FILE.$i.$id", "");
if ($#lines >= 0) {
+ push(@subjdirs, $lines[0]);
push(@text, "Removed files:");
push(@text, &format_lists(@lines));
}
Reply to: