From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sat, 27 Mar 2004 21:37:03 +0000 (+0000)
Subject: action
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c52b0b886152f44f22f43828dfef34136d91b9f3;p=infobot.git

action


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

diff --git a/src/CLI/Support.pl b/src/CLI/Support.pl
index 6b2de5b..e61a1b3 100644
--- a/src/CLI/Support.pl
+++ b/src/CLI/Support.pl
@@ -51,6 +51,22 @@ sub msg {
     print("$nick: $msg\n");
 }
 
+# Usage: &action(nick || chan, txt);
+sub action {
+    my ($target, $txt) = @_;
+    if (!defined $txt) {
+	&WARN("action: txt == NULL.");
+	return;
+    }
+
+    if (length $txt > 480) {
+	&status("action: txt too long; truncating.");
+	chop($txt) while (length $txt > 480);
+    }
+
+    &status("* $ident/$target $txt");
+}
+
 sub IsNickInChan {
     my ($nick,$chan) = @_;
     return 1;