mirror of
https://github.com/irssi/irssi.git
synced 2024-08-25 04:04:18 -04:00
Updated the bundled scripts to their latest version (#143) Removed sb_search.pl which is not contributed into the script archive, I will poke coekie about it.
157 lines
3.3 KiB
Perl
157 lines
3.3 KiB
Perl
# /AUTOOP <*|#channel> [<nickmasks>]
|
|
# use friends.pl if you need more features
|
|
|
|
use Irssi;
|
|
use strict;
|
|
use vars qw($VERSION %IRSSI);
|
|
|
|
$VERSION = "1.10";
|
|
%IRSSI = (
|
|
authors => 'Timo Sirainen & Jostein Kjønigsen',
|
|
name => 'autoop',
|
|
description => 'Simple auto-op script',
|
|
license => 'Public Domain',
|
|
changed => 'Fri Nov 24 12:55 GMT+1 2014'
|
|
);
|
|
|
|
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;
|
|
}
|
|
|
|
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;
|
|
}
|
|
|
|
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");
|
|
}
|
|
}
|
|
|
|
sub autoop {
|
|
my ($channel, $masks, @nicks) = @_;
|
|
my ($server, $nickrec);
|
|
|
|
$server = $channel->{server};
|
|
foreach $nickrec (@nicks) {
|
|
my $nick = $nickrec->{nick};
|
|
my $host = $nickrec->{host};
|
|
|
|
if (!$temp_opped{$nick} &&
|
|
$server->masks_match($masks, $nick, $host)) {
|
|
$channel->command("/op $nick");
|
|
$temp_opped{$nick} = 1;
|
|
}
|
|
}
|
|
}
|
|
|
|
sub event_massjoin {
|
|
my ($channel, $nicks_list) = @_;
|
|
my @nicks = @{$nicks_list};
|
|
|
|
return if (!$channel->{chanop});
|
|
|
|
undef %temp_opped;
|
|
|
|
# channel specific
|
|
my $masks = $opnicks{$channel->{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');
|
|
|
|
sub load_autoops {
|
|
my($file) = Irssi::get_irssi_dir."/autoop";
|
|
my($count) = 0;
|
|
local(*CONF);
|
|
|
|
%opnicks = ();
|
|
open(CONF, "<", "$file") or return;
|
|
while (my $line = <CONF>) {
|
|
if ($line !=~ /^\s*$/) {
|
|
cmd_autoop($line);
|
|
$count++;
|
|
}
|
|
}
|
|
close(CONF);
|
|
|
|
Irssi::print("Loaded $count channels from $file");
|
|
}
|
|
|
|
# --------[ save_autoops ]------------------------------------------------
|
|
|
|
sub save_autoops {
|
|
my($auto) = @_;
|
|
my($file) = Irssi::get_irssi_dir."/autoop";
|
|
my($count) = 0;
|
|
my($channel) = "";
|
|
local(*CONF);
|
|
|
|
return if $auto;
|
|
|
|
open(CONF, ">", "$file");
|
|
foreach $channel (keys %opnicks) {
|
|
my $masks = $opnicks{$channel};
|
|
print CONF "$channel\t$masks\n";
|
|
$count++;
|
|
}
|
|
close(CONF);
|
|
|
|
Irssi::print("Saved $count channels to $file")
|
|
unless $auto;
|
|
}
|
|
|
|
|
|
# --------[ sig_setup_reread ]------------------------------------------
|
|
|
|
# main setup is reread, so let us do it too
|
|
sub sig_setup_reread {
|
|
load_autoops;
|
|
}
|
|
|
|
# --------[ sig_setup_save ]--------------------------------------------
|
|
|
|
# main config is saved, and so we should save too
|
|
sub sig_setup_save {
|
|
my($mainconf,$auto) = @_;
|
|
save_autoops($auto);
|
|
}
|
|
|
|
# persistance
|
|
|
|
Irssi::signal_add('setup saved', 'sig_setup_save');
|
|
Irssi::signal_add('setup reread', 'sig_setup_reread');
|
|
|
|
# ensure we load persisted values on start
|
|
load_autoops;
|