1
0
mirror of https://github.com/irssi/irssi.git synced 2024-10-13 05:03:45 -04:00
irssi/scripts/autoop.pl
Timo Sirainen 3a4b358cdf small fix :)
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@626 dbcabf3a-b0e7-0310-adc4-f8d773084564
2000-08-24 01:07:27 +00:00

80 lines
1.7 KiB
Perl

# /AUTOOP <*|#channel> [<nickmasks>]
# For Irssi 0.7.96 and above (older versions had a few bugs)
use Irssi;
my %opnicks, %temp_opped;
sub cmd_autoop {
my ($data) = @_;
my ($channel, $masks) = split(" ", $data, 2);
if ($channel eq "") {
if (!%opnicks) {
Irssi::print("Usage: /AUTOOP <*|#channel> [<nickmasks>]");
Irssi::print("No-one's being auto-opped currently.");
return 1;
}
Irssi::print("Currently auto-opping in channels:");
foreach $channel (keys %opnicks) {
$masks = $opnicks{$channel};
if ($channel eq "*") {
Irssi::print("All channels: $masks");
} else {
Irssi::print("$channel: $masks");
}
}
return 1;
}
if ($masks eq "") {
$masks = "<no-one>";
delete $opnicks{$channel};
} else {
$opnicks{$channel} = $masks;
}
if ($channel eq "*") {
Irssi::print("Now auto-opping in all channels: $masks");
} else {
Irssi::print("$channel: Now auto-opping: $masks");
}
return 1;
}
sub autoop {
my ($channel, $masks, @nicks) = @_;
my $nickrec;
foreach $nickrec (@nicks) {
$nick = $nickrec->values()->{'nick'};
$host = $nickrec->values()->{'host'};
if (!$temp_opped{$nick} &&
Irssi::irc_masks_match($masks, $nick, $host)) {
$channel->command("/op $nick");
$temp_opped{$nick} = 1;
}
}
}
sub event_massjoin {
my ($channel, @nicks) = @_;
return if (!$channel->values()->{'chanop'});
undef %temp_opped;
# channel specific
my $masks = $opnicks{$channel->values()->{'name'}};
autoop($channel, $masks, @nicks) if ($masks);
# for all channels
$masks = $opnicks{"*"};
autoop($channel, $masks, @nicks) if ($masks);
}
Irssi::command_bind('autoop', '', 'cmd_autoop');
Irssi::signal_add_last('massjoin', 'event_massjoin');