recursor tests: replace awk command by perl

(cherry picked from commit 1bd2b0d8c94eec1a5908256110c5396296646065)

diff --git a/build-scripts/test-recursor b/build-scripts/test-recursor
index b80c7cc7b86c6c8cb37a229c4da5185c09c74e26..0f27b721e1570933060f0c807f973769c4a31b8f 100755 (executable)
--- a/build-scripts/test-recursor
+++ b/build-scripts/test-recursor
@@ -44,6 +44,16 @@ EXIT=0
 ./start.sh
 sleep 3
 svstat configs/*
+## prints the logs of supervised processes reported as running for less than 3 secs
+for config in configs/* ; do
+    secs=$(svstat ${config} | perl -pe 's!.+(\d+) seconds!\1!')
+    if [ -n "${secs}" ] && [ ${secs} -lt 3 ] ; then
+        echo "-----------------"
+        echo "Logs of ${config}"
+        echo "-----------------"
+        cat ${config}/logfile
+    fi
+done
 ./runtests || EXIT=1
 ./stop.sh
 sleep 3