mirror of git://git.acid.vegas/archive.git
18 lines
786 B
Perl
18 lines
786 B
Perl
use strict;
|
|
use Irssi;
|
|
|
|
# The /v command will voice everyone in the channel that doesnt have voice or higher (halfop, op, etc).
|
|
|
|
sub cmd_massvoice {
|
|
my ($data, $server, $channel) = @_;
|
|
Irssi::printformat(MSGLEVEL_CRAP, "v: Not connected to server."), return if (!$server or !$server->{connected});
|
|
Irssi::printformat(MSGLEVEL_CRAP, "v: No active channel in window."), return if (!$channel or ($channel->{type} ne "CHANNEL"));
|
|
my @nicks = $channel->nicks();
|
|
my @normal_nicks = grep { $_->{prefixes} !~ /[\~\&\@\%\+]/ } @nicks;
|
|
my @normal_nick_names = map { $_->{nick} } @normal_nicks;
|
|
my $spaced_nicks = join(" ", @normal_nick_names);
|
|
$channel->command("VOICE $spaced_nicks");
|
|
}
|
|
|
|
Irssi::command_bind('v', 'cmd_massvoice');
|