src/CLI/Support.pl

   1 #
   2 # CLI/Support.pl: Stubs for functions that are from IRC/*
   3 #         Author: Tim Riker <Tim@Rikers.org>
   4 #        Version: v0.1 (20021028)
   5 #        Created: 20021028
   6 #
   7
   8 sub msg {
   9     my ($nick, $msg) = @_;
  10     if (!defined $nick) {
  11         &ERROR("msg: nick == NULL.");
  12         return;
  13     }
  14
  15     if (!defined $msg) {
  16         $msg ||= "NULL";
  17         &WARN("msg: msg == $msg.");
  18         return;
  19     }
  20
  21     &status(">$nick< $msg");
  22
  23     print("$nick: $msg\n");
  24 }
  25
  26 sub performStrictReply {
  27     &msg($who, @_);
  28 }
  29
  30 sub performReply {
  31     &msg($who, @_);
  32 }
  33
  34 sub performAddressedReply {
  35     return unless ($addressed);
  36     &msg($who, @_);
  37 }
  38
  39 sub pSReply {
  40     &msg($who, @_);
  41 }
  42
  43 1;