From 28b69e599fe9672c5ec52332d8dd5649b22c6317 Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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.43.0