From 03929dac2a29664878d2c971648a4fe1fb698462 Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Mon, 15 Apr 2024 22:19:02 +0200
Subject: Adding upstream version 20231031.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 scripts/bitlbee_blist.pl | 77 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 77 insertions(+)
 create mode 100644 scripts/bitlbee_blist.pl

(limited to 'scripts/bitlbee_blist.pl')

diff --git a/scripts/bitlbee_blist.pl b/scripts/bitlbee_blist.pl
new file mode 100644
index 0000000..864001f
--- /dev/null
+++ b/scripts/bitlbee_blist.pl
@@ -0,0 +1,77 @@
+# Changelog
+#
+# 2008-09-13 (v 0.5)
+# Thanks to Olof Johansson the first parm can just be a regexp.
+#
+
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '0.5';
+%IRSSI = (
+		authors	=> 'Tijmen "timing" Ruizendaal',
+		contact	=> 'tijmen.ruizendaal@gmail.com',
+		name	=> 'bitlbee_blist',
+		description	=> '/blist <all|online|offline|away|word> <word>,	greps <word> from blist for bitlbee',
+		license	=> 'GPLv2',
+		url		=> 'http://the-timing.nl/stuff/irssi-bitlbee',
+		changed	=> '2008-09-13', 
+);
+
+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);
+	($word, $list) = ($list, $word) unless $word;
+	$list=lc $list;
+	$word=lc $word;
+	if($list ne "all" && $list ne "online" && $list ne "offline" &&
+		$list ne "away" && $list ne "") {
+		$word=$list;
+		$list="";
+	}
+	if (Irssi::active_win->{'active'}->{'name'} eq $bitlbee_channel) {
+		print "blist $list";
+		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);
+	$text=lc $text;
+	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