moth/mkpuzzles

139 lines
3.2 KiB
Bash
Executable File

#! /bin/sh -e
set -e
indir=$1; shift
outdir=$1; shift
die () {
echo "$@" 1>&2
exit 1
}
escape () {
sed 's/&/\&amp;/g;s/</\&lt;/g;s/>/\&gt;/g'
}
template () {
cat="$1"; shift
points="$1"; shift
author=$(echo $1 | escape); shift
cat <<EOF
<!DOCTYPE html>
<html>
<head>
<title>$cat $points</title>
<link rel="stylesheet" href="/ctf.css" type="text/css">
</head>
<body>
<h1>$cat for $points points</h1>
EOF
echo " <div class=\"readme\">"
cat
echo " </div>"
if [ $# -gt 0 ]; then
echo " <p>Associated files:</p>"
echo " <ul>"
while [ $# -gt 0 ]; do
fn="$1"; shift
efn="$(echo $fn | escape)"
echo " <li><a href=\"$fn\">$efn</a></li>"
done
echo " </ul>"
fi
cat <<EOF
<form action="/puzzler.cgi" method="post" accept-charset="utf-8">
<input type="hidden" name="c" value="$cat">
<input type="hidden" name="p" value="$points">
Team hash:<input name="t" size="8">
Answer:<input name="a" size="20">
<input type="submit" value="submit">
</form>
<address>Puzzle by $author</address>
</body>
</html>
EOF
}
cat=$(basename $indir)
uanswers=$outdir/answers.unsorted
usummary=$outdir/summary.unsorted
echo -n > $uanswers
rm -f $usummary
for dn in $indir/[0-9]*; do
[ -d $dn ] || continue
points=$(basename $dn)
echo $dn
tgt=$outdir/puzzles/$points
mkdir -p $tgt
touch $tgt/index.html
if [ -f $dn/Makefile ]; then
# If there's a Makefile, run make
make -C $dn || exit 1
files=$(cd $tgt; echo *)
fi
if [ -f $dn/@manifest.txt ]; then
# If there's a manifest, use that
files=$(cat $dn/@manifest.txt)
else
# Otherwise, look for special files and copy the rest
files=
for fn in $dn/*; do
case $(basename $fn) in
@*)
# Handle meta-information later
;;
*~|"#"*)
# Don't copy temporary or backup files
;;
,*)
# Copy but don't list
ln -f $fn $tgt/
;;
*)
ln -f $fn $tgt/
files="$files $(basename $fn)"
;;
esac
done
fi
# Append answers
if [ -f $dn/@answer.txt ]; then
awk -v P=$points '/./ { printf("%d %s\n", P, $0); }' < $dn/@answer.txt >> $uanswers
else
die "$dn/@answer.txt: No such file or directory"
fi
# Append summary
if [ -f $dn/@summary.txt ]; then
awk -v P=$points '/./ { printf("%d %s\n", P, $0); }' < $dn/@summary.txt >> $usummary
fi
# Read author
if [ -f $dn/@author.txt ]; then
author=$(cat $dn/@author.txt)
else
die "$dn/@author.txt does not exist."
fi
# Generate index now that we have a list of files
if [ -f $dn/@index.mdwn ]; then
markdown --html4tags $dn/@index.mdwn
fi | template $cat $points "$author" $files > $tgt/index.html
done
sort -n $uanswers > $outdir/answers.txt
[ -f $usummary ] && sort -ns $usummary > $outdir/summary.txt
rm -f $uanswers $usummary