Changeset 309 for branches/stable/cgi-bin/search.cgi

Timestamp:

03/06/06 16:43:38 (19 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Tweak search system to properly exclude netblocks, and pass
exclusions on to extra-page results

File:

• branches/stable/cgi-bin/search.cgi (modified) (2 diffs)

branches/stable/cgi-bin/search.cgi

@@ -148 +148 @@
       # we'll be getting a class A anytime soon.  <g>
       $sql .= " $sqlconcat (select $cols from searchme where ".
-        "$webvar{cidrexclude} cidr='$webvar{cidr}')";
+        "$webvar{cidrexclude} cidr<<='$webvar{cidr}')";
     } else {
       # Partial match;  beginning of subnet and maskbits are provided
@@ -431 +431 @@
                 "allcities=$webvar{allcities}&";
           foreach my $key (keys %webvar) {
-            if ($key =~ /^(?:type|city)\[/) {
+            if ($key =~ /^(?:type|city)\[/ || $key =~ /exclude$/) {
               print "$key=$webvar{$key}&";
             }