projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
adjust startup descriptions a bit
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 7c84dbc3d8ecfb83bca0aec339203e0394e01b5b..b45213a71ba4a5dd4f2b18bb43b24c08a2db989d 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-633,9
+633,6
@@
sub setup_start
Filter::init(); # doesn't do much, but has to be done
Filter::init(); # doesn't do much, but has to be done
- AnnTalk::init(); # initialise announce cache
-
-
# look for the sysop and the alias user and complain if they aren't there
{
# look for the sysop and the alias user and complain if they aren't there
{
@@
-727,12
+724,6
@@
sub setup_start
dbg("Read in Aliases");
CmdAlias->init();
dbg("Read in Aliases");
CmdAlias->init();
- # initialise the Geomagnetic data engine
- dbg("Start WWV");
- Geomag->init();
- dbg("Start WCY");
- WCY->init();
-
# initialise the protocol engine
dbg("Start Protocol Engines ...");
DXProt->init();
# initialise the protocol engine
dbg("Start Protocol Engines ...");
DXProt->init();
@@
-741,6
+732,16
@@
sub setup_start
my $script = new Script "startup";
$script->run($main::me) if $script;
my $script = new Script "startup";
$script->run($main::me) if $script;
+
+ # initialise the Geomagnetic data engine
+ dbg("Start WWV system");
+ Geomag->init();
+ dbg("Start WCY system");
+ WCY->init();
+ dbg("Start Announce and Talk system");
+ AnnTalk::init(); # initialise announce cache
+
+
# put in a DXCluster node for us here so we can add users and take them away
$routeroot = Route::Node->new($mycall, $version*100+5300, Route::here($main::me->here)|Route::conf($main::me->conf));
$routeroot->do_pc9x(1);
# put in a DXCluster node for us here so we can add users and take them away
$routeroot = Route::Node->new($mycall, $version*100+5300, Route::here($main::me->here)|Route::conf($main::me->conf));
$routeroot->do_pc9x(1);
@@
-757,24
+758,26
@@
sub setup_start
Spot->init();
# read in any existing message headers and clean out old crap
Spot->init();
# read in any existing message headers and clean out old crap
- dbg("
reading existing messag
e headers ...");
+ dbg("
Reading existing Message/Bulletin
e headers ...");
DXMsg->init();
DXMsg::clean_old();
# read in any cron jobs
DXMsg->init();
DXMsg::clean_old();
# read in any cron jobs
- dbg("
r
eading cron jobs ...");
+ dbg("
R
eading cron jobs ...");
DXCron->init();
# read in database desriptors
DXCron->init();
# read in database desriptors
- dbg("
r
eading database descriptors ...");
+ dbg("
R
eading database descriptors ...");
DXDb::load();
DXDb::load();
- dbg("
s
tarting RBN ...");
+ dbg("
R
tarting RBN ...");
RBN::init();
# starting local stuff
RBN::init();
# starting local stuff
- dbg("
doing local initialisation ...
");
+ dbg("
Starting DXQsl system
");
QSL::init(1);
QSL::init(1);
+
+ dbg("Ooing local initialisations ...");
if (defined &Local::init) {
eval {
Local::init();
if (defined &Local::init) {
eval {
Local::init();
@@
-784,7
+787,7
@@
sub setup_start
# this, such as it is, is the main loop!
# this, such as it is, is the main loop!
- dbg("
o
rft we jolly well go ...");
+ dbg("
O
rft we jolly well go ...");
#open(DB::OUT, "|tee /tmp/aa");
}
#open(DB::OUT, "|tee /tmp/aa");
}
@@
-872,7
+875,7
@@
sub per_minute
sub per_10_minute
{
RBN::per_10_minute();
sub per_10_minute
{
RBN::per_10_minute();
- Route::write_cache();
+ Route::write_cache()
if $save_route_cache
;
}
sub per_hour
}
sub per_hour