projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
new style disconnect
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 87811af8457f11004dc972e114e56d728443d8b2..9e14396b9018ed5a4d1f7e66173e5174113a3636 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-634,6
+634,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 {
@@
-679,9
+681,7
@@
sub per_sec
}
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();
@@
-689,7
+689,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();