moth/packages/p2/bin/p2console

#! /bin/sh

: ${BASE:=/var/lib/ctf/p2}

mkdir -p $BASE

if ! [ -f $BASE/salt ]; then
    dd if=/dev/urandom count=1 | md5sum - > $BASE/salt
fi
clear
read salt < $BASE/salt

esc () {
    printf '%s' "$*" | sed 's/[^-0-9A-Za-z ]/_/g; s/ /+/g'
}

newteam () {
    echo '== Team Creation =='
    echo
    echo -n 'What would you like your team to be called (3-12 chars)? '
    read -r name
    echo
    namelen=$(printf "%s" "$name" | wc -c)
    if [ $namelen -lt 3 ] || [ $namelen -gt 12 ]; then
        echo 'Invalid name length'
        return
    fi
    hash=$(printf '%s %s' "$salt" "$name" | md5sum | cut -b 1-8)

    if [ -d $BASE/$hash ]; then
        echo "That name is already in use.  Try another one."
        return
    fi

    mkdir $BASE/$hash

    printf '%s' "$name" > $BASE/$hash/.name

    cat <<EOD
Your team hash is $hash.  Write that down somewhere and don't lose it.
If you forget your hash, you'll have to start over from the beginning
with a new team and everybody will laugh at you.
EOD
}

fini () {
    echo
    echo "Press [Enter] to clear the screen."
    read
    exit 0
}

echo -n 'Team hash ("new" to create a new team): '
read -r hash
echo
if [ -z "$hash" ]; then
    exit 0
elif [ "$hash" = "new" ]; then
    newteam
    fini
elif ! [ -d $BASE/$hash ]; then
    echo "No such team, fool."
    echo "Is this when everybody laughs at you for forgetting your hash?"
    fini
fi

read -r name < $BASE/$hash/.name
printf "%s answer: " "$name"
read -r answer
echo

match=$(awk -v ans="$answer" '(substr($0, length($1)+2) == ans) { print substr(FILENAME, 6, length(FILENAME)-17) " " $1; }' /opt/*/answers.txt)
if [ -z "$match" ]; then
    echo "That is not a correct answer."
    fini
fi
    
cat=${match% *}
points=${match#* }
fn=$BASE/$hash/$cat.$points
if [ -f $fn ]; then
    echo "You've already received points for this answer."
else
    > $fn
    echo "You get $points more points in the $cat category."
    # run puzzles.cgi
    # update scoreboard
fi

fini