From 84ac5223b2cd3cffc7fd7f996fe84562df65c898 Mon Sep 17 00:00:00 2001
From: ehouse <ehouse@0782aaa5-4710-0410-8820-a96bf9123855>
Date: Mon, 2 Nov 2009 00:09:11 +0000
Subject: [PATCH] script to test new feature where lots of games can use the
 same "room" and will just get mached up as soon as a host and right-sized set
 of guests is available.  Basically works, but will never exit if any of the
 games fails to exit (as is happening most times), so still need to detect
 failures.

---
 xwords4/linux/scripts/samename.sh | 190 ++++++++++++++++++++++++++++++
 1 file changed, 190 insertions(+)
 create mode 100755 xwords4/linux/scripts/samename.sh

diff --git a/xwords4/linux/scripts/samename.sh b/xwords4/linux/scripts/samename.sh
new file mode 100755
index 000000000..8785e1211
--- /dev/null
+++ b/xwords4/linux/scripts/samename.sh
@@ -0,0 +1,190 @@
+#!/bin/bash
+
+NGAMES=${NGAMES:-20}
+ROOM=${ROOM:-room}
+DICT=./dict.xwd
+HOST=localhost
+PORT=10999
+XWORDS=obj_linux_memdbg/xwords
+WAIT=10
+LAUNCH_WAIT=30
+
+RUN_NAME=$(basename $0)/_$$
+
+usage() {
+    cat <<EOF
+usage: $0 
+      [--ngames <n>]  # default: $NGAMES
+      [--room <s>]    # default: $ROOM
+      [--port <n>]    # default: $PORT
+      [--host <s>]    # default: $HOST
+      [--wait <d>]    # max wait time between moves; default: $WAIT
+      [--launch-wait <d>]    # max wait time before launching; default: $LAUNCH_WAIT
+      [--nuke]        # remove old logs; default: $NUKE
+      [--save-good]   # don't nuke logs for games that complete; default: $SAVE_GOOD
+Run a bunch of games all with the same name.
+EOF
+    exit 0
+}
+
+while [ -n "$1" ]; do
+    case $1 in
+        --room)
+            ROOM=$2
+            shift
+            ;;
+        --ngames)
+            NGAMES=$2
+            shift
+            ;;
+        --port)
+            PORT=$2
+            shift
+            ;;
+        --host)
+            HOST=$2
+            shift
+            ;;
+        --wait)
+            WAIT=$2
+            shift
+            ;;
+        --launch-wait)
+            LAUNCH_WAIT=$2
+            shift
+            ;;
+        --nuke)
+            NUKE=1
+            ;;
+        --save-good)
+            SAVE_GOOD=1
+            ;;
+        *)
+            usage
+            ;;
+    esac
+    shift
+done
+
+launch_game() {
+    ROOM=$1
+    LOG=$2
+    N_GUESTS=$3
+    N_ON_HOST=$4
+
+    [ "$LAUNCH_WAIT" -gt 0 ] && sleep $(($RANDOM % $LAUNCH_WAIT))
+
+    G=""
+
+    if [ "$N_ON_HOST" -gt 0 ]; then # I'm server
+        S="-s"
+        for II in $(seq $N_GUESTS); do G="$G -N"; done
+        for II in $(seq $N_ON_HOST); do S="$S -r Eric"; done
+    else
+        S=""
+        for II in $(seq $N_GUESTS); do G="$G -r Eric"; done
+    fi
+
+    exec $XWORDS -u -0 -z 0:$WAIT -d $DICT -C $ROOM -q 2 -a $HOST -p $PORT $S $G 2>$LOG >/dev/null < /dev/null
+}
+
+r_safe_mod() {
+    NUM=$1
+    [ $NUM -eq 0 ] || NUM=$(( RANDOM % $NUM ))
+    echo $NUM
+}
+
+log_name() {
+    INDX=${1:-0}
+    echo "/tmp/$RUN_NAME/log_${INDX}.txt"
+}
+
+fill_room() {
+    INDX=$1
+    NPLAYERS=$2
+
+    while [ $NPLAYERS -ge 2 ]; do
+        NTHISGAME=$((2 + $(($RANDOM % 3))))
+        [ $NTHISGAME -le $NPLAYERS ] || NTHISGAME=$NPLAYERS
+        NPLAYERS=$(( $NPLAYERS - $NTHISGAME ))
+        GAME_STR=""
+
+        NPLAYERS_HOST=$(( 1+ $(r_safe_mod $((NTHISGAME - 1))) ))
+        NPLAYERS_GUESTS=$(( NTHISGAME - NPLAYERS_HOST ))
+        for II in $(seq $NPLAYERS_HOST); do GAME_STR="${GAME_STR}H"; done
+
+        launch_game $ROOM $(log_name $INDX) $NPLAYERS_GUESTS $NPLAYERS_HOST &
+        INDX=$((1+INDX))
+        while [ $NPLAYERS_GUESTS -gt 0 ]; do
+            GAME_STR="${GAME_STR}:"
+            NTHISGUEST=$(( 1 + $( r_safe_mod $((NPLAYERS_GUESTS - 1))) ))
+            for II in $(seq $NTHISGUEST); do GAME_STR="${GAME_STR}G"; done
+            NPLAYERS_GUESTS=$((NPLAYERS_GUESTS - NTHISGUEST))
+            launch_game $ROOM $(log_name $INDX) $NTHISGUEST 0 &
+            INDX=$((1+INDX))
+        done
+        echo $GAME_STR
+    done
+}
+
+# Problem is we don't know what games will wind up together.  We match
+# by seeds: all the games together will have the same seed.  If all
+# ended properly that's a good game.  Save it (for now; delete later
+# when that's the norm.)
+check_logs() {
+    DIR=$(dirname $(log_name))
+
+    mkdir -p $DIR/bad
+    CONNAMES=$(grep 'relayPreProcess: connName' $DIR/* | sed 's,^.*connName: "\(.*\) eehouse.org.*$,\1,' | sort -u)
+    for CONNAME in $CONNAMES; do
+        NFILES=$((${#CONNAME}/4))
+        SEEDS=""
+        GOOD_FILES=""
+        FOUND=0
+        while [ -n "$CONNAME" ]; do
+            SEED=${CONNAME:0:4}
+            FPATH=$(grep "channelSeed: $SEED" $DIR/* | sed 's,:.*,,')
+            if [ -f "$FPATH" ]; then
+                if grep -q XWPROTO_END_GAME $FPATH; then
+                    FOUND=$((FOUND+1))
+                    GOOD_FILES="$GOOD_FILES $FPATH"
+                fi
+            fi
+            SEEDS="$SEEDS ${CONNAME:0:4}"
+            CONNAME=${CONNAME:4}
+        done
+        if [ $FOUND -eq $NFILES ]; then
+            if [ -n "$SAVE_GOOD" ]; then
+                mkdir -p $DIR/good
+                mv $GOOD_FILES $DIR/good
+            else
+                rm -f $GOOD_FILES
+            fi
+            echo "game with${SEEDS} completed successfully" 1>&2
+        fi
+    done
+
+    if [ 0 -eq $(ls -l $DIR | grep '\-rw-r--r--' | wc -l) ]; then
+        echo "no more log files; done?"
+        return 0
+    else
+        return 1
+    fi
+}
+
+watch_and_wait() {
+    while :; do
+        sleep 10
+        check_logs && break
+    done
+}
+
+
+[ -n "$NUKE" ] && rm -rf $(dirname $(dirname $(log_name)))
+mkdir -p $(dirname $(log_name))
+
+INDX=0
+fill_room $INDX $NGAMES
+INDX=$((INDX+NGAMES))
+
+watch_and_wait