DumpVars2

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

diff --git a/files/sample/blootbot.config b/files/sample/blootbot.config
index 678411306da56483029ee98d0ef45d0c32246d7c..077b173286b939b1254b4201341507c96065982a 100644 (file)
--- a/files/sample/blootbot.config
+++ b/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/src/Modules/DumpVars2.pl b/src/Modules/DumpVars2.pl
index eb814335332d6327ed5a64578120f0c2ce3d71f3..ddff6fae289492aa5b41d18882fda07f3d01eee9 100644 (file)
--- a/src/Modules/DumpVars2.pl
+++ b/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/src/Modules/UserDCC.pl b/src/Modules/UserDCC.pl
index c4db8454639a8405a67148ff3a0581ef95902f37..86812df4c14b921e50cca5218ec8497e67a99d07 100644 (file)
--- a/src/Modules/UserDCC.pl
+++ b/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/src/modules.pl b/src/modules.pl
index 5ab42ea9f081c98318a7f58c1f6ce889cf95be6f..49e324877a7b7bb12a1e7fa241de5c92964844c0 100644 (file)
--- a/src/modules.pl
+++ b/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');
 }