mirror of git://git.acid.vegas/archive.git
32 lines
869 B
Perl
32 lines
869 B
Perl
use strict;
|
|
use Irssi;
|
|
use Irssi::Irc;
|
|
|
|
our $VERSION = '1.0';
|
|
our %IRSSI = (
|
|
authors => 'acidvegas',
|
|
contact => 'acidvegas@supernets.org',
|
|
name => 'Limit',
|
|
description => 'A script to limit channel users in a timed interval with timer.pl usage.',
|
|
license => 'ISC',
|
|
url => 'https://github.com/acidvegas/irssi',
|
|
);
|
|
|
|
sub limit {
|
|
my ($data, $server, $channel) = @_;
|
|
my @nicklist = $channel->nicks();
|
|
my $totalnicks = scalar @nicklist;
|
|
my $limit_num = $totalnicks + 10;
|
|
$channel->command("mode +l $limit_num");
|
|
}
|
|
|
|
sub cslimit {
|
|
my ($data, $server, $channel) = @_;
|
|
my @nicklist = $channel->nicks();
|
|
my $totalnicks = scalar @nicklist;
|
|
my $limit_num = $totalnicks + 10;
|
|
$channel->command("msg chanserv mode $channel->{name} lock add +l $limit_num");
|
|
}
|
|
|
|
Irssi::command_bind('limit', 'limit');
|
|
Irssi::command_bind('cslimit', 'cslimit'); |