1
0
mirror of https://github.com/irssi/irssi.git synced 2024-10-06 04:53:38 -04:00
irssi/scripts/autorejoin.pl
2000-04-28 11:00:53 +00:00

23 lines
653 B
Perl

# automatically rejoin to channel after kicked
# NOTE: I personally don't like this feature, in most channels I'm in it
# will just result as ban. You've probably misunderstood the idea of /KICK
# if you kick/get kicked all the time "just for fun" ...
use Irssi;
sub event_rejoin_kick {
my ($data, $server) = @_;
my ($channel, $nick) = split(/ +/, $data);
return if ($server->values()->{'nick'} ne $nick);
# check if channel has password
$chanrec = $server->channel_find($channel);
$password = $chanrec->values()->{'key'} if ($chanrec);
$server->send_raw("JOIN $channel $password");
}
Irssi::signal_add('event kick', 'event_rejoin_kick');