dotfiles

commit 1d26ab5029ec12d7304cb21d60055f16ff74c262
parent 46001dc9f3e931c5bf9b06733709c0a6c10b3134
Author: pyratebeard <root@pyratebeard.net>
Date:   Wed,  3 Jun 2020 20:26:27 +0100

notify script

Diffstat:
A
irssi/.irssi/scripts/autorun/notify.pl
 | 
2
++
A
irssi/.irssi/scripts/notify.pl
 | 
84
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

2 files changed, 86 insertions(+), 0 deletions(-)
diff --git a/irssi/.irssi/scripts/autorun/notify.pl b/irssi/.irssi/scripts/autorun/notify.pl
@@ -0,0 +1 @@
+../notify.pl
+\ No newline at end of file
diff --git a/irssi/.irssi/scripts/notify.pl b/irssi/.irssi/scripts/notify.pl
@@ -0,0 +1,84 @@
+##
+## 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     => 'lewk@csh.rit.edu, stickster@gmail.com',
+    name        => 'notify.pl',
+    description => 'Use D-Bus 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 - " .
+	"notify-send -a irssi -- '" . $summary . "' '". $message . "'";
+    $server->command($cmd);
+
+    my $remote = Irssi::settings_get_str('notify_remote');
+    if ($remote ne '') {
+	my $cmd = "EXEC - ssh -q " . $remote .
+	    "notify-send -a irssi -- '" . $summary . "' '". $message . "'";
+	$server->command($cmd);
+    }
+
+}
+ 
+sub print_text_notify {
+    my ($dest, $text, $stripped) = @_;
+    my $server = $dest->{server};
+    #my $channel = $dest->{channel};
+    return if (!$server || !($dest->{level} & MSGLEVEL_HILIGHT));
+    my $sender = $stripped;
+    $sender =~ s/^\<?(.+?)\>? .*/\1/ ;
+    $stripped =~ s/^.+? +(.*)/\1/ ;
+    notify($server, $sender, $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');
+