mirror of
https://github.com/pragma-/pbot.git
synced 2024-12-23 03:02:47 +01:00
Update irccloud detection/handling
This commit is contained in:
parent
576783df55
commit
d8803a4c29
@ -747,7 +747,7 @@ sub check_bans {
|
|||||||
{
|
{
|
||||||
$banmask = "\$a:$current_nickserv_account";
|
$banmask = "\$a:$current_nickserv_account";
|
||||||
} else {
|
} else {
|
||||||
if ($host =~ m{^gateway/web/irccloud.com/}) { $banmask = "*!$user\@gateway/web/irccloud.com/*"; }
|
if ($host =~ m{\.irccloud.com$}) { $banmask = "*!$user\@*.irccloud.com"; }
|
||||||
elsif ($host =~ m{^nat/([^/]+)/}) { $banmask = "*!$user\@nat/$1/*"; }
|
elsif ($host =~ m{^nat/([^/]+)/}) { $banmask = "*!$user\@nat/$1/*"; }
|
||||||
else {
|
else {
|
||||||
$banmask = "*!*\@$host";
|
$banmask = "*!*\@$host";
|
||||||
|
@ -281,6 +281,13 @@ sub get_baninfo {
|
|||||||
[ $self->{pbot}->{registry}->get_value('banlist', 'mute_mode_char'), $self->{quietlist} ],
|
[ $self->{pbot}->{registry}->get_value('banlist', 'mute_mode_char'), $self->{quietlist} ],
|
||||||
);
|
);
|
||||||
|
|
||||||
|
my $is_irccloud = $host =~ m{\.irccloud.com$};
|
||||||
|
my $irccloud_uid;
|
||||||
|
|
||||||
|
if ($is_irccloud) {
|
||||||
|
($irccloud_uid) = $user =~ /id(\d+)$/;
|
||||||
|
}
|
||||||
|
|
||||||
foreach my $entry (@lists) {
|
foreach my $entry (@lists) {
|
||||||
my ($mode, $list) = @$entry;
|
my ($mode, $list) = @$entry;
|
||||||
foreach my $banmask ($list->get_keys($channel)) {
|
foreach my $banmask ($list->get_keys($channel)) {
|
||||||
@ -298,9 +305,12 @@ sub get_baninfo {
|
|||||||
$banned = 1 if defined $nickserv and $nickserv eq $ban_nickserv;
|
$banned = 1 if defined $nickserv and $nickserv eq $ban_nickserv;
|
||||||
$banned = 1 if $mask =~ m/^$banmask_regex$/i;
|
$banned = 1 if $mask =~ m/^$banmask_regex$/i;
|
||||||
|
|
||||||
if ($banmask =~ m{\@gateway/web/irccloud.com} and $host =~ m{^gateway/web/irccloud.com}) {
|
# irccloud hosts are disambiguated by the user field which can be uid{N}+ or sid{N}+
|
||||||
|
# where {N}+ are 1 or more integer digits
|
||||||
|
if ($is_irccloud && $banmask =~ m{\@.*\.irccloud.com$}) {
|
||||||
my ($bannick, $banuser, $banhost) = $banmask =~ m/([^!]+)!([^@]+)@(.*)/;
|
my ($bannick, $banuser, $banhost) = $banmask =~ m/([^!]+)!([^@]+)@(.*)/;
|
||||||
$banned = $1 if lc $user eq lc $banuser;
|
my ($banuid) = $banuser =~ /id(\d+)$/;
|
||||||
|
$banned = $1 if $irccloud_uid == $banuid;
|
||||||
}
|
}
|
||||||
|
|
||||||
if ($banned) {
|
if ($banned) {
|
||||||
|
@ -307,8 +307,9 @@ sub add_message_account {
|
|||||||
my $id;
|
my $id;
|
||||||
my ($nick, $user, $host) = $mask =~ m/^([^!]+)!([^@]+)@(.*)/;
|
my ($nick, $user, $host) = $mask =~ m/^([^!]+)!([^@]+)@(.*)/;
|
||||||
|
|
||||||
if (defined $link_id and $link_type == $self->{alias_type}->{STRONG}) { $id = $link_id; }
|
if (defined $link_id and $link_type == $self->{alias_type}->{STRONG}) {
|
||||||
else {
|
$id = $link_id;
|
||||||
|
} else {
|
||||||
$id = $self->get_new_account_id();
|
$id = $self->get_new_account_id();
|
||||||
$self->{pbot}->{logger}->log("Got new account id $id\n");
|
$self->{pbot}->{logger}->log("Got new account id $id\n");
|
||||||
}
|
}
|
||||||
@ -322,7 +323,6 @@ sub add_message_account {
|
|||||||
$sth = $self->{dbh}->prepare('INSERT INTO Accounts VALUES (?, ?, ?)');
|
$sth = $self->{dbh}->prepare('INSERT INTO Accounts VALUES (?, ?, ?)');
|
||||||
$sth->execute($id, $mask, "");
|
$sth->execute($id, $mask, "");
|
||||||
$self->{new_entries}++;
|
$self->{new_entries}++;
|
||||||
|
|
||||||
$self->{pbot}->{logger}->log("Added new account $id for mask $mask\n");
|
$self->{pbot}->{logger}->log("Added new account $id for mask $mask\n");
|
||||||
}
|
}
|
||||||
};
|
};
|
||||||
@ -602,9 +602,10 @@ sub get_message_account {
|
|||||||
return ($rows, 0);
|
return ($rows, 0);
|
||||||
} # end nick-change
|
} # end nick-change
|
||||||
|
|
||||||
if ($host =~ m{^gateway/web/irccloud.com}) {
|
if ($host =~ m{.*\.irccloud.com$}) {
|
||||||
$sth = $self->{dbh}->prepare('SELECT id, hostmask, last_seen FROM Hostmasks WHERE host = ? ORDER BY last_seen DESC');
|
my ($irccloud_uid) = $user =~ /id(\d+)$/;
|
||||||
$sth->execute("gateway/web/irccloud.com/x-$user");
|
$sth = $self->{dbh}->prepare('SELECT id, hostmask, last_seen FROM Hostmasks WHERE host LIKE ? ORDER BY last_seen DESC');
|
||||||
|
$sth->execute("\%id-${irccloud_uid}\%irccloud.com");
|
||||||
my $rows = $sth->fetchall_arrayref({});
|
my $rows = $sth->fetchall_arrayref({});
|
||||||
if (defined $rows->[0]) {
|
if (defined $rows->[0]) {
|
||||||
$self->{pbot}->{logger}->log("5: irccloud match: $rows->[0]->{id}: $rows->[0]->{hostmask}\n");
|
$self->{pbot}->{logger}->log("5: irccloud match: $rows->[0]->{id}: $rows->[0]->{hostmask}\n");
|
||||||
|
@ -25,7 +25,7 @@ use PBot::Imports;
|
|||||||
# These are set by the /misc/update_version script
|
# These are set by the /misc/update_version script
|
||||||
use constant {
|
use constant {
|
||||||
BUILD_NAME => "PBot",
|
BUILD_NAME => "PBot",
|
||||||
BUILD_REVISION => 4600,
|
BUILD_REVISION => 4601,
|
||||||
BUILD_DATE => "2023-01-21",
|
BUILD_DATE => "2023-01-21",
|
||||||
};
|
};
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user