Changeset 289 for trunk/cgi-bin/search.cgi

Timestamp:

10/07/05 11:12:16 (19 years ago)

Author:

Kris Deugau

Message:

/trunk

Merge bugfix from /branches/stable r288

File:

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

trunk/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);