[commit-womb] gnumaint/msg.0802 .cvsignore Makefile msg0802.t...

[Karl Berry]

CVSROOT:        /sources/womb
Module name:    gnumaint
Changes by:     Karl Berry <karl>       08/02/19 14:50:53

Added files:
        msg.0802       : .cvsignore Makefile msg0802.txt send.0802 

Log message:
        msg0802

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnumaint/msg.0802/.cvsignore?cvsroot=womb&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/gnumaint/msg.0802/Makefile?cvsroot=womb&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/gnumaint/msg.0802/msg0802.txt?cvsroot=womb&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/gnumaint/msg.0802/send.0802?cvsroot=womb&rev=1.1

Patches:
Index: .cvsignore
===================================================================
RCS file: .cvsignore
diff -N .cvsignore
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ .cvsignore  19 Feb 2008 14:50:52 -0000      1.1
@@ -0,0 +1,2 @@
+msgs
+tomail.txt

Index: Makefile
===================================================================
RCS file: Makefile
diff -N Makefile
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ Makefile    19 Feb 2008 14:50:53 -0000      1.1
@@ -0,0 +1,4 @@
+try:
+       $(MAKE) -s -C .. test-unanswered >tomail.txt
+       send.0802
+       grep To: msgs/*

Index: msg0802.txt
===================================================================
RCS file: msg0802.txt
diff -N msg0802.txt
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ msg0802.txt 19 Feb 2008 14:50:53 -0000      1.1
@@ -0,0 +1,19 @@
+From: address@hidden
+To: %MAINTAINER_EMAIL
+Subject: maintaining GNU %PACKAGE_NAME?
+Reply-to: address@hidden
+
+Greetings,
+
+To the best of our knowledge, you are the maintainer of the
+GNU %PACKAGE_NAME package.  Unfortunately, it seems we have lost
+contact with you.  We don't know whether you are still working
+on the program or even whether you are still programming at all.
+
+Could you please reply to this message and let us know if you are still
+working on the package?  If we cannot regain contact with you (we will
+also try to find a phone number for you), we will need to find another
+maintainer for the package.
+
+Thank you,
+rms / karl

Index: send.0802
===================================================================
RCS file: send.0802
diff -N send.0802
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ send.0802   19 Feb 2008 14:50:53 -0000      1.1
@@ -0,0 +1,56 @@
+#!/usr/bin/env perl
+# February 2008.
+# - Send to maintainers we have not had established contact with.
+
+exit (&main ());
+
+sub main
+{
+  my $mail_template = "msg0802.txt";
+  chomp (my @tomail = `cat tomail.txt`);  # generated by Makefile
+  system ("rm -rf msgs; mkdir msgs");  # clean anything old
+
+  my %seen;
+  for my $line (@tomail) {
+    my ($pkg,$addr) = split (/ - /, $line, 2);
+    
+    # we arranged things so we don't send this to anyone who maintains
+    # multiple packages.
+    warn "already saw $addr ($seen{$addr})" if $seen{$addr};
+    $seen{$addr} = $pkg;
+
+    my $sed = "n"; # don't need this this time
+    $msg = &make_msg ($mail_template, $sed, $pkg, ($addr));
+  
+    # save it.
+    local *OFILE;
+    ($OFILE = ">msgs/$pkg") =~ tr/ //d;  # remove spaces to keep things easy
+    open (OFILE) || die "open($OFILE) failed: $!";
+    print OFILE $msg;
+    close (OFILE) || warn "close($OFILE) failed: $!";
+  }
+
+  return 0;
+}
+
+
+
+# Play with the message text in MAIL_TEMPLATE, handling the %if noaddr
+# conditional according to SED, and the %fmt: directive, and
+# substituting "%PACKAGE_NAME" and "%MAINTAINER_EMAIL".
+# 
+sub make_msg
+{
+  my ($mail_template,$sed,$pkgname,@maintainer_emails) = @_;
+  
+  my @msg = `sed -e $sed $mail_template | fmt --prefix=%fmt:`;
+  my $msg = join ("", @msg);
+  
+  $msg =~ s/^%fmt://gm;  # strip our reformatting prefix.
+  $msg =~ s/%PACKAGE_NAME/$pkgname/gm;
+  
+  my $recip = join (", ", @maintainer_emails);
+  $msg =~ s/%MAINTAINER_EMAIL/$recip/gm;
+    
+  return $msg;
+}