sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Accept JOIN with or without colon.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-02-15 19:00:18 -07:00
1 parent bad3169336
commit 945edfaf54
1 file changed
+4 -2
Download Patch File Download Diff File Expand all files Collapse all files
lib/Parser/IRC.pm
+4 -2
View File
@@ -298,16 +298,18 @@ sub cjoin
{ {
my ($svr, @ex) = @_; my ($svr, @ex) = @_;
my %src = API::IRC::usrc(substr($ex[0], 1)); my %src = API::IRC::usrc(substr($ex[0], 1));
my $chan = $ex[2];
if ($chan =~ m/^:/xsm) { $chan = substr $chan, 1; }
# Check if this is coming from ourselves. # Check if this is coming from ourselves.
if ($src{nick} eq $botnick{$svr}{nick}) { if ($src{nick} eq $botnick{$svr}{nick}) {
$botchans{$svr}{lc(substr $ex[2], 1)} = 1; $botchans{$svr}{lc(substr $ex[2], 1)} = 1;
API::Std::event_run("on_ucjoin", ($svr, substr($ex[2], 1))); API::Std::event_run("on_ucjoin", ($svr, $chan));
} }
else { else {
# It isn't. Update chanusers and trigger on_rcjoin. # It isn't. Update chanusers and trigger on_rcjoin.
$chanusers{$svr}{lc(substr $ex[2], 1)}{$src{nick}} = 1; $chanusers{$svr}{lc(substr $ex[2], 1)}{$src{nick}} = 1;
API::Std::event_run("on_rcjoin", ($svr, \%src, substr($ex[2], 1))); API::Std::event_run("on_rcjoin", ($svr, \%src, $chan));
} }
return 1; return 1;