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

Send $svr too.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-01-24 19:21:00 -07:00
1 parent 53422a7545
commit c1ab769a58
1 file changed
+4 -4
Download Patch File Download Diff File Expand all files Collapse all files
src/Parser/IRC.pm
+4 -4
View File
@@ -263,11 +263,11 @@ sub cjoin
else {
push(@{ $botchans{$svr} }, substr($ex[2], 1));
}
API::Std::event_run("on_ucjoin", (substr($ex[2], 1)));
API::Std::event_run("on_ucjoin", ($svr, substr($ex[2], 1)));
}
else {
# It isn't. Trigger on_rcjoin.
API::Std::event_run("on_rcjoin", (%src, substr($ex[2], 1)));
API::Std::event_run("on_rcjoin", ($svr, %src, substr($ex[2], 1)));
}
return 1;
@@ -288,7 +288,7 @@ sub nick
}
else {
# It isn't. Trigger on_nick.
API::Std::event_run("on_nick", (%src, $nex));
API::Std::event_run("on_nick", ($svr, %src, $nex));
}
return 1;
@@ -310,7 +310,7 @@ sub topic
push(@argv, $ex[$i]);
}
}
API::Std::event_run("on_topic", (%src, @argv));
API::Std::event_run("on_topic", ($svr, %src, @argv));
}
return 1;