Skip to content

Instantly share code, notes, and snippets.

@baris

baris/irssi_notify.pl

Created January 8, 2013 06:31
Show Gist options
  • Save baris/4481728 to your computer and use it in GitHub Desktop.
Save baris/4481728 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. baris created this gist Jan 8, 2013.
    90 changes: 90 additions & 0 deletions irssi_notify.pl
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,90 @@
    ##
    ## Put me in ~/.irssi/scripts, and then execute the following in irssi:
    ##
    ## /load perl
    ## /script load notify
    ##

    use strict;
    use Irssi;
    use vars qw($VERSION %IRSSI);
    use HTML::Entities;

    $VERSION = "0.5";
    %IRSSI = (
    authors => 'Luke Macken, Paul W. Frields',
    contact => '[email protected], [email protected]',
    name => 'notify.pl',
    # description => 'Use D-Bus to alert user to hilighted messages',
    description => 'Use notify-send to alert user to hilighted messages',
    license => 'GNU General Public License',
    url => 'http://code.google.com/p/irssi-libnotify',
    );

    Irssi::settings_add_str('notify', 'notify_remote', '');

    sub sanitize {
    my ($text) = @_;
    encode_entities($text,'\'<>&');
    my $apos = "&#39;";
    my $aposenc = "\&apos;";
    $text =~ s/$apos/$aposenc/g;
    $text =~ s/"/\\"/g;
    return $text;
    }

    sub notify {
    my ($server, $summary, $message) = @_;

    # Make the message entity-safe
    $summary = sanitize($summary);
    $message = sanitize($message);

    # my $cmd = "EXEC - " .
    # "dbus-send --session /org/irssi/Irssi org.irssi.Irssi.IrssiNotify" .
    # " string:'" . $summary . "'" .
    # " string:'" . $message . "'";
    my $cmd = "EXEC - " . "notify-send '" . $summary . "' '" . $message . "'";
    $server->command($cmd);

    my $remote = Irssi::settings_get_str('notify_remote');
    if ($remote ne '') {
    my $cmd = "EXEC - ssh -q " . $remote .
    " \"dbus-send --session /org/irssi/Irssi org.irssi.Irssi.IrssiNotify" .
    " string:'" . $summary . "'" .
    " string:'" . $message . "'\"";
    $server->command($cmd);
    }

    }

    sub print_text_notify {
    my ($dest, $text, $stripped) = @_;
    my $server = $dest->{server};

    return if (!$server || !($dest->{level} & MSGLEVEL_HILIGHT));
    my $sender = $stripped;
    $sender =~ s/^\<.([^\>]+)\>.+/\1/ ;
    $stripped =~ s/^\<.[^\>]+\>.// ;
    my $summary = $dest->{target} . ": " . $sender;
    notify($server, $summary, $stripped);
    }

    sub message_private_notify {
    my ($server, $msg, $nick, $address) = @_;

    return if (!$server);
    notify($server, "PM from ".$nick, $msg);
    }

    sub dcc_request_notify {
    my ($dcc, $sendaddr) = @_;
    my $server = $dcc->{server};

    return if (!$dcc);
    notify($server, "DCC ".$dcc->{type}." request", $dcc->{nick});
    }

    Irssi::signal_add('print text', 'print_text_notify');
    Irssi::signal_add('message private', 'message_private_notify');
    Irssi::signal_add('dcc request', 'dcc_request_notify');