Changeset 171 for branches/new-search-20050223/cgi-bin/main.cgi

Timestamp:

02/24/05 15:09:46 (20 years ago)

Author:

Kris Deugau

Message:

/branches/new-search-20050223

First iteration:

• Changed search linked from header.inc back to a "quick" search, with some intelligence to detect whether it's an IP, CustID, or description that's being searched for.

File:

• branches/new-search-20050223/cgi-bin/main.cgi (modified) (1 diff)

branches/new-search-20050223/cgi-bin/main.cgi

@@ -123 +123 @@
     # Search term entered.  Display matches.
     # We should really sanitize $webvar{input}, no?
-    viewBy($webvar{searchfor}, $webvar{input});
+    # need to munge up data for $webvar{searchfor}, rather than breaking things here.
+    my $searchfor;
+    # Chew up leading and trailing whitespace
+    $webvar{input} =~ s/^\s+//;
+    $webvar{input} =~ s/\s+$//;
+    if ($webvar{input} =~ /^(\d{1,3}\.){3}\d{1,3}\/\d{1,3}$/) {
+      # "Perfect" IP subnet match
+      $searchfor = "ipblock";
+    } elsif ($webvar{input} =~ /^(\d{1,3}\.){3}\d{1,3}$/) {
+      # "Perfect" IP address match (shows containing block)
+      $searchfor = "ipblock";
+    } elsif ($webvar{input} =~ /^(\d{1,3}\.){2}\d{1,3}(\.\d{1,3}?)?/) {
+      # Partial IP match
+      $searchfor = "ipblock";
+    } elsif ($webvar{input} =~ /^\d+$/) {
+      # All-digits, new custID
+      $searchfor = "cust";
+    } else {
+      # Anything else.
+      $searchfor = "desc";
+    }
+    viewBy($searchfor, $webvar{input});
   }
 }