sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed a few bugs

Browse Source
This commit is contained in:
Matthew Barksdale committed 2011-03-04 21:28:32 -05:00
1 parent 004c89f416
commit 0b6ed4c0cc
1 file changed
+2 -2
Download Patch File Download Diff File Expand all files Collapse all files
modules/Oper.pm
+2 -2
View File
@@ -19,9 +19,8 @@ sub _init
rchook_add("313", "Oper.on381", \&M::Oper::on_num313) or return 0; rchook_add("313", "Oper.on381", \&M::Oper::on_num313) or return 0;
# Add a hook for when we get numeric 491 (ERR_NOOPERHOST) # Add a hook for when we get numeric 491 (ERR_NOOPERHOST)
rchook_add("491", "Oper.on381", \&M::Oper::on_num491) or return 0; rchook_add("491", "Oper.on381", \&M::Oper::on_num491) or return 0;
foreach (%Auto::SOCKET) { foreach (keys %Auto::SOCKET) {
$opered{$_} = 0; $opered{$_} = 0;
Auto::socksnd($_, "WHOIS ".$Proto::IRC::botnick{$_}{nick});
} }
return 1; return 1;
} }
@@ -41,6 +40,7 @@ sub _void
sub on_connect sub on_connect
{ {
my ($svr) = @_; my ($svr) = @_;
Auto::socksnd("WHOIS ".$Proto::IRC::botinfo{$svr}{nick});
# Get the configuration values. # Get the configuration values.
my $u = (conf_get("server:$svr:oper_username"))[0][0] if conf_get("server:$svr:oper_username"); 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"); my $p = (conf_get("server:$svr:oper_password"))[0][0] if conf_get("server:$svr:oper_password");