2 # infobot copyright kevin lenzo 1997-1998
11 # Search(keys||vals, str);
13 my ($type, $str) = @_;
14 my $start_time = &main::timeget();
17 $type =~ s/s$//; # nice work-around.
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);
25 my $delta_time = sprintf("%.02f", &main::timedelta($start_time) );
26 &main::status("search: took $delta_time sec for query.") if ($delta_time > 0);
28 my $prefix = "Factoid search of '\002$str\002' by $type ";
30 &main::performStrictReply( &main::formListReply(1, $prefix, @list) );