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

Changed on_nick, on_quit, on_part, and on_kick source hashrefs to include server, removing svr.

Browse Source
This commit is contained in:
Matthew Barksdale committed 2011-03-02 17:37:27 -05:00
1 parent 4e0384d645
commit 0e46850a65
4 files changed
+22 -14
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

lib/Core/IRC.pm
+3 -3
View File
@@ -28,12 +28,12 @@ hook_add("on_uprivmsg", "ctcp_version_reply", sub {
# QUIT hook; delete user from chanusers.
hook_add("on_quit", "quit_update_chanusers", sub {
my (($svr, $src, undef)) = @_;
my (($src, undef)) = @_;
my %src = %{ $src };
# Delete the user from all channels.
foreach my $ccu (keys %{ $Proto::IRC::chanusers{$svr} }) {
if (defined $Proto::IRC::chanusers{$svr}{$ccu}{$src{nick}}) { delete $Proto::IRC::chanusers{$svr}{$ccu}{$src{nick}}; }
foreach my $ccu (keys %{ $Proto::IRC::chanusers{$src{svr}}}) {
if (defined $Proto::IRC::chanusers{$src{svr}}{$ccu}{$src{nick}}) { delete $Proto::IRC::chanusers{$src{svr}}{$ccu}{$src{nick}}; }
}
return 1;