Allow a "not regexp" search of email addresses.

2 files changed, 3 insertions, 0 deletions

diff --git a/buglist.cgi b/buglist.cgi
index cc2c56034..4a59cbbe8 100755
--- 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 7401c5460..6d4c731aa 100755
--- 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>