From c47159802b57da25f6258e784f2b425b52e35e72 Mon Sep 17 00:00:00 2001
From: David Runge <david.runge@frqrec.com>
Date: Fri, 31 Oct 2014 18:55:19 +0100
Subject: irssi: adding used scripts and their autorun symlinks (scriptassist
 is a system symlink!)

---
 .irssi/scripts/bitlbee_blist.pl | 61 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 .irssi/scripts/bitlbee_blist.pl

(limited to '.irssi/scripts/bitlbee_blist.pl')

diff --git a/.irssi/scripts/bitlbee_blist.pl b/.irssi/scripts/bitlbee_blist.pl
new file mode 100644
index 0000000..179b539
--- /dev/null
+++ b/.irssi/scripts/bitlbee_blist.pl
@@ -0,0 +1,61 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '0.4';
+%IRSSI = (
+    authors	=> 'Tijmen "timing" Ruizendaal',
+    contact	=> 'tijmen.ruizendaal@gmail.com',
+    name	=> 'bitlbee_blist',
+    description	=> '/blist <all|online|offline|away> <word>,  greps <word> from blist for bitlbee',
+    license	=> 'GPLv2',
+    url		=> 'http://the-timing.nl/stuff/irssi-bitlbee',
+    changed	=> '2006-10-27',
+);
+
+my $bitlbee_server_tag = "localhost";
+my $bitlbee_channel = "&bitlbee";
+my ($list, $word);
+
+get_channel();
+
+Irssi::signal_add_last 'channel sync' => sub {
+        my( $channel ) = @_;
+        if( $channel->{topic} eq "Welcome to the control channel. Type \x02help\x02 for help information." ){
+                $bitlbee_server_tag = $channel->{server}->{tag};
+                $bitlbee_channel = $channel->{name};
+        }
+};
+
+sub get_channel {
+	my @channels = Irssi::channels();
+	foreach my $channel(@channels) {
+		if ($channel->{topic} eq "Welcome to the control channel. Type \x02help\x02 for help information.") {
+			$bitlbee_channel = $channel->{name};
+			$bitlbee_server_tag = $channel->{server}->{tag};
+			return 1;
+		}
+	}
+	return 0;
+}
+
+sub blist {
+  my ($args, $server, $winit) = @_;
+  ($list, $word) = split(/ /, $args, 2);
+  if (Irssi::active_win->{'active'}->{'name'} eq $bitlbee_channel) {
+    Irssi::active_win()->command("msg $bitlbee_channel blist $list");
+    Irssi::signal_add('event privmsg', 'grep');  
+  } else {
+    print "Only use in $bitlbee_channel.";
+  }
+}
+
+sub grep {
+  my ($server, $data, $nick, $address) = @_;
+  my ($target, $text) = split(/ :/, $data, 2);
+  if ($text =~ /$word/ && $target =~ /$bitlbee_channel/){
+    ##do nothing
+  } else {Irssi::signal_stop();}
+  if ($text =~ /buddies/ && $target =~/$bitlbee_channel/){Irssi::signal_remove('event privmsg', 'grep');} 
+}
+
+Irssi::command_bind('blist','blist');
-- 
cgit v1.2.3-70-g09d2