reverse

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

diff --git a/files/sample/blootbot.chan b/files/sample/blootbot.chan
index 0ebd0d6e2505f793e26ab7240a0a9d2009cd6aab..6390b94e47633d831a58ababe937b34c89334095 100644 (file)
--- a/files/sample/blootbot.chan
+++ b/files/sample/blootbot.chan
@@ -1,9 +1,9 @@
-#v1: blootbot -- infobot -- written Thu May 19 06:34:46 2005
+#v1: blootbot -- blootbot -- written Fri Aug 12 22:01:53 2005
 
 #botpark
     +RootWarn
     _time_added 1108710504
-    +autojoin
+    autojoin
 
 #debian-bots
     +News
@@ -52,6 +52,7 @@ _default
     +dice
     +dns
     +factoidArguments
+    factoidSearch $chan _default
     floodMessages 10:30
     floodRepeat 2:10
     +freshmeat
@@ -70,6 +71,7 @@ _default
     +piglatin
     randomFactoidInterval 60
     randomQuoteInterval 60
+    +reverse
     +scramble
     +seen
     seenFlushInterval 60

diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl
index c4d590b14dace7ab180e6ce8e6bc0787a30376c7..43df9acc70fc249da67ceaab5ae3c81fde6a8ef6 100644 (file)
--- a/src/CommandStubs.pl
+++ b/src/CommandStubs.pl
@@ -885,6 +885,7 @@ sub nullski {
 &addCmdHook('piglatin', ('CODEREF' => 'piglatin::piglatin', 'Identifier' => 'piglatin', 'Cmdstats' => 'piglatin', 'Forker' => 1) );
 &addCmdHook('Plug', ('CODEREF' => 'Plug::Plug', 'Identifier' => 'Plug', 'Forker' => 1, 'Cmdstats' => 'Plug') );
 &addCmdHook('quote', ('CODEREF' => 'Quote::Quote', 'Forker' => 1, 'Identifier' => 'Quote', 'Help' => 'quote', 'Cmdstats' => 'Quote') );
+&addCmdHook('reverse', ('CODEREF' => 'reverse::reverse', 'Identifier' => 'reverse', 'Cmdstats' => 'reverse', 'Forker' => 1, 'Module' => 'reverse') );
 &addCmdHook('RootWarn', ('CODEREF' => 'CmdrootWarn', 'Identifier' => 'RootWarn', 'Module' => 'RootWarn') );
 &addCmdHook('Rss', ('CODEREF' => 'Rss::Rss', 'Identifier' => 'Rss', 'Cmdstats' => 'Rss', 'Forker' => 1, 'Help' => 'rss') );
 &addCmdHook('sched(stats|info)', ('CODEREF' => 'scheduleList', ) );

diff --git a/src/Modules/reverse.pl b/src/Modules/reverse.pl
new file mode 100644 (file)
index 0000000..a6e2fd6
--- /dev/null
+++ b/src/Modules/reverse.pl
@@ -0,0 +1,15 @@
+#   reverse.pl: reverse a string
+#       Author: Tim Riker
+#    Licensing: Artistic License
+#      Version: v0.1 (20050812)
+#
+use strict;
+
+package reverse;
+
+sub reverse {
+    my($message) = @_;
+    &::performStrictReply(join("",reverse(split("",$message))));
+}
+
+1;