From 82e2d04cdbf60a760087c36c6ce8c78ecdb4b91d Mon Sep 17 00:00:00 2001
From: Andreas Scherbaum <andreas@scherbaum.biz>
Date: Thu, 2 Aug 2012 23:05:45 +0200
Subject: [PATCH] - cleanup _default() a bit

---
 docbot.pl | 30 +++++++++++++++++++-----------
 1 file changed, 19 insertions(+), 11 deletions(-)

diff --git a/docbot.pl b/docbot.pl
index 33f1e7a..444af1c 100755
--- a/docbot.pl
+++ b/docbot.pl
@@ -4135,25 +4135,33 @@ sub on_irc_notice {
 # we registered for all events, this will produce some debug info.
 sub _default {
 
-#foreach my $tmp (@_) {
-#  print "_default: $tmp\n";
-#}
-#exit();
+    #foreach my $tmp (@_) {
+    #    print "_default: $tmp\n";
+    #}
+    #exit();
 
     my ($sender, $event, $args) = @_[SENDER, ARG0 .. $#_];
     my @output = ( "$event: " );
 
-##print "sender:\n" . Dumper($sender) . "\n";
-#print "class: " . $sender . "\n";
-#print "event: " . $event . "\n";
-#exit();
+    ##print "sender:\n" . Dumper($sender) . "\n";
+    #print "class: " . $sender . "\n";
+    #print "event: " . $event . "\n";
+    #exit();
 
-if (substr($event, 0, 1) eq '_') {
-  return;
-}
+    if (substr($event, 0, 1) eq '_') {
+      return;
+    }
 
     my $irc = $sender->get_heap();
+    if (!defined($irc)) {
+        print_msg("No \$irc entry found in _default()", ERROR);
+        death();
+    }
     my $session = find_irc_session($irc);
+    if (!defined($session)) {
+        print_msg("No session found in _default()", ERROR);
+        death();
+    }
 
     set_session_activity($session);
 
-- 
2.39.5