From acee655335162e3430f5e94bb0e7080046a2be35 Mon Sep 17 00:00:00 2001 From: Doug Freed Date: Sun, 1 Mar 2015 05:24:14 +0400 Subject: ;investigate: mention the user/gecos if it wasn't checked for Instead of "didn't check by gecos field", it'll say "didn't check (realname) by gecos field" for a gecos of "realname". --- config-default/commands.xml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'config-default') diff --git a/config-default/commands.xml b/config-default/commands.xml index 848d48b..41351a1 100644 --- a/config-default/commands.xml +++ b/config-default/commands.xml @@ -179,11 +179,11 @@ my $dbh = $::db->{DBH}; my $mnicks = $dbh->do("SELECT * from $::db->{ACTIONTABLE} WHERE nick like " . $dbh->quote($nick) . ';'); - my $musers = (lc $person->{user} ~~ $::mysql->{ignoredidents}) ? "didn't check" : + my $musers = (lc $person->{user} ~~ $::mysql->{ignoredidents}) ? "didn't check ($person->{user})" : $dbh->do("SELECT * from $::db->{ACTIONTABLE} WHERE user like " . $dbh->quote($person->{user}) . ';'); my $mhosts = $dbh->do("SELECT * from $::db->{ACTIONTABLE} WHERE host like " . $dbh->quote($person->{host}) . ';'); my $maccts = $dbh->do("SELECT * from $::db->{ACTIONTABLE} WHERE account like " . $dbh->quote($person->{account}) . ';'); - my $mgecos = (lc $person->{gecos} ~~ $::mysql->{ignoredgecos}) ? "didn't check" : + my $mgecos = (lc $person->{gecos} ~~ $::mysql->{ignoredgecos}) ? "didn't check ($person->{gecos})" : $dbh->do("SELECT * from $::db->{ACTIONTABLE} WHERE gecos like " . $dbh->quote($person->{gecos}) . ';'); my $ip = ASM::Util->getNickIP($nick); -- cgit v1.2.3