50 lines
1.9 KiB
Perl
50 lines
1.9 KiB
Perl
# lib/State/IRC.pm - IRC state data.
|
|
# Copyright (C) 2010-2011 Xelhua Development Group, et al.
|
|
# This program is free software; rights to this code are stated in doc/LICENSE.
|
|
package State::IRC;
|
|
use strict;
|
|
use warnings;
|
|
use API::Std qw(hook_add);
|
|
our (%chanusers, %botinfo);
|
|
|
|
# Create on_namesreply hook.
|
|
hook_add('on_namesreply', 'state.irc.names', sub {
|
|
my ($svr, $chan, @data) = @_;
|
|
|
|
# Delete the old chanusers hash if it exists.
|
|
if (defined $chanusers{$svr}{$chan}) { delete $chanusers{$svr}{$chan} }
|
|
# Iterate through each user.
|
|
for (1..$#data) {
|
|
my $fi = 0;
|
|
PFITER: foreach my $spfx (keys %{ $Proto::IRC::csprefix{$svr} }) {
|
|
# Check if the user has status in the channel.
|
|
if (substr($data[$_], 0, 1) eq $Proto::IRC::csprefix{$svr}{$spfx}) {
|
|
# He/she does. Lets set that.
|
|
if (defined $chanusers{$svr}{$chan}{lc $data[$_]}) {
|
|
# If the user has multiple statuses.
|
|
$chanusers{$svr}{$chan}{lc substr $data[$_], 1} = $chanusers{$svr}{$chan}{lc $data[$_]}.$spfx;
|
|
delete $chanusers{$svr}{$chan}{lc $data[$_]};
|
|
}
|
|
else {
|
|
# Or not.
|
|
$chanusers{$svr}{$chan}{lc substr $data[$_], 1} = $spfx;
|
|
}
|
|
$fi = 1;
|
|
$data[$_] = substr $data[$_], 1;
|
|
}
|
|
}
|
|
# Check if there's still a prefix.
|
|
foreach my $spfx (keys %{$Proto::IRC::csprefix{$svr}}) {
|
|
if (substr($data[$_], 0, 1) eq $Proto::IRC::csprefix{$svr}{$spfx}) { goto 'PFITER' }
|
|
}
|
|
# They had status, so go to the next user.
|
|
next if $fi;
|
|
# They didn't, set them as a normal user.
|
|
if (!defined $chanusers{$svr}{$chan}{lc $data[$_]}) {
|
|
$chanusers{$svr}{$chan}{lc $data[$_]} = 1;
|
|
}
|
|
}
|
|
|
|
return 1;
|
|
});
|