2 # infobot copyright kevin lenzo 1997-1998
11 # Search(keys||vals, str);
13 my ($type, $str) = @_;
14 my $start_time = &::timeget();
16 my $maxshow = &::getChanConfDefault('maxListReplyCount', 15, $::chan);
18 $type =~ s/s$//; # nice work-around.
20 if ($type eq 'value') {
22 @list = &::searchTable('factoids', 'factoid_key', 'factoid_value', $str);
25 @list = &::searchTable('factoids', 'factoid_key', 'factoid_key', $str);
28 @list=grep(!/\#DEL\#$/,@list) if (scalar(@list) > $maxshow);
29 my $delta_time = sprintf("%.02f", &::timedelta($start_time) );
30 &::status("search: took $delta_time sec for query.") if ($delta_time > 0);
32 my $prefix = "Factoid search of '\002$str\002' by $type ";
34 &::performStrictReply( &::formListReply(1, $prefix, @list) );
39 # vim:ts=4:sw=4:expandtab:tw=80