[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[commit-womb] gnumaint sendmaintmail
From: |
Karl Berry |
Subject: |
[commit-womb] gnumaint sendmaintmail |
Date: |
Tue, 15 May 2007 00:08:41 +0000 |
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: $!";
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [commit-womb] gnumaint sendmaintmail,
Karl Berry <=