# clear any variables on reconnection.
$nickserv = 0;
+ &DEBUG("on_disconnect: 1");
&clearIRCVars();
+ &DEBUG("on_disconnect: 2");
+
+ if (!defined $self) {
+ &WARN("on_disconnect: self is undefined! WTF");
+ &DEBUG("running function irc... lets hope this works.");
+ &irc();
+ return;
+ }
+
if (!$self->connect()) {
+ &DEBUG("on_disconnect: 3");
&WARN("not connected? help me. gonna call ircCheck() in 60s");
&clearIRCVars();
&ScheduleThis(1, "ircCheck");
-# &ScheduleThis(10, "ircCheck");
-# &ScheduleThis(30, "ircCheck");
}
}
if (defined( my $whojoin = $cache{join}{$chan} )) {
&msg($chan, "Okay, I'm here. (courtesy of $whojoin)");
delete $cache{join}{$chan};
+ &joinNextChan(); # hack.
}
### TODO: move this to &joinchan()?
my ($self, $event) = @_;
my @args = $event->args;
- &DEBUG("on_chanfull: args => @args");
+ &status(">>> chanfull/$b_blue$args[1]$ob");
+
&joinNextChan();
}
my ($self, $event) = @_;
my @args = $event->args;
- &DEBUG("on_inviteonly: args => @args");
+ &status(">>> inviteonly/$b_cyan$args[1]$ob");
+
&joinNextChan();
}
sub on_banned {
my ($self, $event) = @_;
my @args = $event->args;
+ my $chan = $args[1];
+
+ &status(">>> banned/$b_blue$chan$ob $b_cyan$args[0]$ob");
- &DEBUG("on_banned: args => @args");
&joinNextChan();
}
&joinNextChan();
}
+sub on_useronchan {
+ my ($self, $event) = @_;
+ my @args = $event->args;
+
+ &DEBUG("on_useronchan: args => @args");
+ &joinNextChan();
+}
+
1;