[Commit-womb] gnumaint sendmaintmail

[Karl Berry]

CVSROOT:        /sources/womb
Module name:    gnumaint
Changes by:     Karl Berry <karl>       07/03/21 18:19:50

Modified files:
        .              : sendmaintmail 

Log message:
        actually send mail.

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

Patches:
Index: sendmaintmail
===================================================================
RCS file: /sources/womb/gnumaint/sendmaintmail,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- sendmaintmail       21 Mar 2007 18:14:58 -0000      1.2
+++ sendmaintmail       21 Mar 2007 18:19:50 -0000      1.3
@@ -1,5 +1,5 @@
 #!/usr/bin/env perl
-# $Id: sendmaintmail,v 1.2 2007/03/21 18:14:58 karl Exp $
+# $Id: sendmaintmail,v 1.3 2007/03/21 18:19:50 karl Exp $
 # Send or refrain from sending a message to a maintainer.
 # 
 # Copyright 2007 Free Software Foundation Inc.
@@ -77,7 +77,11 @@
   }
   
   #warn "would send mail";
-  #print @msg;
+  local *SENDMAIL;
+  $SENDMAIL = "|/usr/lib/sendmail -t";
+  open (SENDMAIL) || die "open($SENDMAIL) failed: $!";
+  print SENDMAIL @msg;
+  close (SENDMAIL) || warn "close($SENDMAIL) failed: $!";
 
   return 0;
 }