diff options
author | David Runge <dave@sleepmap.de> | 2015-02-01 21:49:19 +0100 |
---|---|---|
committer | David Runge <dave@sleepmap.de> | 2015-02-01 21:49:19 +0100 |
commit | 0b1270abd4b8009c26a2a3b5811598520ab5987c (patch) | |
tree | 2323f2d7100d139808b67485a99140eb7f612a28 /.irssi/scripts/notify_irssi.pl | |
parent | abf5e5a11a493cca585ca9f64a6cc12ee3ae77ca (diff) | |
download | dotfiles-0b1270abd4b8009c26a2a3b5811598520ab5987c.tar.gz dotfiles-0b1270abd4b8009c26a2a3b5811598520ab5987c.tar.bz2 dotfiles-0b1270abd4b8009c26a2a3b5811598520ab5987c.tar.xz dotfiles-0b1270abd4b8009c26a2a3b5811598520ab5987c.zip |
.irssi: Removing irssi settings from dotfiles repository.
Diffstat (limited to '.irssi/scripts/notify_irssi.pl')
-rw-r--r-- | .irssi/scripts/notify_irssi.pl | 69 |
1 files changed, 0 insertions, 69 deletions
diff --git a/.irssi/scripts/notify_irssi.pl b/.irssi/scripts/notify_irssi.pl deleted file mode 100644 index 90a5f31..0000000 --- a/.irssi/scripts/notify_irssi.pl +++ /dev/null @@ -1,69 +0,0 @@ -#!/usr/bin/perl - -## Put me in ~/.irssi/scripts, and then execute the following in irssi: -## -## /load perl -## /script load notify_irssi.pl -## - -use strict; -use IO::Socket; -use Irssi; -use vars qw($VERSION %IRSSI); - -$VERSION = "0.01"; -%IRSSI = ( - authors => 'konni', - contact => 'konstantin.koslowski@gmail.com', - name => 'notify_irssi.pl', - description => 'TODO', - license => 'GNU General Public License', - url => 'none', -); - -my $divider = ":::"; - -# server, nick, msg, active -sub notify { - my $sock = new IO::Socket::INET ( - PeerAddr => '127.0.0.1', - PeerPort => '7090', - Proto => 'tcp', - ); - - if ($sock) { - my($server, $nick, $msg, $active) = @_; - print $sock $server,$divider,"$nick",$divider,"$msg",$divider,$active; - } -} - -sub notify_message { - my($dest, $msg, $nick, $address, $target) = @_; - my $server = $dest->{server}; - - my $active_win = Irssi::active_win(); - my $active = 0; - if ($active_win->get_active_name() eq $nick) { - $active = 1; - } - # return if ($active); - - notify($server, $nick, $msg, $active); -} - -sub notify_print { - my ($dest, $text, $msg) = @_; - my $server = $dest->{server}; - my $nick = $dest->{target}; - - return if (!$server || !($dest->{level} & MSGLEVEL_HILIGHT)); - - $msg =~ s/[^a-zA-Z0-9 .,!?\@:\>]//g; - - notify($server, $nick, $msg, 0); -} - -Irssi::signal_add("message private", "notify_message"); -Irssi::signal_add("message invite", "notify_message"); -Irssi::signal_add("print text", "notify_print"); -#Irssi::signal_add("dcc request", "notify"); |