From 868ede9718cb77f516e6620a5225347d4e19e468 Mon Sep 17 00:00:00 2001 From: dms Date: Sat, 29 Dec 2001 14:35:21 +0000 Subject: [PATCH] - Fixed: Fork: pid could be undefined. - verstats: added verbose message - verstats: added a few more lesser known/used clients to detection. git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@537 c11ca15a-4712-0410-83d8-924469b57eb5 --- src/CommandStubs.pl | 2 ++ src/IRC/IrcHooks.pl | 11 +++++++++-- src/Shm.pl | 6 ++++++ 3 files changed, 17 insertions(+), 2 deletions(-) diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl index 520e326..92eb15c 100644 --- a/src/CommandStubs.pl +++ b/src/CommandStubs.pl @@ -811,6 +811,8 @@ sub do_verstats { push(@vernicktodo, $_); } + &DEBUG("verstats(30): we have ".scalar(@vernicktodo)." nicks to do"); + &verstats_flush(); } ); diff --git a/src/IRC/IrcHooks.pl b/src/IRC/IrcHooks.pl index 985fbac..587b4a9 100644 --- a/src/IRC/IrcHooks.pl +++ b/src/IRC/IrcHooks.pl @@ -1065,15 +1065,22 @@ sub on_crversion { } 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; diff --git a/src/Shm.pl b/src/Shm.pl index 53db0ce..0c6c4f6 100644 --- a/src/Shm.pl +++ b/src/Shm.pl @@ -99,6 +99,12 @@ sub addForked { &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 == \$\$ ($$)"); -- 2.39.2