improve service file somewhat, add log warning scanner

bin/build_service

@@ -3,7 +3,9 @@
 DOMAIN=$1
 REPLACEME=$(dirname $0)/..
 REPLACEME=$(readlink -f $REPLACEME)
+# Make sure we start it with the *right* perl
+PERL5BIN=$(perl -V:scriptdir | sed -e "s/^scriptdir=//g;s/[';]//g")
 
-sed -e "s|__REPLACEME__|$REPLACEME|g" $REPLACEME/service/tpsgi.tmpl > $REPLACEME/service/tpsgi.service.intermediate
+sed -e "s|__REPLACEME__|$REPLACEME|g;s|__PERL5BIN__|$PERL5BIN|g" $REPLACEME/service/tpsgi.tmpl > $REPLACEME/service/tpsgi.service.intermediate
 sed -e "s|__DOMAIN__|$DOMAIN|g" $REPLACEME/service/tpsgi.service.intermediate > $REPLACEME/service/tpsgi.service
 rm $REPLACEME/service/tpsgi.service.intermediate

bin/scan_log_for_warnings.sh

@@ -0,0 +1,21 @@
+#!/bin/sh
+
+LOG=$(tpsgi-config --custom_log)
+
+if [ -f $LOG ]
+then
+    grep 'starman:' $LOG
+
+touch warnings.log
+FSZ=$(stat --printf "%s" warnings.log)
+grep -oP 'starman:\s+.*' $LOG >> warnings.log
+echo "$(sort < warnings.log | uniq)" > warnings.log
+NEWSZ=$(stat --printf "%s" warnings.log)
+
+if [ $FSZ != $NEWSZ ]
+then
+    echo "New warning from tPSGI, investigate $LOG!"
+    cat warnings.log
+fi
+
+fi

service/tpsgi.tmpl

@@ -9,6 +9,7 @@ WantedBy=multi-user.target
 [Service]
 Type=forking
 PIDFile=__REPLACEME__/run/tpsgi.pid
+Environment=PATH='__PERL5BIN__'
 ExecStart=__REPLACEME__/service/tpsgi.sh
 WorkingDirectory=__REPLACEME__/
 Restart=always