@joinchan = &getJoinChans(1);
}
+ # ok, we're free to do whatever we want now. go for it!
+ $running = 1;
+
# unfortunately, Net::IRC does not implement this :(
# invalid command... what is it?
# &rawout("NOTIFY $ident");
# 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()?
### $chan = $reason; # no.
my $count = 0;
- foreach (keys %channels) {
+ foreach (grep !/^_default$/, keys %channels) {
# fixes inconsistent chanstats bug #1.
if (!&IsNickInChan($nick,$_)) {
$count++;
} elsif ($ver =~ /epic|(Third Eye)/i) {
$ver{epic}{$nick} = $ver;
+ } elsif ($ver =~ /ircII|PhoEniX/i) {
+ $ver{ircII}{$nick} = $ver;
+
} elsif ($ver =~ /mirc/i) {
# &DEBUG("verstats: mirc: $nick => '$ver'.");
$ver{mirc}{$nick} = $ver;
+# ok... then we get to the lesser known/used clients.
} elsif ($ver =~ /ircle/i) {
$ver{ircle}{$nick} = $ver;
- } elsif ($ver =~ /ircII|PhoEniX/i) {
- $ver{ircII}{$nick} = $ver;
+ } elsif ($ver =~ /chatzilla/i) {
+ $ver{chatzilla}{$nick} = $ver;
+
+ } elsif ($ver =~ /pirch/i) {
+ $ver{pirch}{$nick} = $ver;
} elsif ($ver =~ /sirc /i) {
$ver{sirc}{$nick} = $ver;
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;