#! / usr / bin / perl -w -C
use strict;
use Irssi;
use Irssi :: Irc;
sub sig_public
{
my @host;
my ($ server, $ msg, $ nick, $ address, $ target) = @_;
my $ mynick = $ server -> {nick};
chomp $ mynick;
if ($ msg = ~ m /. * mynick. * /)
{
# Replacing various special characters with more understandable for notify-osd
$ msg = ~ s / </ & lt; /;
$ msg = ~ s /> / & gt; /;
$ msg = ~ s / '/ `/ g;
system ("/ usr / bin / notify-send 'Irssi: $ nick [$ target]' '$ msg'");
}
}
sub sig_private
{
my ($ server, $ msg, $ nick, $ address) = @_;
system ("/ usr / bin / notify-send 'Irssi: $ nick [private]' '$ msg'");
}
Irssi :: signal_add_last ('message public', 'sig_public');
Irssi :: signal_add_last ('message private', 'sig_private');
Source: https://habr.com/ru/post/90449/
All Articles