From fb21dc137651e21de07c9d4f431b3c4994a81353 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sat, 21 Jan 2006 06:22:12 +0000
Subject: [PATCH] upper/lower case

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1266 c11ca15a-4712-0410-83d8-924469b57eb5
---
 files/blootbot.help        |  8 ++++++++
 files/sample/blootbot.chan |  3 ++-
 src/CommandStubs.pl        |  2 ++
 src/Modules/case.pl        | 20 ++++++++++++++++++++
 4 files changed, 32 insertions(+), 1 deletion(-)
 create mode 100644 src/Modules/case.pl

diff --git a/files/blootbot.help b/files/blootbot.help
index ae2e25d..5c00aa6 100644
--- a/files/blootbot.help
+++ b/files/blootbot.help
@@ -247,6 +247,10 @@ lart: U: ## [#chan] <who>
 lart: E: ## lenzo infobot's bugginess
 lart: E: ## #perl everyone perl \=\= lamerville
 
+lc: D: lower case a given string
+lc: U: ## <string>
+lc: E: ## When will blootbot achieve world domination?
+
 listauth: D: Search the factoid extension db by creator
 listauth: U: ## <search>
 listauth: E: ## xk
@@ -428,6 +432,10 @@ topic: NOTE: #chan arg is only required if command is sent over private message
 topic: NOTE: commands can be preceeded? with '-' in order not to enforce changes to topic.
 topic: End of help.
 
+uc: D: upper case a given string
+uc: U: ## <string>
+uc: E: ## When will blootbot achieve world domination?
+
 unforget: If a factoid has been forgotten, "unforget x" will cause me to unerase it.
 
 unlobotomy: Not possible in real life, an unlobotomy will bring me back to life in the case of a lobotomy.
diff --git a/files/sample/blootbot.chan b/files/sample/blootbot.chan
index 993f1e5..b0fe8b6 100644
--- a/files/sample/blootbot.chan
+++ b/files/sample/blootbot.chan
@@ -1,4 +1,4 @@
-#v1: blootbot -- InfoBot -- written Sat Jan  7 05:46:31 2006
+#v1: blootbot -- infobot -- written Sat Jan 21 06:17:24 2006
 
 #botpark
     -OnJoin
@@ -47,6 +47,7 @@ _default
     +allowTelling
     +babelfish
     +botmail
+    +case
     +cookie
     +countdown
     debianRefreshInterval 7
diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl
index 0ad1430..00e1eba 100644
--- a/src/CommandStubs.pl
+++ b/src/CommandStubs.pl
@@ -877,6 +877,7 @@ sub nullski {
 &addCmdHook('karma', ('CODEREF' => 'karma', ) );
 &addCmdHook('kernel', ('CODEREF' => 'Kernel::Kernel', 'Forker' => 1, 'Identifier' => 'Kernel', 'Cmdstats' => 'Kernel', 'NoArgs' => 1) );
 &addCmdHook('lart', ('CODEREF' => 'lart', 'Identifier' => 'lart', 'Help' => 'lart') );
+&addCmdHook('lc', ('CODEREF' => 'case::lower', 'Identifier' => 'case', 'Cmdstats' => 'case', 'Forker' => 1, 'Module' => 'case') );
 &addCmdHook('listauth', ('CODEREF' => 'CmdListAuth', 'Identifier' => 'Search', Module => 'Factoids', 'Help' => 'listauth') );
 &addCmdHook('md5(sum)?', ('CODEREF' => 'md5::md5', 'Identifier' => 'md5', 'Cmdstats' => 'md5', 'Forker' => 1, 'Module' => 'md5') );
 &addCmdHook('metar', ('CODEREF' => 'Weather::Metar', 'Identifier' => 'Weather', 'Help' => 'weather', 'Cmdstats' => 'Weather', 'Forker' => 1) );
@@ -896,6 +897,7 @@ sub nullski {
 &addCmdHook('seen', ('CODEREF' => 'seen', 'Identifier' => 'seen') );
 &addCmdHook('slashdot', ('CODEREF' => 'Slashdot::Slashdot', 'Identifier' => 'slashdot', 'Forker' => 1, 'Cmdstats' => 'slashdot') );
 &addCmdHook('tell|explain', ('CODEREF' => 'tell', Help => 'tell', Identifier => 'allowTelling', Cmdstats => 'Tell') );
+&addCmdHook('uc', ('CODEREF' => 'case::upper', 'Identifier' => 'case', 'Cmdstats' => 'case', 'Forker' => 1, 'Module' => 'case') );
 &addCmdHook('Uptime', ('CODEREF' => 'uptime', 'Identifier' => 'Uptime', 'Cmdstats' => 'Uptime') );
 &addCmdHook('u(ser)?info', ('CODEREF' => 'userinfo', 'Identifier' => 'UserInfo', 'Help' => 'userinfo', 'Module' => 'UserInfo') );
 &addCmdHook('verstats', ('CODEREF' => 'do_verstats' ) );
diff --git a/src/Modules/case.pl b/src/Modules/case.pl
new file mode 100644
index 0000000..c41937c
--- /dev/null
+++ b/src/Modules/case.pl
@@ -0,0 +1,20 @@
+#      case.pl: upper/lower a string
+#       Author: Tim Riker
+#    Licensing: Artistic License
+#      Version: v0.1
+#
+use strict;
+
+package case;
+
+sub upper {
+    my($message) = @_;
+    &::performStrictReply(uc $message);
+}
+
+sub lower {
+    my($message) = @_;
+    &::performStrictReply(lc $message);
+}
+
+1;
-- 
2.39.2