From: Dirk Koopman <djk@tobit.co.uk>
Date: Thu, 21 May 2020 16:47:33 +0000 (+0100)
Subject: fix spawn_cmd in Cron so anyone can use it
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=28b69e599fe9672c5ec52332d8dd5649b22c6317;p=spider.git

fix spawn_cmd in Cron so anyone can use it
---

diff --git a/perl/DXCron.pm b/perl/DXCron.pm
index d2a10933..16d27cdd 100644
--- a/perl/DXCron.pm
+++ b/perl/DXCron.pm
@@ -305,7 +305,6 @@ sub spawn_cmd
 				 }
 				 for (@res) {
 					 if (ref $chan) {
-						 dbg("send: $_");
 						 $chan->send($_);
 					 } elsif (isdbg('cron')) {
 						 dbg("$pkg::spawn_cmd: $_");
@@ -316,6 +315,7 @@ sub spawn_cmd
 				 diffms($pkg, "::spawn_cmd", $line, $t0, scalar @res) if isdbg('progress');
 			 }
 			);
+	return ();
 }
 
 # do an rcmd to another cluster from the crontab
diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 3ad8d5c2..79f8eff9 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -937,7 +937,7 @@ sub readinjson
 
 	# $ifh is "global" and should not be closed
 	
-	dbg("DXUser::readinjson $count record headers read from $fn in ". _diffms($ta) . " mS");
+	LogDbg('DXUser',"DXUser::readinjson $count record headers read from $fn in ". _diffms($ta) . " mS");
 	return $totusers = $count;
 }
 
@@ -966,7 +966,7 @@ sub writeoutjson
 	}
 	
 	$ofh->close;
-	dbg("DXUser::writeoutjson $count records written to $ofn in ". _diffms($ta) . " mS");
+	LogDbg('DXUser',"DXUser::writeoutjson $count records written to $ofn in ". _diffms($ta) . " mS");
 	return $count;
 }
 1;