#
#
-require 5.004;
+require 5.10;
# make sure that modules are searched in the order local then perl
BEGIN {
$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();
# 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
#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);