Log Message:
-----------
disable logmsg handling
Modified Files:
--------------
admintools:
ww-mail-merge
Revision Data
-------------
Index: ww-mail-merge
===================================================================
RCS file: /webwork/cvs/system/admintools/ww-mail-merge,v
retrieving revision 1.3
retrieving revision 1.4
diff -Lww-mail-merge -Lww-mail-merge -u -r1.3 -r1.4
--- ww-mail-merge
+++ ww-mail-merge
@@ -3,7 +3,7 @@
use strict;
use warnings;
-my $logmsg;
+#my $logmsg;
my $out;
while (<>) {
@@ -11,7 +11,7 @@
<>; # next line is underlines
while (<>) {
last if /^(Added|Modified|Deleted) Files:$/;
- $logmsg .= $_;
+ #$logmsg .= $_;
}
}
if (/^--- \/dev\/null$/) {
@@ -25,7 +25,7 @@
$out .= "cvs up -kk -j$2 -j$3 $1\n";
}
-$logmsg =~ s/\n+$//s;
+#$logmsg =~ s/\n+$//s;
if (defined $out) {
print $out;
|
