X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCron.pm;h=5bb1242283d635e7f11b5161a7178b62950a088a;hb=e674587476599456cce169e02b0e441d985f9dd8;hp=d300779456931861463060bf80ed80779cb5bc58;hpb=85b6ea316f8da5cb0a9fe716bbb5cd17bd2f5fdb;p=spider.git

diff --git a/perl/DXCron.pm b/perl/DXCron.pm
index d3007794..5bb12422 100644
--- a/perl/DXCron.pm
+++ b/perl/DXCron.pm
@@ -225,13 +225,6 @@ sub disconnect
 		} 
 		$dxchan->disconnect;
 	}
-	my $out = grep {$_->{call} eq $call} @main::outstanding_connects;
-	if ($out) {
-		unless ($^O =~ /^MS/i) {
-			kill 'TERM', $out->{pid};
-		}
-		@main::outstanding_connects = grep {$_->{call} ne $call} @main::outstanding_connects;
-	}
 }
 
 # start a connect process off
@@ -240,7 +233,7 @@ sub start_connect
 	my $call = uc shift;
 	my $lccall = lc $call;
 
-	if (grep {$_->{call} eq $call} @main::outstanding_connects) {
+	if (Msg->conns($call)) {
 		dbg('cron', "Connect not started, outstanding connect to $call");
 		return;
 	}