63 lines
2.3 KiB
Perl
63 lines
2.3 KiB
Perl
# hideauth.pl
|
|
#
|
|
# Stops eggdrop passwords from showing up in e.g. /msg botnick op password [#channel]
|
|
#
|
|
# Settings:
|
|
# hideauth_commands: space-delimited case-insensitive list of eggdrop commands to filter (e.g. "op voice ident") (can be regexps)
|
|
# hideauth_botsonly: if 1/ON, only hideauth for nicks in the bots list (because "op" is common Dutch word :)
|
|
# hideauth_bots: space-delimited case-insensitive list of botnicks (can be regexps) (e.g. "notopic monicaoff")
|
|
#
|
|
# You can also change the "bot_command" format item:
|
|
# $0 = command (op, ident, etc)
|
|
# $1 = (optional) channel (from "op password #channel")
|
|
# $2 = nick command is sent to
|
|
# My default format is (in case you break it): 'eggdrop command {reason $0 %K****%n$1} sent to {channick_hilight $2}'
|
|
#
|
|
# Thanks to Joost "Garion" Vunderink for advice and testing ^_^
|
|
#
|
|
|
|
use strict;
|
|
use vars qw($VERSION %IRSSI);
|
|
|
|
use Irssi qw(signal_add_first settings_get_str settings_get_bool settings_add_str settings_add_bool signal_stop theme_register);
|
|
|
|
$VERSION = '1.01';
|
|
%IRSSI = (
|
|
authors => 'JamesOff',
|
|
contact => 'james@jamesoff.net',
|
|
name => 'hideauth',
|
|
description => 'Stops eggdrop passwords showing up',
|
|
license => 'Public Domain',
|
|
url => 'http://www.jamesoff.net',
|
|
changed => '04 June 2002 20:56:00',
|
|
);
|
|
|
|
theme_register([
|
|
'bot_command', 'bot command {reason $0 %K****%n$1} sent to {channick_hilight $2}'
|
|
]);
|
|
|
|
|
|
sub intercept_message {
|
|
my ($server, $message, $target, $orig_target) = @_;
|
|
my $commands = settings_get_str('hideauth_commands');
|
|
my $botsOnly = settings_get_bool('hideauth_botsonly');
|
|
my $bots = settings_get_str('hideauth_bots');
|
|
$bots =~ tr/ /|/;
|
|
|
|
#check for bots only and compare target nick
|
|
return if (($botsOnly == 1) && ($target !~ /($bots)/i));
|
|
|
|
#check the first word to see if it's a command
|
|
$commands =~ tr/ /|/;
|
|
if ($message =~ /^($commands) \w+( .+)?/i) {
|
|
#it's a match, it's handle it :)
|
|
my ($command, $dest) = ($1, $2);
|
|
$server->printformat($target, MSGLEVEL_CRAP, 'bot_command', $command, $dest, $target);
|
|
signal_stop();
|
|
}
|
|
}
|
|
|
|
signal_add_first('message own_private', 'intercept_message');
|
|
settings_add_str('misc','hideauth_commands','op voice auth ident identify pass newpass rehash');
|
|
settings_add_bool('misc','hideauth_botsonly',0);
|
|
settings_add_str('misc','hideauth_bots','NickServ');
|