X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2FSearch.pl;h=8e65df3d81c64ffa404046886f1d61c1d6d82400;hb=40f6dad8bfd5a8a707a69cb31ba62cc6d26139c1;hp=6541c0cd47e9a68ea3d47baf7133b66d8b9a46b8;hpb=08424c9191b4c7d7be2446239d651e21d636644c;p=infobot.git

diff --git a/src/Modules/Search.pl b/src/Modules/Search.pl
index 6541c0c..8e65df3 100644
--- a/src/Modules/Search.pl
+++ b/src/Modules/Search.pl
@@ -10,28 +10,33 @@ use strict;
 ###
 # Search(keys||vals, str);
 sub Search {
-    my ($type, $str) = @_;
+    my ( $type, $str ) = @_;
     my $start_time = &::timeget();
     my @list;
-    my $maxshow = &::getChanConfDefault('maxListReplyCount', 15, $::chan);
+    my $maxshow = &::getChanConfDefault( 'maxListReplyCount', 15, $::chan );
 
-    $type =~ s/s$//;	# nice work-around.
+    $type =~ s/s$//;    # nice work-around.
 
-    if ($type eq 'value') {
-	# search by value.
-	@list = &::searchTable('factoids', 'factoid_key', 'factoid_value', $str);
-    } else {
-	# search by key.
-	@list = &::searchTable('factoids', 'factoid_key', 'factoid_key', $str);
+    if ( $type eq 'value' ) {
+
+        # search by value.
+        @list =
+          &::searchTable( 'factoids', 'factoid_key', 'factoid_value', $str );
+    }
+    else {
+
+        # search by key.
+        @list =
+          &::searchTable( 'factoids', 'factoid_key', 'factoid_key', $str );
     }
 
-    @list=grep(!/\#DEL\#$/,@list) if (scalar(@list) > $maxshow);
-    my $delta_time = sprintf("%.02f", &::timedelta($start_time) );
-    &::status("search: took $delta_time sec for query.") if ($delta_time > 0);
+    @list = grep( !/\#DEL\#$/, @list ) if ( scalar(@list) > $maxshow );
+    my $delta_time = sprintf( "%.02f", &::timedelta($start_time) );
+    &::status("search: took $delta_time sec for query.") if ( $delta_time > 0 );
 
     my $prefix = "Factoid search of '\002$str\002' by $type ";
 
-    &::performStrictReply( &::formListReply(1, $prefix, @list) );
+    &::performStrictReply( &::formListReply( 1, $prefix, @list ) );
 }
 
 1;