stasikos 07.08.2010 17:11
Скрипты — Хайлайты через notify-send в irssi
Так как кое-где еще не нашлось достаточно пользователей irssi, думаю что здесь ему будет полезнее полежать. :)Благодаря наличию в Irssi поддержки perl-скриптования, можно очень простым
способом, не используя никаких дополнительных модулей или еще чего либо
реализовать довольно-таки удобную функцию уведомления о приватных сообщениях и
хайлайтах через notify-osd, используя приведенный здесь скрипт. Конечно же, вы
можете использовать что угодно вместо notify-osd по вашему желанию, и тогда это
будет лишь небольшим примером того как можно облагородить такой, кажущийся
многим с первого взгляда убогим, IRC-клиент.
Конечно же, это работает только если клиент запущен локально у вас на машине, а
не в screen на удаленном сервере.
P.S. есть бага и не могу пофиксить пока никак:
11:21 Argument "" isn't numeric in subroutine entry at /usr/lib/perl5/Net/DBus/Binding/Iterator.pm line 445.
Я бы приличный кусок кода вынес в отдельную функцию:
sub send_notification()
{
my ($msg, $nick, $target) = @_;
$target ||= "private";
$msg =~ s/</</;
$msg =~ s/>/>/;
$msg =~ s/'/`/g;
my $notify = Desktop::Notify->new();
my $notification = $notify->create(summary =>; "Irssi:$nick <$target>",
body => "$msg",
timeout => $timeout);
$notification->show();
$notification->close();
}
cut