use result div in babelfish

[infobot.git] / src / Modules / case.pl

diff --git a/src/Modules/case.pl b/src/Modules/case.pl
index c41937cde8f5d29efc9fa0906369552c3fec94d7..47f60475b080d8af18c881a141d0bb261f2750d2 100644 (file)
--- a/src/Modules/case.pl
+++ b/src/Modules/case.pl
@@ -8,13 +8,17 @@ use strict;
 package case;
 
 sub upper {
-    my($message) = @_;
-    &::performStrictReply(uc $message);
+    my ($message) = @_;
+
+    # make it green like an old terminal
+    &::performStrictReply( "\00303" . uc $message );
 }
 
 sub lower {
-    my($message) = @_;
-    &::performStrictReply(lc $message);
+    my ($message) = @_;
+    &::performStrictReply( lc $message );
 }
 
 1;
+
+# vim:ts=4:sw=4:expandtab:tw=80