Added API::IRC::msg and API::IRC::notice

This commit is contained in:
Matthew Barksdale committed 2011-01-20 02:05:50 -05:00
1 parent eb5abbbd5c
commit 79d464c247
2 files changed
+16 -2

No files matched your search

+15 -1
View File
@@ -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");
}