From 68433999fb592971e45553d7e6bce966c187e8e0 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Fri, 12 Aug 2005 22:04:58 +0000
Subject: [PATCH] reverse

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1236 c11ca15a-4712-0410-83d8-924469b57eb5
---
 files/sample/blootbot.chan |  6 ++++--
 src/CommandStubs.pl        |  1 +
 src/Modules/reverse.pl     | 15 +++++++++++++++
 3 files changed, 20 insertions(+), 2 deletions(-)
 create mode 100644 src/Modules/reverse.pl

diff --git a/files/sample/blootbot.chan b/files/sample/blootbot.chan
index 0ebd0d6..6390b94 100644
--- 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 c4d590b..43df9ac 100644
--- 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
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;
-- 
2.39.2