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
+1
-1
@@ -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.
|
||||
|
||||
+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