###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
}
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;
}
# 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();
"Rss" => "Rss.pl",
"Search" => "Search.pl",
"slashdot" => "slashdot.pl",
- "symdump" => "DumpVars2.pl",
+ "DumpVars2" => "DumpVars2.pl",
"topic" => "Topic.pl",
"units" => "Units.pl",
"uptime" => "Uptime.pl",
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');
}