diff --git a/doc/CHANGELOG b/doc/CHANGELOG index 6b273b5..736da0e 100644 --- a/doc/CHANGELOG +++ b/doc/CHANGELOG @@ -3,6 +3,7 @@ Auto IRC Bot 3.0: Change Log 3.0 Indev ================================================================== + * Added umode() to API::Std. * Added events on_ucjoin, on_rcjoin and on_nick. * Parse numerics 465, 471-475 and 477. * Added an optional @args onto event_run() for sending @args diff --git a/src/API/IRC.pm b/src/API/IRC.pm index c00260a..c36858d 100644 --- a/src/API/IRC.pm +++ b/src/API/IRC.pm @@ -9,7 +9,7 @@ use warnings; use Exporter; our @ISA = qw(Exporter); -our @EXPORT_OK = qw(cjoin cpart cmode privmsg notice quit nick usrc); +our @EXPORT_OK = qw(cjoin cpart cmode umode privmsg notice quit nick usrc); # Join a channel. @@ -46,7 +46,7 @@ sub umode { my ($svr, $modes) = @_; - + Auto::socksnd($svr, "MODE ".$Parser::IRC::botnick{$svr}." $modes"); } # Send a PRIVMSG.