archive

- Random tools & helpful resources for IRC
git clone git://git.acid.vegas/archive.git
limit.pl (869B)
      1 use strict;
      2 use Irssi;
      3 use Irssi::Irc;
      4 
      5 our $VERSION = '1.0';
      6 our %IRSSI = (
      7 	authors     => 'acidvegas',
      8 	contact     => 'acidvegas@supernets.org',
      9 	name        => 'Limit',
     10 	description => 'A script to limit channel users in a timed interval with timer.pl usage.',
     11 	license     => 'ISC',
     12 	url         => 'https://github.com/acidvegas/irssi',
     13 );
     14 
     15 sub limit {
     16 	my ($data, $server, $channel) = @_;
     17 	my @nicklist = $channel->nicks();
     18 	my $totalnicks = scalar @nicklist;
     19 	my $limit_num = $totalnicks + 10;
     20 	$channel->command("mode +l $limit_num");
     21 }
     22 
     23 sub cslimit {
     24 	my ($data, $server, $channel) = @_;
     25 	my @nicklist = $channel->nicks();
     26 	my $totalnicks = scalar @nicklist;
     27 	my $limit_num = $totalnicks + 10;
     28 	$channel->command("msg chanserv mode $channel->{name} lock add +l $limit_num");
     29 }
     30 
     31 Irssi::command_bind('limit', 'limit');
     32 Irssi::command_bind('cslimit', 'cslimit');