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 IsNickInChan {
  27     my ($nick,$chan) = @_;
  28     return 1;
  29 }
  30
  31 sub performStrictReply {
  32     &msg($who, @_);
  33 }
  34
  35 sub performReply {
  36     &msg($who, @_);
  37 }
  38
  39 sub performAddressedReply {
  40     return unless ($addressed);
  41     &msg($who, @_);
  42 }
  43
  44 sub pSReply {
  45     &msg($who, @_);
  46 }
  47
  48 1;