cvs: /CVSROOT dolog.pl loginfo

andrei Sat Oct 2 16:21:46 1999 EDT Modified files: /CVSROOT dolog.pl loginfo Log: hacking bonsai Index: CVSROOT/dolog.pl diff -u CVSROOT/dolog.pl:1.3 CVSROOT/dolog.pl:1.4 --- CVSROOT/dolog.pl:1.3 Thu Sep 30 18:54:45 1999 +++ CVSROOT/dolog.pl Sat Oct 2 16:21:16 1999 @@ -128,6 +128,7 @@ if( $flag_debug){ print STDERR "----------------------------------------------\n"; + $debug_mail = ""; } # Iterate over the body of the message collecting information. @@ -137,6 +138,7 @@ if( $flag_debug){ print STDERR "$_\n"; + $debug_mail .= $_; } if (/^In directory/) { @@ -209,6 +211,9 @@ push (@outlist, "LOGCOMMENT\r\n"); push (@outlist, join("\r\n",@log_lines)); push (@outlist, "\r\n:ENDLOGCOMMENT\r\n"); + if ($flag_debug) { + push (@outlist, $debug_mail); + } } Index: CVSROOT/loginfo diff -u CVSROOT/loginfo:1.8 CVSROOT/loginfo:1.9 --- CVSROOT/loginfo:1.8 Fri Oct 1 10:50:24 1999 +++ CVSROOT/loginfo Sat Oct 2 16:21:16 1999 @@ -1,5 +1,5 @@ # -#ident "@(#)cvs/examples:$Name: $:$Id: loginfo,v 1.8 1999/10/01 14:50:24 rasmus Exp $" +#ident "@(#)cvs/examples:$Name: $:$Id: loginfo,v 1.9 1999/10/02 20:21:16 andrei Exp $" # # The "loginfo" file is used to control where "cvs commit" log information # is sent. The first entry on a line is a regular expression which is tested @@ -51,4 +51,4 @@ DEFAULT $CVSROOT/CVSROOT/loginfo.pl php-dev@lists.php.net $USER %{sVv} -ALL sh -c "$CVSROOT/CVSROOT/dolog.pl -r /local/repository bonsai-checkin@va.php.net &" +ALL sh -c "$CVSROOT/CVSROOT/dolog.pl -r /local/repository andrei@ispi.net &"