136 lines
3.3 KiB
Perl
136 lines
3.3 KiB
Perl
# Module: Oper.
|
|
# Copyright (C) 2010-2011 Xelhua Development Group, et al.
|
|
# This program is free software; rights to this code are stated in doc/LICENSE.
|
|
package M::Oper;
|
|
use strict;
|
|
use warnings;
|
|
use API::Std qw(hook_add hook_del rchook_add rchook_del conf_get);
|
|
use API::Log qw(alog);
|
|
my %opered = ();
|
|
|
|
# Initialization subroutine.
|
|
sub _init
|
|
{
|
|
# Add a hook for when we join a channel.
|
|
hook_add("on_connect", "Oper.onconnect", \&M::Oper::on_connect) or return 0;
|
|
# Add a hook for when we get numeric 381 (RPL_YOUREOPER)
|
|
rchook_add("381", "Oper.on381", \&M::Oper::on_num381) or return 0;
|
|
# Add a hook for when we get numeric 313 (RPL_WHOISOPERATOR)
|
|
rchook_add("313", "Oper.on381", \&M::Oper::on_num313) or return 0;
|
|
# Add a hook for when we get numeric 491 (ERR_NOOPERHOST)
|
|
rchook_add("491", "Oper.on381", \&M::Oper::on_num491) or return 0;
|
|
foreach (keys %Auto::SOCKET) {
|
|
$opered{$_} = 0;
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
# Void subroutine.
|
|
sub _void
|
|
{
|
|
# Delete the hooks.
|
|
hook_del("on_connect", "Oper.onconnect") or return 0;
|
|
rchook_del("381", "Oper.on381") or return 0;
|
|
rchook_del("313", "Oper.on313") or return 0;
|
|
rchook_del("491", "Oper.on491") or return 0;
|
|
return 1;
|
|
}
|
|
|
|
# On connect subroutine.
|
|
sub on_connect
|
|
{
|
|
my ($svr) = @_;
|
|
Auto::socksnd("WHOIS ".$Proto::IRC::botinfo{$svr}{nick});
|
|
# Get the configuration values.
|
|
my $u = (conf_get("server:$svr:oper_username"))[0][0] if conf_get("server:$svr:oper_username");
|
|
my $p = (conf_get("server:$svr:oper_password"))[0][0] if conf_get("server:$svr:oper_password");
|
|
# They don't exist - don't continue.
|
|
return if !$u or !$p;
|
|
# Send the OPER command.
|
|
Auto::socksnd($svr, "OPER $u $p");
|
|
return 1;
|
|
}
|
|
|
|
# On 313 subroutine
|
|
sub on_num313 {
|
|
my ($svr, @ex) = @_;
|
|
# It's us - set ourselves as opered.
|
|
$opered{$svr} = 1 if $ex[3] eq $Proto::IRC::botinfo{$svr}{nick};
|
|
return 1;
|
|
}
|
|
|
|
# On 381 subroutine
|
|
sub on_num381 {
|
|
my ($svr, @ex) = @_;
|
|
# We just opered.
|
|
$opered{$svr} = 1;
|
|
return 1;
|
|
}
|
|
|
|
# On 491 subroutine
|
|
sub on_num491 {
|
|
my ($svr, @ex) = @_;
|
|
my $reason = join ' ', @ex[3 .. $#ex];
|
|
$reason =~ s/://xsm;
|
|
alog("FAILED OPER on ".$svr.": ".$reason);
|
|
return 1;
|
|
}
|
|
|
|
# A subroutine to check if Auto is opered on a server
|
|
sub is_opered {
|
|
my ($svr) = @_;
|
|
# Auto is not opered.
|
|
return 0 if !$opered{$svr};
|
|
# Auto is opered.
|
|
return 1 if $opered{$svr};
|
|
return;
|
|
}
|
|
|
|
# Start initialization.
|
|
API::Std::mod_init('Oper', 'Xelhua', '1.00', '3.0.0a7', __PACKAGE__);
|
|
# build: perl=5.010000
|
|
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
Oper - Auto oper-on-connect module.
|
|
|
|
=head1 VERSION
|
|
|
|
1.00
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
No commands are currently associated with Oper.
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This module adds the ability for Auto to oper on networks he is
|
|
configured to do so on.
|
|
|
|
=head1 INSTALL
|
|
|
|
Before using Oper, add the following to the server block in your
|
|
configuration file, only for servers you wish for Auto to oper on
|
|
though:
|
|
|
|
oper_username <username>;
|
|
oper_password <password>;
|
|
|
|
=head1 AUTHOR
|
|
|
|
This module was written by Matthew Barksdale.
|
|
|
|
This module is maintained by Xelhua Development Group.
|
|
|
|
=head1 LICENSE AND COPYRIGHT
|
|
|
|
This module is Copyright 2010-2011 Xelhua Development Group.
|
|
|
|
Released under the same licensing terms as Auto itself.
|
|
|
|
=cut
|
|
|
|
# vim: set ai et sw=4 ts=4:
|