From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 23 Nov 2004 05:34:07 +0000 (+0000)
Subject: DumpVars2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a36f9864284b13aff91e0b2b6ffdbce8d1764831;p=infobot.git

DumpVars2


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

diff --git a/blootbot/files/sample/blootbot.config b/blootbot/files/sample/blootbot.config
index 6784113..077b173 100644
--- a/blootbot/files/sample/blootbot.config
+++ b/blootbot/files/sample/blootbot.config
@@ -301,6 +301,9 @@ set useStrict		1
 ###set dumpvarsAtExit	1
 # log to specific file or global log file.
 ###set dumpvarsLogFile	dumpvars.log
+# more debugging
+###set DumpVars2		1
+###set symdumpLogFile	log/dumpvars2.log
 
 # [str] Interface: [IRC/CLI]
 #   IRC		-- Internet Relay Chat
diff --git a/blootbot/src/Modules/DumpVars2.pl b/blootbot/src/Modules/DumpVars2.pl
index eb81433..ddff6fa 100644
--- a/blootbot/src/Modules/DumpVars2.pl
+++ b/blootbot/src/Modules/DumpVars2.pl
@@ -42,21 +42,21 @@ sub symdumpRecur {
 }
 
 sub symdumpAllFile {
-    &DEBUG("before open");
-    if (&IsParam("symdumpLogFile")) {
+    &DEBUG('before open');
+    if (&IsParam('symdumpLogFile')) {
 	my $file = $param{'symdumpLogFile'};
 	&status("opening fh to symdump ($file)");
 	if (!open(SYMDUMP,">$file")) {
-	    &ERROR("cannot open dumpvars.");
+	    &ERROR('cannot open dumpvars.');
 	    return;
 	}
     }
-    &DEBUG("after open");
+    &DEBUG('after open');
 
     symdumpAll();
 
     if (fileno SYMDUMP) {
-	&status("closing fh to symdump");
+	&status('closing fh to symdump');
 	close SYMDUMP;
     }
 
diff --git a/blootbot/src/Modules/UserDCC.pl b/blootbot/src/Modules/UserDCC.pl
index c4db845..86812df 100644
--- a/blootbot/src/Modules/UserDCC.pl
+++ b/blootbot/src/Modules/UserDCC.pl
@@ -125,8 +125,8 @@ sub userDCC {
 
     # dump variables ][.
     if ($message =~ /^symdump$/i) {
-	return unless (&hasFlag("o"));
-	return unless (&IsParam("symdump"));
+	return unless (&hasFlag('o'));
+	return unless (&IsParam('DumpVars2'));
 
 	&status("Dumping all variables...");
 	&symdumpAllFile();
diff --git a/blootbot/src/modules.pl b/blootbot/src/modules.pl
index 5ab42ea..49e3248 100644
--- a/blootbot/src/modules.pl
+++ b/blootbot/src/modules.pl
@@ -46,7 +46,7 @@ if ($@) {
 	"Rss"		=> "Rss.pl",
 	"Search"	=> "Search.pl",
 	"slashdot"	=> "slashdot.pl",
-	"symdump"	=> "DumpVars2.pl",
+	"DumpVars2"	=> "DumpVars2.pl",
 	"topic"		=> "Topic.pl",
 	"units"		=> "Units.pl",
 	"uptime"	=> "Uptime.pl",
@@ -64,7 +64,7 @@ if ($@) {
 my @myModulesLoadNow;
 my @myModulesReloadNot;
 BEGIN {
-    @myModulesLoadNow	= ('topic', 'uptime', 'News', 'RootWarn', 'symdump', 'botmail');
+    @myModulesLoadNow	= ('topic', 'uptime', 'News', 'RootWarn', 'DumpVars2', 'botmail');
     @myModulesReloadNot	= ('IRC/Irc.pl','IRC/Schedulers.pl');
 }