[commit-womb] gnumaint sendmaintmail

[Karl Berry]

CVSROOT:        /sources/womb
Module name:    gnumaint
Changes by:     Karl Berry <karl>       07/05/15 00:08:41

Modified files:
        .              : sendmaintmail 

Log message:
        omit mail for a test

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnumaint/sendmaintmail?cvsroot=womb&r1=1.4&r2=1.5

Patches:
Index: sendmaintmail
===================================================================
RCS file: /sources/womb/gnumaint/sendmaintmail,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- sendmaintmail       10 May 2007 01:28:27 -0000      1.4
+++ sendmaintmail       15 May 2007 00:08:40 -0000      1.5
@@ -1,5 +1,5 @@
 #!/usr/bin/env perl
-# $Id: sendmaintmail,v 1.4 2007/05/10 01:28:27 karl Exp $
+# $Id: sendmaintmail,v 1.5 2007/05/15 00:08:40 karl Exp $
 # Send or refrain from sending a message to a maintainer.
 # 
 # Copyright 2007 Free Software Foundation Inc.
@@ -22,7 +22,7 @@
 #
 # If the email address is recent enough in activity-report.txt, omit.
 # If the package is recent enough in activity-report.txt, omit.
-# If the package is in recent.rel, omit.
+# If the package is in recentrel.txt, omit.
 # Otherwise send.
 # 
 # When we omit, we write a short string to stdout describing why.
@@ -39,9 +39,9 @@
   my ($maint_email, $pkgref, @msg) = &read_msg ();
   my @maint_pkgs = @$pkgref;  
   
-  # Check if any of these package names appear in the recent.rel file.
+  # Check if any of these package names appear in the recently-released file.
   # If so, we're done.
-  chomp (my @recent_rel = `cat recent.rel`);
+  chomp (my @recent_rel = `cat recentrel.txt`);
   #
   for my $p (@maint_pkgs) {
     if (grep { $_ eq $p } @recent_rel) {
@@ -81,7 +81,7 @@
   #warn "would send mail";
   local *SENDMAIL;
 #  $SENDMAIL = "|/usr/lib/sendmail -t";
-  $SENDMAIL = "|cat >&2";
+  $SENDMAIL = "|cat >>/tmp/xyz";
   open (SENDMAIL) || die "open($SENDMAIL) failed: $!";
   print SENDMAIL @msg;
   close (SENDMAIL) || warn "close($SENDMAIL) failed: $!";