- berkeley dbm support now works! thanks to tim riker.

[infobot.git] / src / CLI / Support.pl

diff --git a/src/CLI/Support.pl b/src/CLI/Support.pl
new file mode 100644 (file)
index 0000000..b3c7b1a
--- /dev/null
+++ b/src/CLI/Support.pl
@@ -0,0 +1,43 @@
+#
+# CLI/Support.pl: Stubs for functions that are from IRC/*
+#         Author: Tim Riker <Tim@Rikers.org>
+#        Version: v0.1 (20021028)
+#        Created: 20021028
+#
+
+sub msg {
+    my ($nick, $msg) = @_;
+    if (!defined $nick) {
+       &ERROR("msg: nick == NULL.");
+       return;
+    }
+
+    if (!defined $msg) {
+       $msg ||= "NULL";
+       &WARN("msg: msg == $msg.");
+       return;
+    }
+
+    &status(">$nick< $msg");
+
+    print("$nick: $msg\n");
+}
+
+sub performStrictReply {
+    &msg($who, @_);
+}
+
+sub performReply {
+    &msg($who, @_);
+}
+
+sub performAddressedReply {
+    return unless ($addressed);
+    &msg($who, @_);
+}
+
+sub pSReply {
+    &msg($who, @_);
+}
+
+1;