Added API::IRC::msg and API::IRC::notice
This commit is contained in:
1 parent
eb5abbbd5c
commit
79d464c247
2 files changed
+16
-2
No files matched your search
+15
-1
@@ -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");
|
||||
}
|
||||
Reference in new issue
Block a user