Infosatepg.sh

#!/bin/sh
#
# infosatepg.sh - v.0.3
#
# add this lines to your commands.conf:
# folgende zeilen in die commands.conf eintragen:
#
# Run infosatepg                  : /usr/local/bin/infosatepg.sh
# Run infosatepg (inc osd status) : /usr/local/bin/infosatepg.sh -status
#
# Edit the config.pl:
#
# - our $infosaturl="/video/received_data";
# + our $infosaturl="/tmp/received_data";

# CONFIG START
  INFOSAT_OPT="-v"                 # options
  INFOSAT_OUT="/tmp/received_data" # store infosatepg in
  CHANNEL="VIVA"                   # which channel, e.g: <NUM> or <NAME>
  SYMBOL="|"                       # e.g: <|> or <#>
# CONFIG END

PATH=$PATH:/usr/local/bin

if [ "$(ps axc|awk "{if (\$5==\"infosatepg\") print \$1}")" ] ; then
    echo "infosatepg is always running..."
else
    at now <<EOF
    svdrpsend.pl CHAN ${CHANNEL}|grep -e '^250.*'
    if [ ! \$? -eq 0 ] ; then
        sleep 2s
        svdrpsend.pl MESG "switch to ${CHANNEL} failed..."
    else
        mkdir -p "${INFOSAT_OUT}"
        infosatepg ${INFOSAT_OPT} -o "${INFOSAT_OUT}" > "${INFOSAT_OUT}/status" &
        PID=\$!
        until ! ps -p \${PID} >/dev/null ; do
            if [ -s "${INFOSAT_OUT}/status" -a "${1}" ] ; then
                STATUS=\$(gawk '/^[0-9]:/ { gsub("/"," ") ; W4 = W4 + \$4 ; W5 = W5 + \$5 } END { printf "%d\n", W4*100/W5 }' < "${INFOSAT_OUT}/status")
                GAUGE=\$(perl -l -e "printf '${SYMBOL}' x \$((\${STATUS:-0}*2/10))")
                svdrpsend.pl MESG "infosatepg status ~ \${STATUS:-0}% \$(printf "%-21s%-0s\n" "[\${GAUGE:-${SYMBOL}}" "]")"
            fi
            sleep 15s
        done
        svdrpsend.pl MESG "infosatepg done..."
    fi
EOF
fi