hilight2im_modified.pl

use strict;
use warnings;

use Glib;

use Irssi;
use Config::Pit;
use WebService::ImKayac;

my $im = WebService::ImKayac->new(
    type => 'secret',
    %{ pit_get('im.kayac') }
);

our $VERSION = '0.1.1';

our %IRSSI = (
    name        => 'hilight2im',
    description => 'notify hilight message to IM via im.kayac.com api, @ttaiyoh modified',
    authors     => 'Daisuke Murase',
);

sub sig_printtext {
    my ($dest, $text, $stripped) = @_;

    if ( $dest->{level} & MSGLEVEL_HILIGHT ) {
        $im->send(sprintf('[irssi] %s %s', $dest->{target}, $stripped));
    }
}

Irssi::signal_add('print text' => \&sig_printtext);