diff --git a/doc/CHANGELOG b/doc/CHANGELOG index 3e9e2da..3250069 100644 --- a/doc/CHANGELOG +++ b/doc/CHANGELOG @@ -3,6 +3,7 @@ Auto IRC Bot 3.0: Change Log 3.0 Indev ================================================================== + * Renamed API::IRC::mode() to cmode() * Added mod_init() and mod_void() to API::Std. * Use Class::Unload. * Handle SIGTERM, SIGINT and SIGHUP. diff --git a/src/API/IRC.pm b/src/API/IRC.pm index 81f58d9..89ba04a 100644 --- a/src/API/IRC.pm +++ b/src/API/IRC.pm @@ -31,28 +31,35 @@ sub cpart { } } -# Set a mode -sub mode { +# Set mode(s) on a channel. +sub cmode { my ($svr, $chan, $modes) = @_; Auto::socksnd($svr, "MODE $chan $modes"); } -# Send a PRIVMSG +# Set mode(s) on us. +sub umode { + my ($svr, $modes) = @_; + + +} + +# Send a PRIVMSG. sub privmsg { my ($svr, $target, $message) = @_; Auto::socksnd($svr, "PRIVMSG $target :$message"); } -# Send a NOTICE +# Send a NOTICE. sub notice { my ($svr, $target, $message) = @_; Auto::socksnd($svr, "NOTICE $target :$message"); } -# Quit IRC +# Quit IRC. sub quit { my ($svr, $reason) = @_;