From 548637b592aa616e93aad9464aa2b4edf6e9f5b9 Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sun, 28 Jan 2001 13:14:34 +0000
Subject: [PATCH] - if core moduels fail to load, exit out properly.

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@256 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/modules.pl | 21 ++++++++++++++++++---
 1 file changed, 18 insertions(+), 3 deletions(-)

diff --git a/src/modules.pl b/src/modules.pl
index 3c52c0f..ef18cbb 100644
--- a/src/modules.pl
+++ b/src/modules.pl
@@ -64,7 +64,9 @@ sub loadCoreModules {
 	### TODO: use eval and exit gracefully?
 	eval "require \"$mod\"";
 	if ($@) {
-	    &WARN("lCM => $@");
+	    &ERROR("lCM => $@");
+	    &shutdown();
+	    exit 1;
 	}
 
 	$moduleAge{$mod} = (stat $mod)[9];
@@ -129,6 +131,7 @@ sub loadFactoidsModules {
 	eval "require \"$mod\"";
 	if ($@) {
 	    &WARN("lFM: $@");
+	    exit 1;
 	}
 
 	$moduleAge{$mod} = (stat $mod)[9];
@@ -176,11 +179,23 @@ sub loadMyModulesNow {
     &status("Loading MyModules...");
     foreach (@myModulesLoadNow) {
 	$total++;
+	if (!defined $_) {
+	    &WARN("mMLN: null element.");
+	    next;
+	}
+
+	&DEBUG("_ => $_");
+
+	if (!&IsParam($_) and !&IsChanConf($_)) {
+	    if (exists $myModules{$_}) {
+		&DEBUG("myModule: $myModules{$_} (1) not loaded.");
+	    } else {
+		&DEBUG("myModule: $_ (2) not loaded.");
+	    }
 
-	if (!exists $param{$_}) {
-	    &DEBUG("myModule: $myModules{$_} not loaded.");
 	    next;
 	}
+
 	&loadMyModule($myModules{$_});
 	$loaded++;
     }
-- 
2.39.5