- 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

diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl
index 520e326b743cd2da836b0b1c9c181a83ddc637e2..92eb15c116902d32c086a837e802a1cfe57ae024 100644 (file)
--- 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 985fbacf2c4a6cd9ceec4a3e6c073887a47d2c4c..587b4a97939ea265900a1f687513a2494c6753e8 100644 (file)
--- 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 53db0ce8cf5049fec5d268b0c2e0491b1bd30d09..0c6c4f6fe5f5bfccf7de9d5f8f6618104a4b5dcd 100644 (file)
--- 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 == \$\$ ($$)");