projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
rename setmode for freebsd
[spider.git]
/
perl
/
DXCron.pm
diff --git
a/perl/DXCron.pm
b/perl/DXCron.pm
index 5bb1242283d635e7f11b5161a7178b62950a088a..42dbe2a5d6053d951db5cff878df0e8cae8e6652 100644
(file)
--- a/
perl/DXCron.pm
+++ b/
perl/DXCron.pm
@@
-217,14
+217,7
@@
sub disconnect
{
my $call = uc shift;
my $dxchan = DXChannel->get($call);
{
my $call = uc shift;
my $dxchan = DXChannel->get($call);
- if ($dxchan) {
- if ($dxchan->is_ak1a) {
- $dxchan->send_now("D", DXProt::pc39($main::mycall, "$main::mycall DXCron"));
- } else {
- $dxchan->send_now('D', "");
- }
- $dxchan->disconnect;
- }
+ $dxchan->disconnect if $dxchan;
}
# start a connect process off
}
# start a connect process off
@@
-255,14
+248,14
@@
sub spawn
# in child, unset warnings, disable debugging and general clean up from us
$^W = 0;
eval "{ package DB; sub DB {} }";
# in child, unset warnings, disable debugging and general clean up from us
$^W = 0;
eval "{ package DB; sub DB {} }";
- alarm(0);
DXChannel::closeall();
for (@main::listeners) {
$_->close_server;
}
DXChannel::closeall();
for (@main::listeners) {
$_->close_server;
}
- unless ($
^O =~ /^MS/
) {
+ unless ($
main::is_win
) {
$SIG{HUP} = 'IGNORE';
$SIG{CHLD} = $SIG{TERM} = $SIG{INT} = $SIG{__WARN__} = 'DEFAULT';
$SIG{HUP} = 'IGNORE';
$SIG{CHLD} = $SIG{TERM} = $SIG{INT} = $SIG{__WARN__} = 'DEFAULT';
+ alarm(0);
}
exec "$line" or dbg('cron', "exec '$line' failed $!");
}
}
exec "$line" or dbg('cron', "exec '$line' failed $!");
}