coar 97/08/13 14:03:34
Modified: . bugdb.cgi Log: The check for the special keyword "any" was occluding field values that included "any" with sentinel characters Perl recognised as "word boundaries." So "mod_auth-any" wouldn't make it through. PR: 749 Revision Changes Path 1.14 +8 -3 apache-site/bugdb.cgi Index: bugdb.cgi =================================================================== RCS file: /export/home/cvs/apache-site/bugdb.cgi,v retrieving revision 1.13 retrieving revision 1.14 diff -u -r1.13 -r1.14 --- bugdb.cgi 1997/08/09 01:13:09 1.13 +++ bugdb.cgi 1997/08/13 21:03:32 1.14 @@ -50,6 +50,8 @@ # than 4 columns - easier to follow link without having to # horizontally scroll back. Also added field to let you go directly # to a particular PR from the main menu (prompted by Dean Gaudet). +# 8/13/1997 Ken Coar - fix problem causing check for "any" keyword to +# occlude things like "mod_auth-any". # ### End Modification log @@ -184,7 +186,7 @@ ### Main menu } elsif ($PATH_INFO eq "") { &main_menu(); - print "<HR><SMALL>Version: 30 July 1997<BR>Authors: ", + print "<HR><SMALL>Version: 13 August 1997<BR>Authors: ", "<A HREF=\"http://alumni.caltech.edu/~dank/gnats.html\">Dan Kegel ", "and Huy Le</A>, <BR> ", "with revamp work by ", @@ -1055,8 +1057,11 @@ foreach (keys(%restrict)) { $oldkey = $_; $oldval = $restrict{$oldkey}; - # If "any" was given, don't bother using this key - if ($oldval !~ /\bany\b/) { + # If "any" was given as a distinct keyword, alone or in + # combination, don't bother using this key + if (($oldval ne "any") + && ($oldval !~ /^any\|/) + && ($oldval !~ /\|any$/)) { # Turn underscores and spaces into regular expression # that match either underscores or spaces # (Our database sometimes puts underscores instead of spaces).