projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added new debugging to daily file logging
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index d20b539c5b01447d5edc8d796752c13685e35904..4c65e86858acb7c7711152562579c06d0384276f 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-18,10
+18,15
@@
BEGIN {
unshift @INC, "$root/perl"; # this IS the right way round!
unshift @INC, "$root/local";
unshift @INC, "$root/perl"; # this IS the right way round!
unshift @INC, "$root/local";
+
+# require Exporter;
+# $Exporter::Verbose = 1;
}
use Msg;
use DXVars;
}
use Msg;
use DXVars;
+use DXDebug;
+use DXLog;
use DXUtil;
use DXChannel;
use DXUser;
use DXUtil;
use DXChannel;
use DXUser;
@@
-30,7
+35,6
@@
use DXCommandmode;
use DXProt;
use DXMsg;
use DXCluster;
use DXProt;
use DXMsg;
use DXCluster;
-use DXDebug;
use DXCron;
use DXConnect;
use Prefix;
use DXCron;
use DXConnect;
use Prefix;
@@
-167,7
+171,6
@@
sub process_inqueue
#############################################################
# open the debug file, set various FHs to be unbuffered
#############################################################
# open the debug file, set various FHs to be unbuffered
-dbginit($debugfn);
foreach (@debug) {
dbgadd($_);
}
foreach (@debug) {
dbgadd($_);
}