hilight-spammer.pl

use strict;
use warnings;
use Irssi;

our $win_name = "&\@hilight_test";
our $win;

sub hilight {
    if($win) {
        $win->print("%Ytest hilight%n", MSGLEVEL_HILIGHT|MSGLEVEL_PUBLIC|MSGLEVEL_MSGS);
    }
}

sub create_win {
    $win = Irssi::window_find_name($win_name);
    if($win) {
        return 0;
    }

    $win = Irssi::Windowitem::window_create($win_name, 1);
    if(not $win) {
        Irssi::print("Failed to create window '$win_name'", "error");
        return 1;
    }

    $win->set_name($win_name);

    return 0;
}

if(create_win() != 0) {
    return 1;
}

Irssi::timeout_add(2000, \&hilight, undef);