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).
