1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
#CHANGELOG:
#
# 25-08-2009 (2.1)
# * externalize some utilities in im_utils.pm
#
#17-08-2009:
#modified so it works with minbif too
#
#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 strict;
use Irssi::TextUI;
require "im_utils.pm";
use vars qw($VERSION %IRSSI);
$VERSION = '2.1';
%IRSSI = (
authors => 'Tijmen "timing" Ruizendaal, Sébastien Delafond',
contact => 'tijmen.ruizendaal@gmail.com, seb@debian.org',
name => 'IM_join_notice',
description => ' 1. Adds an item to the status bar wich shows [joined: <nicks>] when someone is joining on IM.
2. Shows join messages in the query.',
license => 'GPLv2',
url => 'http://symlink.me/repositories/show/minbif/scripts/irssi',
changed => '2009-08-25',
);
my %online;
my %tag;
my @control_channels;
&set_local_channels();
sub set_local_channels {
@control_channels = @{&ImUtils::get_channels()};
}
sub event_join {
my ($server, $channel, $nick, $address) = @_;
# print("Looking at join for: $server, $channel, $nick, $address");
if (ImUtils::is_im($server, $channel, \@control_channels)) {
$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, $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::signal_add_last('channel sync', "set_local_channels");
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}',
]);
|
