+# last time this thing was connected
+sub last_connect
+{
+ my $call = uc shift;
+ return $main::systime if DXChannel->get($call);
+ my $user = DXUser->get($call);
+ return $user ? $user->lastin : 0;
+}
+
+# disconnect a locally connected thing
+sub disconnect
+{
+ 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;
+ }
+}
+
+# start a connect process off
+sub start_connect
+{
+ my $call = uc shift;
+ my $lccall = lc $call;
+
+ if (grep {$_->{call} eq $call} @main::outstanding_connects) {
+ dbg('cron', "Connect not started, outstanding connect to $call");
+ return;
+ }
+
+ my $prog = "$main::root/local/client.pl";
+ $prog = "$main::root/perl/client.pl" if ! -e $prog;
+
+ my $pid = fork();
+ if (defined $pid) {
+ if (!$pid) {
+ # in child, unset warnings, disable debugging and general clean up from us
+ $^W = 0;
+ eval "{ package DB; sub DB {} }";
+ $SIG{HUP} = 'IGNORE';
+ alarm(0);
+ DXChannel::closeall();
+ $SIG{CHLD} = $SIG{TERM} = $SIG{INT} = $SIG{__WARN__} = 'DEFAULT';
+ exec $prog, $call, 'connect' or dbg('cron', "exec '$prog' failed $!");
+ }
+ dbg('cron', "connect to $call started");
+ } else {
+ dbg('cron', "can't fork for $prog $!");
+ }
+
+ # coordinate
+ sleep(1);
+}
+
+# spawn any old job off
+sub spawn
+{
+ my $line = shift;
+
+ my $pid = fork();
+ if (defined $pid) {
+ if (!$pid) {
+ # in child, unset warnings, disable debugging and general clean up from us
+ $^W = 0;
+ eval "{ package DB; sub DB {} }";
+ $SIG{HUP} = 'IGNORE';
+ alarm(0);
+ DXChannel::closeall();
+ $SIG{CHLD} = $SIG{TERM} = $SIG{INT} = $SIG{__WARN__} = 'DEFAULT';
+ exec "$line" or dbg('cron', "exec '$line' failed $!");
+ }
+ dbg('cron', "spawn of $line started");
+ } else {
+ dbg('cron', "can't fork for $line $!");
+ }
+
+ # coordinate
+ sleep(1);
+}
+
+# do an rcmd to another cluster from the crontab
+sub rcmd
+{
+ my $call = uc shift;
+ my $line = shift;
+
+ # can we see it? Is it a node?
+ my $noderef = DXCluster->get_exact($call);
+ return if !$noderef || !$noderef->pcversion;
+
+ # send it
+ DXProt::addrcmd($main::mycall, $call, $line);
+}