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
|
3.0 Indev
|
||||||
==================================================================
|
==================================================================
|
||||||
* Added mode subroutine to API::IRC.
|
* Added mode, msg, and notice subroutine to API::IRC.
|
||||||
* Added PASS support.
|
* Added PASS support.
|
||||||
* Bug fix: err() fatal errors now work. They didn't work
|
* Bug fix: err() fatal errors now work. They didn't work
|
||||||
due to bad regex.
|
due to bad regex.
|
||||||
|
|||||||
+15
-1
@@ -9,7 +9,7 @@ use warnings;
|
|||||||
use Exporter;
|
use Exporter;
|
||||||
|
|
||||||
our @ISA = qw(Exporter);
|
our @ISA = qw(Exporter);
|
||||||
our @EXPORT_OK = qw(cjoin cpart mode);
|
our @EXPORT_OK = qw(cjoin cpart mode msg notice);
|
||||||
|
|
||||||
|
|
||||||
# Join a channel.
|
# Join a channel.
|
||||||
@@ -37,3 +37,17 @@ sub mode {
|
|||||||
|
|
||||||
Auto::socksnd($svr, "MODE $chan $modes");
|
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