From 28b69e599fe9672c5ec52332d8dd5649b22c6317 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Thu, 21 May 2020 17:47:33 +0100
Subject: [PATCH] fix spawn_cmd in Cron so anyone can use it

---
 perl/DXCron.pm | 2 +-
 perl/DXUser.pm | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

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;
-- 
2.34.1