projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
move ::process things back into persec
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 1c7466a8a2a59f18581a1501b0d1304210abd2d4..4e5c157f2a8fd47b79cf0c0e88d531b8df051fee 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-89,6
+89,10
@@
use SysVar;
use strict;
use strict;
+# order here is important - DXDebug snarfs Carp et al so that Mojo errors go into the debug log
+use DXDebug;
+
+use Mojolicious 7.26;
use Mojo::IOLoop;
use Msg;
use Mojo::IOLoop;
use Msg;
@@
-98,7
+102,6
@@
use Listeners;
use ExtMsg;
use AGWConnect;
use AGWMsg;
use ExtMsg;
use AGWConnect;
use AGWMsg;
-use DXDebug;
use DXLog;
use DXLogPrint;
use DXUtil;
use DXLog;
use DXLogPrint;
use DXUtil;
@@
-144,6
+147,8
@@
use DXSql;
use IsoTime;
use BPQMsg;
use IsoTime;
use BPQMsg;
+
+
use Data::Dumper;
use IO::File;
use Fcntl ':flock';
use Data::Dumper;
use IO::File;
use Fcntl ':flock';
@@
-632,6
+637,8
@@
our $io_disconnected;
sub idle_loop
{
BPQMsg::process();
sub idle_loop
{
BPQMsg::process();
+# DXCommandmode::process(); # process ongoing command mode stuff
+# DXProt::process(); # process ongoing ak1a pcxx stuff
if (defined &Local::process) {
eval {
if (defined &Local::process) {
eval {
@@
-675,11
+682,11
@@
sub per_sec
$systime_days = $days;
$systime_daystart = $days * 86400;
}
$systime_days = $days;
$systime_daystart = $days * 86400;
}
+ DXCommandmode::process(); # process ongoing command mode stuff
+ DXProt::process(); # process ongoing ak1a pcxx stuff
IsoTime::update($systime);
DXCron::process(); # do cron jobs
IsoTime::update($systime);
DXCron::process(); # do cron jobs
- DXCommandmode::process(); # process ongoing command mode stuff
DXXml::process();
DXXml::process();
- DXProt::process(); # process ongoing ak1a pcxx stuff
DXConnect::process();
DXMsg::process();
DXDb::process();
DXConnect::process();
DXMsg::process();
DXDb::process();
@@
-687,7
+694,6
@@
sub per_sec
DXDupe::process();
DXCron::process(); # do cron jobs
IsoTime::update($systime);
DXDupe::process();
DXCron::process(); # do cron jobs
IsoTime::update($systime);
- DXProt::process(); # process ongoing ak1a pcxx stuff
DXConnect::process();
DXUser::process();
AGWMsg::process();
DXConnect::process();
DXUser::process();
AGWMsg::process();