html/bitlbee_blist.pl

• package main
  • get_channel
  • blist
  • grep
• EOF

   1 use strict;
   2 use vars qw($VERSION %IRSSI);
   3 
   4 $VERSION = '0.4';
   5 %IRSSI = (
   6     authors	=> 'Tijmen "timing" Ruizendaal',
   7     contact	=> 'tijmen.ruizendaal@gmail.com',
   8     name	=> 'bitlbee_blist',
   9     description	=> '/blist <all|online|offline|away> <word>,  greps <word> from blist for bitlbee',
  10     license	=> 'GPLv2',
  11     url		=> 'http://the-timing.nl/stuff/irssi-bitlbee',
  12     changed	=> '2006-10-27',
  13 );
  14 
  15 my $bitlbee_server_tag = "localhost";
  16 my $bitlbee_channel = "&bitlbee";
  17 my ($list, $word);
  18 
  19 get_channel();
  20 
  21 Irssi::signal_add_last 'channel sync' => sub {
  22         my( $channel ) = @_;
  23         if( $channel->{topic} eq "Welcome to the control channel. Type \x02help\x02 for help information." ){
  24                 $bitlbee_server_tag = $channel->{server}->{tag};
  25                 $bitlbee_channel = $channel->{name};
  26         }
  27 };
  28 
  29 sub get_channel {
  30 	my @channels = Irssi::channels();
  31 	foreach my $channel(@channels) {
  32 		if ($channel->{topic} eq "Welcome to the control channel. Type \x02help\x02 for help information.") {
  33 			$bitlbee_channel = $channel->{name};
  34 			$bitlbee_server_tag = $channel->{server}->{tag};
  35 			return 1;
  36 		}
  37 	}
  38 	return 0;
  39 }
  40 
  41 sub blist {
  42   my ($args, $server, $winit) = @_;
  43   ($list, $word) = split(/ /, $args, 2);
  44   if (Irssi::active_win->{'active'}->{'name'} eq $bitlbee_channel) {
  45     Irssi::active_win()->command("msg $bitlbee_channel blist $list");
  46     Irssi::signal_add('event privmsg', 'grep');  
  47   } else {
  48     print "Only use in $bitlbee_channel.";
  49   }
  50 }
  51 
  52 sub grep {
  53   my ($server, $data, $nick, $address) = @_;
  54   my ($target, $text) = split(/ :/, $data, 2);
  55   if ($text =~ /$word/ && $target =~ /$bitlbee_channel/){
  56     ##do nothing
  57   } else {Irssi::signal_stop();}
  58   if ($text =~ /buddies/ && $target =~/$bitlbee_channel/){Irssi::signal_remove('event privmsg', 'grep');} 
  59 }
  60 
  61 Irssi::command_bind('blist','blist');