42 lines
1.1 KiB
Perl
42 lines
1.1 KiB
Perl
|
# hilight_notice.pl for irssi
|
||
|
|
#
|
||
|
|
# This script changes the message level for notices to the level used by private
|
||
|
|
# messages. Notices go to the status window by default, so when this script is
|
||
|
|
# loaded, the status window will be hilighted like a query window.
|
||
|
|
#
|
||
|
|
# Based off of active_notice.pl by Geert.
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use Irssi;
|
||
|
|
|
||
|
|
use vars qw($VERSION %IRSSI);
|
||
|
|
|
||
|
|
$VERSION = '1.1';
|
||
|
|
%IRSSI = (
|
||
|
|
authors => 'Matt "f0rked" Sparks',
|
||
|
|
contact => 'ms+irssi@quadpoint.org',
|
||
|
|
name => 'hilight_notice',
|
||
|
|
description => 'hilight status window on notices',
|
||
|
|
license => 'GPLv2',
|
||
|
|
url => 'http://quadpoint.org',
|
||
|
|
changed => '2006-12-15',
|
||
|
|
);
|
||
|
|
|
||
|
|
|
||
|
|
sub hilight_notice
|
||
|
|
{
|
||
|
|
my ($dest, $text, $stripped) = @_;
|
||
|
|
my $server = $dest->{server};
|
||
|
|
|
||
|
|
return if (!$server || !($dest->{level} & MSGLEVEL_NOTICES));
|
||
|
|
|
||
|
|
# Change the message level to level used by PRIVMSGs
|
||
|
|
my $witem = $server->window_item_find($dest->{target});
|
||
|
|
$witem->print($text, MSGLEVEL_MSGS) if $witem;
|
||
|
|
Irssi::print($text, MSGLEVEL_MSGS) if !$witem;
|
||
|
|
Irssi::signal_stop();
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
Irssi::signal_add("print text", "hilight_notice");
|