Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

support mentioning nicks in alerts

  • Loading branch information...
commit 325fcb65bc25f662c9cf3f1c351bfb1f5c4a44de 1 parent 2c47b47
@mauke authored
Showing with 6 additions and 2 deletions.
  1. +6 −2 vision.pl
View
8 vision.pl
@@ -16,7 +16,7 @@
use again 'Text::LevenshteinXS' => [];
use again 'Data::Munge' => qw(list2re); BEGIN { Data::Munge->VERSION('0.04') }
-our $VERSION = '0.024';
+our $VERSION = '0.025';
our %IRSSI = (
authors => 'mauke',
@@ -365,6 +365,10 @@ sub report_match {
}eg;
my $msg = "[${\severity_fancy $rule->{severity}}] " . ($channel ? "[\cB$channel\cB] " : "") . "\cB$sender->[0]\cB - $format";
+ if ($rule->{mention}) {
+ my $ext = join ', ', map eval { (Irssi::Script::track_account::nicks_for($server, $_))[0] } || (), @{$rule->{mention}};
+ $msg .= ' @ ' . $ext if $ext;
+ }
if (my $chan = $server->channel_find($out)) {
$chan->command("say $msg");
@@ -608,7 +612,7 @@ sub generic_handler {
my ($arg) = $msg =~ /^([a-zA-Z0-9\[\\\]\^_{|}~]+)\s*\z/
or return $reply->("usage: $cmd ACCOUNT");
my @nicks;
- eval { @nicks = Irssi::Script::track_account::nicks_for $server, $arg };
+ eval { @nicks = Irssi::Script::track_account::nicks_for($server, $arg) };
@nicks = sort @nicks;
$reply->("$arg is on: @nicks");
} elsif ($cmd eq 'rehash') {
Please sign in to comment.
Something went wrong with that request. Please try again.