src/Modules/Search.pl

   1 #
   2 # infobot copyright kevin lenzo 1997-1998
   3 # rewritten by xk 1999
   4 #
   5
   6 package Search;
   7
   8 use strict;
   9
  10 ###
  11 # Search(keys||vals, str);
  12 sub Search {
  13     my ($type, $str) = @_;
  14     my $start_time = &main::gettimeofday();
  15     my @list;
  16
  17     $type =~ s/s$//;    # nice work-around.
  18
  19     if ($type eq "value") {     # search by value.
  20         @list = &main::searchTable("factoids", "factoid_key", "factoid_value", $str);
  21     } else {                    # search by key.
  22         @list = &main::searchTable("factoids", "factoid_key", "factoid_key", $str);
  23     }
  24
  25     my $delta_time = sprintf("%.02f", &main::gettimeofday() - $start_time);
  26     &main::status("search: took $delta_time sec for query.") if ($delta_time > 0);
  27
  28     my $prefix = "Factoid search of '\002$str\002' by $type ";
  29
  30     &main::performStrictReply( &main::formListReply(1, $prefix, @list) );
  31 }
  32
  33 1;