Added a module allowing you to oper up your bot, this will eventually be expanded upon. In addition, this allows you to call M::Oper::is_opered(server) to check if your Auto instance is an oper on the specified server.

modules/Oper.pm

@@ -0,0 +1,135 @@
+# 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 (%Auto::SOCKET) {
+        $opered{$_} = 0;
+        Auto::socksnd($_, "WHOIS ".$Proto::IRC::botnick{$_}{nick});
+    }
+    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) = @_;
+    # 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: