projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1. Crossed fingers, got rid of the instabilities caused by execing programs
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 5e5d18f3e65271bf991ee1f05185ebb15f6060e7..fa793f22365ebd6dc66fd8044026d81e57088f68 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-44,6
+44,8
@@
use Prefix;
use Bands;
use Geomag;
use CmdAlias;
use Bands;
use Geomag;
use CmdAlias;
+use Local;
+
use Carp;
package main;
use Carp;
package main;
@@
-141,6
+143,12
@@
sub login
sub cease
{
my $dxchan;
sub cease
{
my $dxchan;
+
+ eval {
+ Local::finish(); # end local processing
+ };
+ dbg('local', "Local::finish error $@") if $@;
+
foreach $dxchan (DXChannel->get_all()) {
disconnect($dxchan) unless $dxchan == $DXProt::me;
}
foreach $dxchan (DXChannel->get_all()) {
disconnect($dxchan) unless $dxchan == $DXProt::me;
}
@@
-261,14
+269,23
@@
DXProt->init();
DXNode->new(0, $mycall, 0, 1, $DXProt::myprot_version);
# read in any existing message headers and clean out old crap
DXNode->new(0, $mycall, 0, 1, $DXProt::myprot_version);
# read in any existing message headers and clean out old crap
-print "reading existing message headers\n";
+print "reading existing message headers
...
\n";
DXMsg->init();
DXMsg::clean_old();
# read in any cron jobs
DXMsg->init();
DXMsg::clean_old();
# read in any cron jobs
-print "reading cron jobs\n";
+print "reading cron jobs
...
\n";
DXCron->init();
DXCron->init();
+# starting local stuff
+print "doing local initialisation ...\n"
+eval {
+ Local::init();
+};
+dbg('local', "Local::init error $@") if $@;
+
+
+
# print various flags
#print "useful info - \$^D: $^D \$^W: $^W \$^S: $^S \$^P: $^P\n";
# print various flags
#print "useful info - \$^D: $^D \$^W: $^W \$^S: $^S \$^P: $^P\n";
@@
-289,6
+306,10
@@
for (;;) {
DXCommandmode::process(); # process ongoing command mode stuff
DXProt::process(); # process ongoing ak1a pcxx stuff
DXConnect::process();
DXCommandmode::process(); # process ongoing command mode stuff
DXProt::process(); # process ongoing ak1a pcxx stuff
DXConnect::process();
+ eval {
+ Local::process(); # do any localised processing
+ };
+ dbg('local', "Local::process error $@") if $@;
}
if ($decease) {
last if --$decease <= 0;
}
if ($decease) {
last if --$decease <= 0;