From 0b1270abd4b8009c26a2a3b5811598520ab5987c Mon Sep 17 00:00:00 2001 From: David Runge Date: Sun, 1 Feb 2015 21:49:19 +0100 Subject: .irssi: Removing irssi settings from dotfiles repository. --- .irssi/scripts/bitlbee_blist.pl | 61 ----------------------------------------- 1 file changed, 61 deletions(-) delete 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 deleted file mode 100644 index 179b539..0000000 --- a/.irssi/scripts/bitlbee_blist.pl +++ /dev/null @@ -1,61 +0,0 @@ -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 , greps 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-54-g00ecf