projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add DXCommand::spawn_cmd and convert suitable cmds
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index a3e915a614ebb45e41686a7ef7162f1d4aff6738..10dca5eb265c8bf08a030608d39fea7223f0032d 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-10,7
+10,7
@@
#
#
#
#
-require 5.
004
;
+require 5.
10
;
# make sure that modules are searched in the order local then perl
BEGIN {
# make sure that modules are searched in the order local then perl
BEGIN {
@@
-301,7
+301,7
@@
sub cease
$l->close_server;
}
$l->close_server;
}
- LogDbg('cluster', "DXSpider V$version, build $
subversion.$
build (git: $gitversion) ended");
+ LogDbg('cluster', "DXSpider V$version, build $build (git: $gitversion) ended");
dbg("bye bye everyone - bye bye");
dbgclose();
Logclose();
dbg("bye bye everyone - bye bye");
dbgclose();
Logclose();
@@
-445,7
+445,7
@@
DXXml::init();
# banner
my ($year) = (gmtime)[5];
$year += 1900;
# banner
my ($year) = (gmtime)[5];
$year += 1900;
-LogDbg('cluster', "DXSpider V$version, build $
subversion.$
build (git: $gitversion) started");
+LogDbg('cluster', "DXSpider V$version, build $build (git: $gitversion) started");
dbg("Copyright (c) 1998-$year Dirk Koopman G1TLH");
# load Prefixes
dbg("Copyright (c) 1998-$year Dirk Koopman G1TLH");
# load Prefixes
@@
-591,7
+591,9
@@
$script->run($main::me) if $script;
#open(DB::OUT, "|tee /tmp/aa");
#open(DB::OUT, "|tee /tmp/aa");
-Mojo::IOLoop->start;
+my $main_loop = Mojo::IOLoop->recurring($idle_interval => \&idle_loop);
+
+Mojo::IOLoop->start unless Mojo::IOLoop->is_running;
cease(0);
exit(0);
cease(0);
exit(0);