diff options
| author |   Janik Kleinhoff <ilbelkyr@shalture.org> | 2016-02-14 02:16:13 +0000 |
|---|---|---|
| committer | Janik Kleinhoff <ilbelkyr@shalture.org> | 2016-02-14 02:16:50 +0000 |
| commit | 796c2dc8fa01d74c1ab95390a386a0ce001a913e (patch) | |
| tree | 712d38c38907d2acc7d7a844813a946abbc3839d /lib | |
| parent | 81e6f71199f062a54e6f663f48921c8d763ab4e2 (diff) | |
ASM::Inspect: display proper nick casing (cf b91e545a)
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ASM/Inspect.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/ASM/Inspect.pm b/lib/ASM/Inspect.pm index 363be54..d85d10d 100644 --- a/lib/ASM/Inspect.pm +++ b/lib/ASM/Inspect.pm @@ -78,7 +78,8 @@ sub inspect { my (@dnsbl, @uniq); my ($match, $txtz, $iaddr); my @override = []; - my $nick = ($event->{type} eq 'nick') ? lc $event->{args}->[0] : lc $event->{nick}; + my $displaynick = ($event->{type} eq 'nick') ? $event->{args}->[0] : $event->{nick}; + my $nick = lc $displaynick; my $xresult; return if (index($nick, ".") != -1); if ( $event->{type} eq 'join' ) { @@ -125,13 +126,13 @@ sub inspect { $xresult = $dct{$id}{xresult}; my $nicereason = interpolate($dct{$id}{reason}); if (defined $::db) { - $::db->record($chan, $nick, $event->{user}, $event->{host}, $::sn{lc $nick}->{gecos}, $dct{$id}{risk}, $id, $nicereason); + $::db->record($chan, $displaynick, $event->{user}, $event->{host}, $::sn{lc $nick}->{gecos}, $dct{$id}{risk}, $id, $nicereason); } $txtz = "\x03" . $::RCOLOR{$::RISKS{$dct{$id}{risk}}} . "\u$dct{$id}{risk}\x03 risk threat [\x02$chan\x02] - ". - "\x02$nick\x02 - ${nicereason}; ping "; + "\x02$displaynick\x02 - ${nicereason}; ping "; $txtz = $txtz . ASM::Util->commaAndify(ASM::Util->getAlert($chan, $dct{$id}{risk}, 'hilights')) if (ASM::Util->getAlert($chan, $dct{$id}{risk}, 'hilights')); $txtz = $txtz . ' !att-' . $chan . '-' . $dct{$id}{risk}; - my $uuid = $::log->incident($chan, "$chan: $dct{$id}{risk} risk: $nick - $nicereason\n"); + my $uuid = $::log->incident($chan, "$chan: $dct{$id}{risk} risk: $displaynick - $nicereason\n"); $txtz = $txtz . ' ' . ASM::Shortener->shorturl($::settings->{web}->{detectdir} . $uuid . '.txt'); if ($id eq 'last_measure_regex') { #TODO: Note that this is another example of things that shouldn't be hardcoded, but are. |