use strict;
use vars qw($VERSION %IRSSI);

use Irssi;
$VERSION = '1';
%IRSSI = (
        authors     => 'Rodrigo Oliveira Lopes',
        contact     => '[email protected]',
        name        => 'gtk-notifica',
        description => 'Notifica os eventos do irssi.',
        url         => 'http://www.irssi.com/',
        license     => 'GNU General Public License',
        changed     => '$Date: 2011-08-14 01:57:00 +0100 (Sat, 14 Agu 2011) $'
);


#--------------------------------------------------------------------
# Mensagem privada.
#--------------------------------------------------------------------

sub priv_msg {
        my ($server,$msg,$nick,$address,$target) = @_;
        system ("notify-send -i gtk-dialog-info -t 300000 -- '".$nick."' '".$msg."'");
}

#--------------------------------------------------------------------
# Mensagens no canal.
#--------------------------------------------------------------------

sub hilight {
    my ($dest, $text, $stripped) = @_;
    if ($dest->{level} & MSGLEVEL_HILIGHT) {
        system ("notify-send -i gtk-dialog-info -t 300000 -- '".$dest->{target}."' '".$stripped."'");
    }
}

#--------------------------------------------------------------------
# Irssi::signal_add_last / Irssi::command_bind
#--------------------------------------------------------------------

Irssi::signal_add_last("message private", "priv_msg");
Irssi::signal_add_last("print text", "hilight");

#- fim