[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: CVSROOT / loginfo.pl
From: raeburn <lon-capa-cvs-allow () mail ! lon-capa ! org>
Date: 2008-10-22 22:18:42
Message-ID: cvsraeburn1224713922 () cvsserver
[Download RAW message or body]
raeburn Wed Oct 22 22:18:42 2008 EDT
Modified files:
/CVSROOT loginfo.pl
Log:
- Diffs for commits in modules/$user/private not included in mail to cvs list.
- Exclude contents of new files added to areas for which diffs are excluded from mail to list.
Index: CVSROOT/loginfo.pl
diff -u CVSROOT/loginfo.pl:1.7 CVSROOT/loginfo.pl:1.8
--- CVSROOT/loginfo.pl:1.7 Thu Jul 17 23:18:24 2008
+++ CVSROOT/loginfo.pl Wed Oct 22 22:18:41 2008
@@ -123,7 +123,7 @@
$file =~ m|foxr/londtest| ||
$file =~ m|purdue| ||
$file =~ m|vcu/| ||
- $file =~ m|raeburn/private| ) {
+ $file =~ m|modules/[^/]+/private/| ) {
$diffmsg='Diffs for '.$file.' not shown.'."\n";
next;
}
@@ -137,6 +137,14 @@
foreach my $file (@added_files) {
next if $file =~ /\.(gif|jpe|jpe?g|pdf|png|exe|class|tgz|tar.gz|jar)$/i
or $file !~ /\./;
+ if ($file =~ m|TexConvert/tt.dynamic| ||
+ $file =~ m|foxr/londtest| ||
+ $file =~ m|purdue| ||
+ $file =~ m|vcu/| ||
+ $file =~ m|modules/[^/]+/private/| ) {
+ $diffmsg='Contents of added file: '.$file.' not shown.'."\n";
+ next;
+ }
$diffmsg .= "\nIndex: $file\n+++ $file\n";
open(LOG, "$cvs -Qn checkout -p -r1.1 $file |") || die;
while(<LOG>) { s/\r\n/\n/; $diffmsg .= $_; }
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic