From acbe36c18695c771f8adf98e0c4a9b3959394fc3 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 23 Nov 2004 05:11:29 +0000
Subject: [PATCH] search -> Search

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1064 c11ca15a-4712-0410-83d8-924469b57eb5
---
 files/sample/blootbot.chan |  4 ++--
 src/CommandStubs.pl        | 18 +++++++++---------
 src/modules.pl             |  2 +-
 3 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/files/sample/blootbot.chan b/files/sample/blootbot.chan
index 230e1e9..ba24ae9 100644
--- a/files/sample/blootbot.chan
+++ b/files/sample/blootbot.chan
@@ -1,4 +1,4 @@
-#v1: blootbot -- infobot -- written Tue Nov 23 05:01:44 2004
+#v1: blootbot -- infobot -- written Tue Nov 23 05:10:12 2004
 
 #botpark
     +RootWarn
@@ -31,6 +31,7 @@ _default
     +Plug
     +Quote
     +Rss
+    +Search
     +allowConv
     +allowDNS
     +allowTelling
@@ -55,7 +56,6 @@ _default
     +page
     randomFactoidInterval 60
     randomQuoteInterval 60
-    +search
     +seen
     seenFlushInterval 60
     seenMaxDays 90
diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl
index 0bb6eb9..b230798 100644
--- a/src/CommandStubs.pl
+++ b/src/CommandStubs.pl
@@ -189,7 +189,7 @@ sub parseCmdHook {
 	'Forker' => 1, 'Identifier' => 'Kernel',
 	'Cmdstats' => 'Kernel', 'NoArgs' => 1) );
 &addCmdHook("extra", 'listauth', ('CODEREF' => 'CmdListAuth',
-	'Identifier' => 'search', Module => 'Factoids',
+	'Identifier' => 'Search', Module => 'Factoids',
 	'Help' => 'listauth') );
 &addCmdHook("extra", 'quote', ('CODEREF' => 'Quote::Quote',
 	'Forker' => 1, 'Identifier' => 'Quote',
@@ -307,8 +307,8 @@ sub Modules {
 
     # text counters. (eg: hehstats)
     my $itc;
-    $itc = &getChanConf("ircTextCounters");
-    $itc = &findChanConf("ircTextCounters") unless ($itc);
+    $itc = &getChanConf('ircTextCounters');
+    $itc = &findChanConf('ircTextCounters') unless ($itc);
     return if ($itc && &do_text_counters($itc) == 1);
     # end of text counters.
 
@@ -320,26 +320,26 @@ sub Modules {
 	my $args	= $3 || "";
 
 	$thiscmd	=~ s/^vals$/values/;
-	return if ($thiscmd ne "keys" && $thiscmd ne "values");
+	return if ($thiscmd ne 'keys' && $thiscmd ne 'values');
 
 	# Usage:
 	if (!defined $args or $args =~ /^\s*$/) {
-	    &help("list". $thiscmd);
+	    &help('list'. $thiscmd);
 	    return;
 	}
 
 	# suggested by asuffield and \broken.
 	if ($args =~ /^["']/ and $args =~ /["']$/) {
-	    &DEBUG("list*: removed quotes.");
+	    &DEBUG('list*: removed quotes.');
 	    $args	=~ s/^["']|["']$//g;
 	}
 
-	if (length $args < 2 && &IsFlag("o") ne "o") {
-	    &msg($who, "search string is too short.");
+	if (length $args < 2 && &IsFlag('o') ne 'o') {
+	    &msg($who, 'search string is too short.');
 	    return;
 	}
 
-	&Forker("search", sub { &Search::Search($thiscmd, $args); } );
+	&Forker('Search', sub { &Search::Search($thiscmd, $args); } );
 
 	$cmdstats{'Factoid Search'}++;
 	return;
diff --git a/src/modules.pl b/src/modules.pl
index 6706a4b..2ff267b 100644
--- a/src/modules.pl
+++ b/src/modules.pl
@@ -44,7 +44,7 @@ if ($@) {
 	"Quote"		=> "Quote.pl",
 	"RootWarn"	=> "RootWarn.pl",
 	"Rss"		=> "Rss.pl",
-	"search"	=> "Search.pl",
+	"Search"	=> "Search.pl",
 	"slashdot"	=> "Slashdot3.pl",
 	"symdump"	=> "DumpVars2.pl",
 	"topic"		=> "Topic.pl",
-- 
2.39.5