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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
# $Id: users.pl,v 1.17 2002/07/04 13:18:02 jylefort Exp $
use Irssi 20020121.2020 ();
$VERSION = "1.01";
%IRSSI = (
authors => 'Jean-Yves Lefort',
contact => 'jylefort\@brutele.be, decadix on IRCNet',
name => 'users',
description => 'Adds a /users command similar to /names builtin, but displaying userhost too',
license => 'BSD',
url => 'http://void.adminz.be/irssi.shtml',
changed => '$Date: 2002/07/04 13:18:02 $ ',
);
# usage:
#
# as simple as typing /USERS in a channel window (the list will be
# displayed in a new window)
#
# /format's:
#
# users list header
# $0 channel name
#
# users_nick nick
# $0 is ircop ?
# $1 is channel op / halfop ?
# $2 is voice ?
# $3 nick
# $4 userhost
#
# endofusers end of list
# $0 channel name
# $1 total nick count
# $2 ircop count
# $3 op count
# $4 halfop count
# $5 voice count
# $6 normal count
#
# changes:
#
# 2002-07-04 release 1.01
# * command_bind uses a reference instead of a string
#
# 2002-04-25 release 1.00
# * uses '*' instead of 'S' for IRC operators
#
# 2002-04-12 release 0.13
# * added support for ircops
# * changed theme
#
# 2002-01-28 release 0.12
# * added support for halfops
#
# 2002-01-28 release 0.11
#
# 2002-01-23 initial release
use strict;
sub nick_cmp {
my $mode_cmp = ($_[1]->{op} << 2) + ($_[1]->{halfop} << 1) + $_[1]->{voice}
cmp ($_[0]->{op} << 2) + ($_[0]->{halfop} << 1) + + $_[0]->{voice};
return $mode_cmp ? $mode_cmp : lc $_[0]->{nick} cmp lc $_[1]->{nick};
}
sub users {
my ($args, $server, $item) = @_;
if ($item && $item->{type} eq "CHANNEL") {
Irssi::command('/WINDOW NEW HIDDEN');
my ($window, @nicks) = (Irssi::active_win(), $item->nicks());
my ($serverops, $ops, $halfops, $voices, $normals) = (0, 0, 0, 0, 0);
$window->set_name("U:$item->{name}");
$window->printformat(MSGLEVEL_CRAP, "users", $item->{name});
@nicks = sort { nick_cmp($a, $b) } @nicks;
foreach my $nick (@nicks) {
my ($serverop, $op, $voice, $is_normal) = ('.', '.', '.', 1);
if ($nick->{serverop}) {
$serverop = '*';
$serverops++;
}
if ($nick->{op}) {
$op = '@';
$ops++;
$is_normal = undef;
} elsif ($nick->{halfop}) {
$op = '%';
$halfops++;
$is_normal = undef;
}
if ($nick->{voice}) {
$voice = '+';
$voices++;
$is_normal = undef;
}
$normals++ if ($is_normal);
$window->printformat(MSGLEVEL_CRAP, "users_nick",
$serverop, $op, $voice,
$nick->{nick}, $nick->{host});
}
$window->printformat(MSGLEVEL_CRAP, "endofusers", $item->{name},
$ops + $halfops + $voices + $normals,
$serverops, $ops, $halfops, $voices, $normals);
}
}
Irssi::theme_register([
'users', '{names_users Users {names_channel $0}}',
'users_nick', '{hilight $0$1$2} $[9]3 {nickhost $[50]4}',
'endofusers', '{channel $0}: Total of {hilight $1} nicks {comment {hilight $2} ircops, {hilight $3} ops, {hilight $4} halfops, {hilight $5} voices, {hilight $6} normal}',
]);
Irssi::command_bind("users", \&users);
|
