### TODO: join key.
if (exists $chanconf{$chan}) {
+ # it's still buggy :/
if (&validChan($chan)) {
&msg($who, "i'm already in \002$chan\002.");
- next;
+# return;
}
&status("invited to $b_blue$chan$ob by $b_cyan$nick$ob");
}
if (grep /^\Q$nick\E$/i, @vernick) {
- &WARN("nick $nick found in vernick; skipping.");
+ &WARN("nick $nick found in vernick ($ver); skipping.");
return;
}
push(@vernick, $nick);
} elsif ($ver =~ /irssi/i) {
$ver{irssi}{$nick} = $ver;
- } elsif ($ver =~ /epic/i) {
+ } elsif ($ver =~ /epic|(Third Eye)/i) {
$ver{epic}{$nick} = $ver;
} elsif ($ver =~ /mirc/i) {
- &DEBUG("verstats: mirc: $nick => '$ver'.");
+# &DEBUG("verstats: mirc: $nick => '$ver'.");
$ver{mirc}{$nick} = $ver;
} elsif ($ver =~ /ircle/i) {
$ver{ircle}{$nick} = $ver;
- } elsif ($ver =~ /ircII/i) {
+ } elsif ($ver =~ /ircII|PhoEniX/i) {
$ver{ircII}{$nick} = $ver;
} elsif ($ver =~ /sirc /i) {
sub miscCheck {
if (@_) {
- &ScheduleThis(240, "miscCheck");
+ &ScheduleThis(120, "miscCheck");
return if ($_[0] eq "2"); # defer.
}
+ # debian check.
+ opendir(DEBIAN, "$bot_state_dir/debian");
+ foreach ( grep /gz$/, readdir(DEBIAN) ) {
+ my $exit = CORE::system("gzip -t $bot_state_dir/debian/$_");
+ next unless ($exit);
+
+ &status("debian: unlinking file => $_");
+ unlink "$bot_state_dir/debian/$_";
+ }
+ closedir DEBIAN;
+
# SHM check.
my @ipcs;
if ( -x "/usr/bin/ipcs") {
return if ($_[0] eq "2"); # defer.
}
- # debian check.
- opendir(DEBIAN, "$bot_state_dir/debian");
- foreach ( grep /gz$/, readdir(DEBIAN) ) {
- my $exit = CORE::system("gzip -t $bot_state_dir/debian/$_");
- next unless ($exit);
-
- &status("debian: unlinking file => $_");
- unlink "$bot_state_dir/debian/$_";
- }
- closedir DEBIAN;
-
# compress logs that should have been compressed.
# todo: use strftime?
my ($day,$month,$year) = (localtime(time()))[3,4,5];