Allow a "not regexp" search of email addresses.

diff --git a/buglist.cgi b/buglist.cgi
index cc2c56034451c5fef92eb81469265b481fcc2a83..4a59cbbe868428ad575b53e4797da20f5c899446 100755 (executable)
--- a/buglist.cgi
+++ b/buglist.cgi
@@ -291,6 +291,8 @@ foreach my $id ("1", "2") {
             }
         } elsif ($type eq "regexp") {
             $query .= "\t$lead $table.login_name regexp $qemail\n";
+        } elsif ($type eq "notregexp") {
+            $query .= "\t$lead $table.login_name not regexp $qemail\n";
         } else {
             $query .= "\t$lead instr($table.login_name, $qemail)\n";
         }

diff --git a/query.cgi b/query.cgi
index 7401c54609fa47d33e008dfe46500f21ff46c207..6d4c731aa0b0cb76a5674b783dc1d488c23d3721 100755 (executable)
--- a/query.cgi
+++ b/query.cgi
@@ -133,6 +133,7 @@ sub GenerateEmailInput {
 <input name="email$id" size="30" value="">&nbsp;matching as
 <SELECT NAME=emailtype$id>
 <OPTION VALUE="regexp">regexp
+<OPTION VALUE="notregexp">not regexp
 <OPTION SELECTED VALUE="substring">substring
 <OPTION VALUE="exact">exact
 </SELECT>