} 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;
&WARN("Fork: looks like we lost '$_', executed $time ago");
my $pid = $forked{$name}{PID};
+ if (!defined $pid) {
+ &WARN("Fork: no pid for $name.");
+ delete $forked{$name};
+ next;
+ }
+
# don't kill parent!
if ($pid == $$) {
&status("Fork: pid == \$\$ ($$)");