#! / 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