[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Commit-womb] gnumaint Makefile gnumaint testaddrcase.msg
From: |
Karl Berry |
Subject: |
[Commit-womb] gnumaint Makefile gnumaint testaddrcase.msg |
Date: |
Mon, 30 Apr 2007 01:00:16 +0000 |
CVSROOT: /sources/womb
Module name: gnumaint
Changes by: Karl Berry <karl> 07/04/30 01:00:16
Modified files:
. : Makefile gnumaint
Added files:
. : testaddrcase.msg
Log message:
case-insensitive match, angle brackets first
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnumaint/Makefile?cvsroot=womb&r1=1.10&r2=1.11
http://cvs.savannah.gnu.org/viewcvs/gnumaint/gnumaint?cvsroot=womb&r1=1.37&r2=1.38
http://cvs.savannah.gnu.org/viewcvs/gnumaint/testaddrcase.msg?cvsroot=womb&rev=1.1
Patches:
Index: Makefile
===================================================================
RCS file: /sources/womb/gnumaint/Makefile,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -b -r1.10 -r1.11
--- Makefile 21 Mar 2007 18:14:58 -0000 1.10
+++ Makefile 30 Apr 2007 01:00:15 -0000 1.11
@@ -7,9 +7,10 @@
test-rece:
# gnumaint recemail </etc/issue
# gnumaint recemail <testjunk1.msg
- gnumaint recemail <testgood1.msg
+# gnumaint recemail <testgood1.msg
# gnumaint recemail <testaddr+real.msg
# gnumaint recemail <testaddrangle.msg
+# gnumaint recemail <testaddrcase.msg
# gnumaint recemail <testaddrcomment.msg
sep = 2>&1 | dos2unix; true ------------------------------
Index: gnumaint
===================================================================
RCS file: /sources/womb/gnumaint/gnumaint,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -b -r1.37 -r1.38
--- gnumaint 30 Apr 2007 00:20:56 -0000 1.37
+++ gnumaint 30 Apr 2007 01:00:15 -0000 1.38
@@ -1,6 +1,6 @@
#!/usr/bin/env tclsh
# gnumaint - GNU maintainers file maintenance (/gd/gnuorg/maintainers)
-# $Id: gnumaint,v 1.37 2007/04/30 00:20:56 karl Exp $
+# $Id: gnumaint,v 1.38 2007/04/30 01:00:15 karl Exp $
#
# Copyright 2007 Free Software Foundation Inc.
#
@@ -282,23 +282,24 @@
;# address@hidden (J User)
;# We don't attempt to do this perfectly.
;#
- if { [regexp {^[^ ]*$} $maintainer_email] } then {
- ;# no spaces, take the whole thing
- } elseif { [regexp {<([^>]+)>} $from "" maintainer_email] } then {
+ if { [regexp {<([^>]+)>} $from match maintainer_email] } then {
;# take whatever is inside <...>
+ } elseif { [regexp {^[^ ]*$} $maintainer_email] } then {
+ ;# no spaces, take the whole thing
} elseif { [regsub {\(.*\)} $from "" maintainer_email] } then {
;# (Real Name) removed, now remove space. regsub won't do it.
set maintainer_email [string trim $maintainer_email]
} else {
puts "could not find email in $from"
}
- # always lowercase in maintainers file.
- set $maintainer_email tolower ($maintainer_email)
+ set maintainer_email [string tolower $maintainer_email]
+ #puts "got email $maintainer_email"
;# See if this maintainer is in the database
set maintainer_found false
foreach maintainer $maintainersdb {
- if {[lindex $maintainer 1] == $maintainer_email} then {
+ if { [string tolower [lindex $maintainer 1]]
+ == $maintainer_email } then {
set maintainer_found true
}
}
Index: testaddrcase.msg
===================================================================
RCS file: testaddrcase.msg
diff -N testaddrcase.msg
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ testaddrcase.msg 30 Apr 2007 01:00:15 -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
+
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Commit-womb] gnumaint Makefile gnumaint testaddrcase.msg,
Karl Berry <=