Show contents of OK message from yarrg upload server

diff --git a/yarrg/commod-results-processor b/yarrg/commod-results-processor
index f9fdedfa5f6c0c5419ccf826b10db106aa9cfaea..bb0724d0d81e0c26204152879d45f605a7b64c1e 100755 (executable)
--- a/yarrg/commod-results-processor
+++ b/yarrg/commod-results-processor
@@ -449,6 +449,8 @@ sub main__uploadyarrg () {
 
     my $respcontent= yarrgpostform($ua, \%o);
     $respcontent =~ m/^OK\b/ or die "$respcontent ?";
+    $respcontent =~ s/^/ /mg;
+    print $respcontent,"\n";
 }
 
 sub main__uploadpctb () {