95 lines
2.7 KiB
Perl
95 lines
2.7 KiB
Perl
|
#CHANGELOG:
|
||
|
|
#
|
||
|
|
#28-11-2004:
|
||
|
|
#it gives a join message in a query if a user joins &bitlbee and you hve a query open with that person.
|
||
|
|
#
|
||
|
|
#/statusbar window add join_notice
|
||
|
|
#use Data::Dumper;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
#use Irssi::TextUI;
|
||
|
|
#use Irssi::Themes;
|
||
|
|
|
||
|
|
use vars qw($VERSION %IRSSI);
|
||
|
|
|
||
|
|
$VERSION = '1.2';
|
||
|
|
%IRSSI = (
|
||
|
|
authors => 'Tijmen "timing" Ruizendaal',
|
||
|
|
contact => 'tijmen.ruizendaal@gmail.com',
|
||
|
|
name => 'BitlBee_join_notice',
|
||
|
|
description => ' 1. Adds an item to the status bar wich shows [joined: <nicks>] when someone is joining &bitlbee.
|
||
|
|
2. Shows join messages in the query.',
|
||
|
|
license => 'GPLv2',
|
||
|
|
url => 'http://the-timing.nl/stuff/irssi-bitlbee',
|
||
|
|
changed => '2006-10-27',
|
||
|
|
);
|
||
|
|
my %online;
|
||
|
|
my %tag;
|
||
|
|
my $bitlbee_channel= "&bitlbee";
|
||
|
|
my $bitlbee_server_tag="localhost";
|
||
|
|
|
||
|
|
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 event_join {
|
||
|
|
my ($server, $channel, $nick, $address) = @_;
|
||
|
|
if ($channel eq ":$bitlbee_channel" && $server->{tag} eq $bitlbee_server_tag){
|
||
|
|
$online{$nick} = 1;
|
||
|
|
Irssi::timeout_remove($tag{$nick});
|
||
|
|
$tag{$nick} = Irssi::timeout_add(7000, 'empty', $nick);
|
||
|
|
Irssi::statusbar_items_redraw('join_notice');
|
||
|
|
my $window = Irssi::window_find_item($nick);
|
||
|
|
if($window){
|
||
|
|
$window->printformat(MSGLEVEL_JOINS, 'join', $nick, $address, $bitlbee_channel);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
sub join_notice {
|
||
|
|
my ($item, $get_size_only) = @_;
|
||
|
|
my $line;
|
||
|
|
foreach my $key (keys(%online) )
|
||
|
|
{
|
||
|
|
$line = $line." ".$key;
|
||
|
|
}
|
||
|
|
if ($line ne "" ){
|
||
|
|
$item->default_handler($get_size_only, "{sb joined:$line}", undef, 1);
|
||
|
|
$line = "";
|
||
|
|
}else{
|
||
|
|
$item->default_handler($get_size_only, "", undef, 1);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
sub empty{
|
||
|
|
my $nick = shift;
|
||
|
|
delete($online{$nick});
|
||
|
|
Irssi::timeout_remove($tag{$nick});
|
||
|
|
Irssi::statusbar_items_redraw('join_notice');
|
||
|
|
}
|
||
|
|
|
||
|
|
Irssi::signal_add("event join", "event_join");
|
||
|
|
Irssi::statusbar_item_register('join_notice', undef, 'join_notice');
|
||
|
|
Irssi::statusbars_recreate_items();
|
||
|
|
Irssi::theme_register([
|
||
|
|
'join', '{channick_hilight $0} {chanhost $1} has joined {channel $2}',
|
||
|
|
]);
|
||
|
|
|
||
|
|
|