root/lang/perl/irssi/scripts/hilight2skype.pl

use strict;
use warnings;

use Irssi;
use IPC::Run qw(run);

use vars qw($VERSION %IRSSI);
$VERSION = "0.1";
%IRSSI = (
    authors         => 'Masakazu OHTSUKA (mash)',
    name            => 'hilight2skype',
    description     => 'forward hilighted messages to your skype',
    url             => 'http://maaash.jp/',
    changed         => '2008-06-06',
);

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

    my $config = {
        skype_id  => 'your_skype_id',
        script    => "$ENV{HOME}/.irssi/scripts/autorun/hilight2skype/send_chat_message.py",
    };

    my $window = Irssi::active_win();

    if ( $dest->{level} & MSGLEVEL_HILIGHT ) {
        my @cmd = ($config->{script}, $config->{skype_id}, '[irssi '.$dest->{target}.'] '.$stripped);
        run \@cmd;
    }

}

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