xwords/xwords4/relay/scripts/showinplay.sh

#!/bin/sh

set -e -u

FILTER=""
ROOMS=""

LIMIT=10000

usage() {
    echo "usage: $0 [--limit <n>] [--filter] [--room <room>]*"
    exit 1
}

while [ $# -gt 0 ]; do
    case $1 in
        --limit)
            LIMIT=$2
            shift
            ;;
        --filter)
            FILTER=1
            ;;
	--room)
	    [ -n "$ROOMS" ] && ROOMS="${ROOMS},"
	    ROOMS="$ROOMS '$2'"
	    shift
	    ;;
        *) usage
            ;;
    esac
    shift
done

QUERY="WHERE NOT -NTOTAL = sum_array(nperdevice) AND NOT DEAD"
if [ -n "$ROOMS" ]; then
    QUERY="$QUERY AND room IN ($ROOMS) "
fi

echo -n "Device (pid) count: $(pidof xwords | wc | awk '{print $2}')"
echo ";   relay pid[s]: $(pidof xwrelay)"
echo "Row count:" $(psql -t xwgames -c "select count(*) FROM games $QUERY;")

# Games
echo "SELECT dead as d,connname,cid,room,lang as lg,clntVers as cv ,ntotal as t,nperdevice as nPerDev,nsents as snts, seeds,devids,tokens,ack, mtimes "\
     "FROM games $QUERY ORDER BY NOT dead, connname LIMIT $LIMIT;" \
    | psql xwgames

# Messages
echo "SELECT * "\
     "FROM msgs WHERE connname IN (SELECT connname from games $QUERY) "\
     "ORDER BY ctime DESC, connname LIMIT $LIMIT;" \
    | psql xwgames

# Devices
LINE="SELECT id, model, osvers, array_length(mtimes, 1) as mcnt, mtimes[1] as mtime, array_length(devTypes, 1) as dcnt, devTypes[1] as dTyp, devids[1] as devid FROM devices "
if [ -n "$FILTER" ]; then
     LINE="${LINE} WHERE id IN (select UNNEST(devids) FROM games $QUERY)"
fi
LINE="$LINE ORDER BY mtimes[1] DESC LIMIT $LIMIT;"
echo "$LINE" | psql xwgames