diff --git a/doc/CHANGELOG b/doc/CHANGELOG index bee1f68..105b8b9 100644 --- a/doc/CHANGELOG +++ b/doc/CHANGELOG @@ -3,7 +3,7 @@ Auto IRC Bot 3.0: Change Log 3.0 Indev ================================================================== - * Added mode subroutine to API::IRC. + * Added mode, msg, and notice subroutine to API::IRC. * Added PASS support. * Bug fix: err() fatal errors now work. They didn't work due to bad regex. diff --git a/src/API/IRC.pm b/src/API/IRC.pm index c407fcf..cea1713 100644 --- a/src/API/IRC.pm +++ b/src/API/IRC.pm @@ -9,7 +9,7 @@ use warnings; use Exporter; our @ISA = qw(Exporter); -our @EXPORT_OK = qw(cjoin cpart mode); +our @EXPORT_OK = qw(cjoin cpart mode msg notice); # Join a channel. @@ -37,3 +37,17 @@ sub mode { Auto::socksnd($svr, "MODE $chan $modes"); } + +# Send a PRIVMSG +sub msg { + my ($svr, $target, $message) = @_; + + Auto::socksnd($svr, "PRIVMSG $target :$message"); +} + +# Send a NOTICE +sub notice { + my ($svr, $target, $message) = @_; + + Auto::socksnd($svr, "NOTICE $target :$message"); +}