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

Timestamp:

10/07/05 11:11:17 (19 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Cosmetic "bugfix" on IP-based quicksearches - don't display
extra notes on query string.

File:

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

branches/stable/cgi-bin/search.cgi

@@ -313 +313 @@
         queryResults($sql, $webvar{page}, 1);
       } else {
-        print "Finding all blocks with netmask /$maskbits, leading octet(s) $net<br>\n";
+        #print "Finding all blocks with netmask /$maskbits, leading octet(s) $net<br>\n";
         # Partial match;  beginning of subnet and maskbits are provided
         $sql = "select * from searchme where text(cidr) like '$net%' and ".
@@ -323 +323 @@
     } elsif ($query =~ /^(\d{1,3}\.){3}\d{1,3}$/) {
       # Specific IP address match
-      print "4-octet pattern found;  finding netblock containing IP $query<br>\n";
+      #print "4-octet pattern found;  finding netblock containing IP $query<br>\n";
       my ($net,$ip) = ($query =~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.)(\d{1,3})/);
       my $sfor = new NetAddr::IP $query;
@@ -335 +335 @@
       }
     } elsif ($query =~ /^(\d{1,3}\.){1,3}\d{1,3}\.?$/) {
-      print "Finding matches with leading octet(s) $query<br>\n";
+      #print "Finding matches with leading octet(s) $query<br>\n";
       $sql = "select * from searchme where text(cidr) like '$query%'";
       my $count = countRows($sql);