/usr/share/irssi/scripts/autolimit.pl is in irssi-scripts 20170711.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | use strict;
use Irssi 20010920.0000 ();
use vars qw($VERSION %IRSSI);
$VERSION = "1.00";
%IRSSI = (
authors => 'David Leadbeater',
contact => 'dgl@dgl.cx',
name => 'autolimit',
description => 'does an autolimit for a channel, set variables in the script',
license => 'GNU GPLv2 or later',
url => 'http://irssi.dgl.cx/',
);
# Change these!
my $channel = "#channel";
my $offset = 5;
my $tolerence = 2;
my $time = 60;
sub checklimit {
my $c = Irssi::channel_find($channel);
return unless ref $c;
return unless $c->{chanop};
my $users = scalar @{[$c->nicks]};
if(($c->{limit} <= ($users+$offset-$tolerence)) ||
($c->{limit} > ($users+$offset+$tolerence))) {
$c->{server}->send_raw("MODE $channel +l " . ($users+$offset));
}
}
Irssi::timeout_add($time * 1000, 'checklimit','');
|