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' ) {
24 &::searchTable( 'factoids', 'factoid_key', 'factoid_value', $str );
30 &::searchTable( 'factoids', 'factoid_key', 'factoid_key', $str );
33 @list = grep( !/\#DEL\#$/, @list ) if ( scalar(@list) > $maxshow );
34 my $delta_time = sprintf( "%.02f", &::timedelta($start_time) );
35 &::status("search: took $delta_time sec for query.") if ( $delta_time > 0 );
37 my $prefix = "Factoid search of '\002$str\002' by $type ";
39 &::performStrictReply( &::formListReply( 1, $prefix, @list ) );
44 # vim:ts=4:sw=4:expandtab:tw=80