search -> Search

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1064 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/files/sample/blootbot.chan b/files/sample/blootbot.chan
index 230e1e962435672e6dcf693c7db6b682a8e87f87..ba24ae9dc5bbb12e470fcdf3be022956b70adb2b 100644 (file)
--- 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 0bb6eb90978403658ab95597ec614c10a4c1044f..b230798d595c8b9439e361d1712a4f334b65802f 100644 (file)
--- 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 6706a4b1c1b45a925f0cb4c6528b44a3d5d100e3..2ff267b79c2db6a5fe9f2a66f0600e564dc74740 100644 (file)
--- 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",