# 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::TextUI;

use vars qw($VERSION %IRSSI);

$VERSION = '1.1';
%IRSSI = (
    authors     => 'Matt "f0rked" Sparks',
    contact     => 'root@f0rked.com',
    name        => 'hilight_notice',
    description => 'hilight status window on notices',
    license     => 'GPLv2',
    url         => 'http://f0rked.com',
    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');