added $forkedtime, for debugging

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@57 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/logger.pl b/src/logger.pl
index b8eb4b9aa0c07be6ceb9f02f5da01807f299c8e5..60b434f56b7a45bc0f94ad6295b1a14578e27f61 100644 (file)
--- a/src/logger.pl
+++ b/src/logger.pl
@@ -225,6 +225,7 @@ sub status {
        $status = "!$statcount! ".$input;
        if ($statcount > 1000) {
            print LOG "ERROR: FORKED PROCESS RAN AWAY; KILLING.\n";
+           print LOG "VERB: ".(&Time2String(time() - $forkedtime)."\n";
            exit 0;
        }
     } else {