#!/ usr / bin / perl -w -C 厳格な使用; Irssiを使用します。 Irssi :: Ircを使用します。 sub sig_public { 私の@ホスト; my($サーバー、$ msg、$ニック、$アドレス、$ターゲット)= @_; my $ mynick = $ server-> {nick}; ムシャムシャ食べる$; if($ msg =〜m /.*$ mynick。* /) { #notify-osdのさまざまな特殊文字をより理解しやすいものに置き換える $ msg =〜s / </&lt; /; $ msg =〜s /> /&gt; /; $ msg =〜s / '/ `/ g; system( "/ usr / bin / notify-send 'Irssi:$ nick [$ target]' '$ msg'"); } } sub sig_private { my($サーバー、$ msg、$ニック、$アドレス)= @_; system( "/ usr / bin / notify-send 'Irssi:$ nick [private]' '$ msg'"); } Irssi :: signal_add_last( 'message public'、 'sig_public'); Irssi :: signal_add_last( 'メッセージプライベート'、 'sig_private');
もちろん、これはクライアントがマシン上でローカルに実行されている場合にのみ機能し、リモートサーバー上の画面上では機能しません。
PSチャンネルのハイライトに関する二重通知を含むバグを見つけて修正しました。