[Commit-womb] gnumaint .cvsignore Makefile gnumaint testgood1...

[Karl Berry]

CVSROOT:        /sources/womb
Module name:    gnumaint
Changes by:     Karl Berry <karl>       07/02/13 19:50:49

Modified files:
        .              : .cvsignore Makefile gnumaint 
Added files:
        .              : testgood1.msg 

Log message:
        save good mail, too

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnumaint/.cvsignore?cvsroot=womb&r1=1.3&r2=1.4
http://cvs.savannah.gnu.org/viewcvs/gnumaint/Makefile?cvsroot=womb&r1=1.6&r2=1.7
http://cvs.savannah.gnu.org/viewcvs/gnumaint/gnumaint?cvsroot=womb&r1=1.25&r2=1.26
http://cvs.savannah.gnu.org/viewcvs/gnumaint/testgood1.msg?cvsroot=womb&rev=1.1

Patches:
Index: .cvsignore
===================================================================
RCS file: /sources/womb/gnumaint/.cvsignore,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- .cvsignore  13 Feb 2007 19:32:08 -0000      1.3
+++ .cvsignore  13 Feb 2007 19:50:49 -0000      1.4
@@ -1,3 +1,3 @@
 activity-report.txt
-discarded-email.txt
+*-email.txt
 *.log*

Index: Makefile
===================================================================
RCS file: /sources/womb/gnumaint/Makefile,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- Makefile    11 Feb 2007 21:50:53 -0000      1.6
+++ Makefile    13 Feb 2007 19:50:49 -0000      1.7
@@ -6,7 +6,8 @@
 
 test-rece:
 #      gnumaint recemail </etc/issue
-       gnumaint recemail <testjunk1.msg
+#      gnumaint recemail <testjunk1.msg
+       gnumaint recemail <testgood1.msg
 
 sep = 2>&1 | dos2unix; true ------------------------------
 

Index: gnumaint
===================================================================
RCS file: /sources/womb/gnumaint/gnumaint,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- gnumaint    13 Feb 2007 19:32:08 -0000      1.25
+++ gnumaint    13 Feb 2007 19:50:49 -0000      1.26
@@ -26,6 +26,7 @@
 variable log_file             "email.log"
 variable report_file          "activity-report.txt"
 variable discarded_email      "discarded-email.txt"
+variable processed_email      "processed-email.txt"
 variable formail              "/usr/bin/formail"
 variable sendmail             "/usr/sbin/sendmail"
 variable lockfile_command     "/usr/bin/lockfile"
@@ -267,10 +268,8 @@
   set subject [string trim $subject]
 
   switch -glob $subject {
-      "*GNU package maintenance*" {
-          ;#
-          ;# Activity response email
-          ;#
+      {*GNU package*} {
+          ;# Handle activity response email
 
           ;# Get the maintainer email
           set maintainer_email [string trim $from]
@@ -291,6 +290,7 @@
 
           ;# Log the operation
           add_to_log "received activity reply from $maintainer_email"
+          archive_email $email_contents
 
           ;# Annotate this packages into the activity file
           activity_annotate $maintainer_email
@@ -311,6 +311,15 @@
   close $fout
 }
 
+proc archive_email {email_contents} {
+  variable processed_email
+
+  set fout [open $processed_email a]
+  puts $fout $email_contents
+  close $fout
+}
+
+
 proc sendemail_annotate {} {
   variable report_file
 
@@ -340,7 +349,7 @@
   set fout [open $report_file a]
 
   foreach pkg $maintainer_packages {
-      set pkgline "$pkg : $maintainer_email : [timestamp]"
+      set pkgline "$maintainer_email|$pkg|[timestamp]"
       puts $fout $pkgline
   }
 

Index: testgood1.msg
===================================================================
RCS file: testgood1.msg
diff -N testgood1.msg
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ testgood1.msg       13 Feb 2007 19:50:49 -0000      1.1
@@ -0,0 +1,14 @@
+From address@hidden Sun Feb 11 14:48:08 2007
+Return-path: <address@hidden>
+Envelope-to: address@hidden
+Delivery-date: Sun, 11 Feb 2007 14:48:08 -0500
+Received: from karl by fencepost.gnu.org with local (Exim 4.60)
+       (envelope-from <address@hidden>)
+       id 1HGKgC-0000P9-M8
+       for address@hidden; Sun, 11 Feb 2007 14:48:08 -0500
+To: address@hidden
+Message-Id: <address@hidden>
+From: address@hidden
+Date: Sun, 11 Feb 2007 14:48:08 -0500
+Subject: GNU package maintenance
+