moth/src/bin/install-category

#! /bin/sh -e

indir=$1
if ! [ -n "$indir" -a -d $indir ]; then
	echo "Usage: $0 PUZZLEDIR"
	exit 1
fi
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>
		<meta charset="UTF-8">
		<meta name="viewport" content="width=device-width">
		<title>$cat $points</title>
		<link rel="stylesheet" href="../../style.css">
	</head>
	<body>
		<h1>$cat for $points points</h1>
EOF

	echo "<section id=\"readme\">"
	cat
	echo "</section>"

	if [ $# -gt 0 ]; then
	echo "<section id=\"files\">"
			echo "<h2>Associated files:</h2>"
			echo "<ul>"
			while [ $# -gt 0 ]; do
					fn="$1"; shift
					efn="$(echo $fn | escape)"
					echo "<li><a href=\"$fn\">$efn</a></li>"
			done
			echo "</ul>"
	echo "</section>"
	fi

	cat <<EOF
		<section id="form">
			<form id="puzzler" action="../../cgi-bin/puzzler.cgi" method="get" accept-charset="utf-8" autocomplete="off">
				<input type="hidden" name="c" value="$cat">
				<input type="hidden" name="p" value="$points">
				<div>Team hash:<input name="t" size="8"></div>
				<div>Answer:<input name="a" size="20"></div>
				<input type="submit" value="submit">
			</form>
		</section>
		<address>Puzzle by <span class="author" data-handle="$author">$author</span></address>
		<section id="sponsors">
			<img src="../../images/lanl.png" alt="Los Alamos National Laboratory">
			<img src="../../images/doe.png" alt="US Department Of Energy">
			<img src="../../images/sandia.png" alt="Sandia National Laboratories">
		</section>
	</body>
</html>
EOF
}

cat=$(basename $indir)
outdir=$(dirname $(dirname $0))/packages/$cat
outdir=$(cd $outdir; /bin/pwd)
uanswers=$outdir/answers.unsorted
usummary=$outdir/summary.unsorted
umap=$outdir/map.unsorted

mkdir -p $outdir
if ! [ -r $outdir/salt ]; then
	dd if=/dev/urandom bs=1 count=16 2>/dev/null | md5sum | cut -c1-16 > $outdir/salt
fi
read salt < $outdir/salt

> $uanswers
rm -f $usummary

for dn in $indir/[0-9]*; do
	[ -d $dn ] || continue
	points=$(basename $dn)

	echo $dn

	odn=$(printf "%s/%s/%s" "$salt" "$cat" "$points" | md5sum | sed 's/\(....\)/\1./g' | cut -b 1-19)
	tgt=$outdir/puzzles/$odn
	mkdir -p $tgt
	#touch $tgt/index.html

	if [ -f $dn/Makefile ]; then
		# If there's a Makefile, run make
		make DESTDIR=$tgt -C $dn || exit 1
		files=$(ls -1 $tgt | grep -v index.html || true)
	elif [ -f $dn/00manifest.txt ]; then
		# If there's a manifest, use that
		files=
		while read fn; do
			cp $dn/$fn $tgt/
			case $fn in
			,*)
				;;
			*)
				files="$files $fn"
				;;
			esac
		done < $dn/00manifest.txt
	else
		# Otherwise, look for special files and copy the rest
		files=
		for fn in $dn/*; do
			case $(basename $fn) in
			00*)
				# Handle meta-information later
				;;
			*~|"#"*)
				# Don't copy temporary or backup files
				;;
			,*)
				# Copy but don't list
				cp $fn $tgt/
				;;
			*)
				#ext=$(echo $fn | sed -ne 's/.*\././p')
				cfn=$(md5sum $fn | cut -b -8)$ext
				cp $fn $tgt/$cfn
				files="$files $cfn"
				;;
			esac
		done
	fi

	# Append answers 
	if [ -f $dn/00answer.txt ]; then
		awk -v P=$points '/./ { printf("%d %s\n", P, $0); }' < $dn/00answer.txt >> $uanswers
	else
		die "$dn/00answer.txt: No such file or directory"
	fi

	# Append summary
	if [ -f $dn/00summary.txt ]; then
		awk -v P=$points '/./ { printf("%d %s\n", P, $0); }' < $dn/00summary.txt >> $usummary
	fi

	# Read author
	if [ -f $dn/00author.txt ]; then
		author=$(cat $dn/00author.txt)
	else
		die "$dn/00author.txt does not exist."
	fi

	# Generate index now that we have a list of files
	if [ -f $dn/00index.mdwn ]; then
		markdown --html4tags $dn/00index.mdwn
	fi | template $cat $points "$author" $files > $tgt/index.html

	# Write to map
	printf "%d %s\n" $points $odn >> $umap
done

echo "Generating URL map"
sort -n $umap > $outdir/map.txt

echo "Generating answers list"
sort -n $uanswers > $outdir/answers.txt

echo "Generating summary"
[ -f $usummary ] && sort -ns $usummary > $outdir/summary.txt

echo "Linking into web space"
ln -sf ../packages/$cat/puzzles $outdir/../../www/$cat

echo "Cleaning up"
rm -f $uanswers $usummary $umap
JSON points generator 2015-04-08 17:28:18 -06:00			`#! /bin/sh -e`

don't bomb on no input 2015-06-03 17:59:58 -06:00			`indir=$1`
			`if ! [ -n "$indir" -a -d $indir ]; then`
JSON points generator 2015-04-08 17:28:18 -06:00			`echo "Usage: $0 PUZZLEDIR"`
			`exit 1`
			`fi`
don't bomb on no input 2015-06-03 17:59:58 -06:00			`shift`
JSON points generator 2015-04-08 17:28:18 -06:00
			`die () {`
And with that, I think it is working again 2015-04-12 11:11:15 -06:00			`echo "$@" 1>&2`
			`exit 1`
JSON points generator 2015-04-08 17:28:18 -06:00			`}`

			`escape () {`
And with that, I think it is working again 2015-04-12 11:11:15 -06:00			`sed 's/&/\&/g;s/</\</g;s/>/\>/g'`
JSON points generator 2015-04-08 17:28:18 -06:00			`}`

			`template () {`
And with that, I think it is working again 2015-04-12 11:11:15 -06:00			`cat="$1"; shift`
			`points="$1"; shift`
			`author=$(echo $1 \| escape); shift`
JSON points generator 2015-04-08 17:28:18 -06:00
And with that, I think it is working again 2015-04-12 11:11:15 -06:00			`cat <<EOF`
JSON points generator 2015-04-08 17:28:18 -06:00			`<!DOCTYPE html>`
			`<html>`
			`<head>`
			`<meta charset="UTF-8">`
fix formatting for phones 2015-04-20 12:08:21 -06:00			`<meta name="viewport" content="width=device-width">`
JSON points generator 2015-04-08 17:28:18 -06:00			`<title>$cat $points</title>`
Stop conflicting with js category 2015-04-19 23:14:31 -06:00			`<link rel="stylesheet" href="../../style.css">`
JSON points generator 2015-04-08 17:28:18 -06:00			`</head>`
			`<body>`
			`<h1>$cat for $points points</h1>`
			`EOF`

And with that, I think it is working again 2015-04-12 11:11:15 -06:00			`echo "<section id=\"readme\">"`
			`cat`
			`echo "</section>"`

			`if [ $# -gt 0 ]; then`
			`echo "<section id=\"files\">"`
			`echo "<h2>Associated files:</h2>"`
			`echo "<ul>"`
			`while [ $# -gt 0 ]; do`
			`fn="$1"; shift`
			`efn="$(echo $fn \| escape)"`
			`echo "<li><a href=\"$fn\">$efn</a></li>"`
			`done`
			`echo "</ul>"`
			`echo "</section>"`
			`fi`

			`cat <<EOF`
JSON points generator 2015-04-08 17:28:18 -06:00			`<section id="form">`
s/cgi/cgi-bin/g 2015-05-26 10:14:30 -06:00			`<form id="puzzler" action="../../cgi-bin/puzzler.cgi" method="get" accept-charset="utf-8" autocomplete="off">`
JSON points generator 2015-04-08 17:28:18 -06:00			`<input type="hidden" name="c" value="$cat">`
			`<input type="hidden" name="p" value="$points">`
fix formatting for phones 2015-04-20 12:08:21 -06:00			`<div>Team hash:<input name="t" size="8"></div>`
			`<div>Answer:<input name="a" size="20"></div>`
JSON points generator 2015-04-08 17:28:18 -06:00			`<input type="submit" value="submit">`
			`</form>`
			`</section>`
			`<address>Puzzle by <span class="author" data-handle="$author">$author</span></address>`
Add logos to individual puzzles 2015-04-15 16:12:06 -06:00			`<section id="sponsors">`
Fix relative path to images 2015-04-15 16:31:40 -06:00			`<img src="../../images/lanl.png" alt="Los Alamos National Laboratory">`
			`<img src="../../images/doe.png" alt="US Department Of Energy">`
			`<img src="../../images/sandia.png" alt="Sandia National Laboratories">`
Add logos to individual puzzles 2015-04-15 16:12:06 -06:00			`</section>`
JSON points generator 2015-04-08 17:28:18 -06:00			`</body>`
			`</html>`
			`EOF`
			`}`

			`cat=$(basename $indir)`
install-category: fix for puzzles with Makefiles - simplify outdir - when running a Makefile in a puzzle, don't pass $(pwd) as a component of DESTDIR -- $tgt is an absolute path. Fixes: proto and others 2015-06-03 18:06:11 -06:00			`outdir=$(dirname $(dirname $0))/packages/$cat`
install-category: handle relative paths 2016-07-16 21:34:09 -06:00			`outdir=$(cd $outdir; /bin/pwd)`
JSON points generator 2015-04-08 17:28:18 -06:00			`uanswers=$outdir/answers.unsorted`
			`usummary=$outdir/summary.unsorted`
			`umap=$outdir/map.unsorted`

And with that, I think it is working again 2015-04-12 11:11:15 -06:00			`mkdir -p $outdir`
Document some stuff 2015-04-12 11:33:53 -06:00			`if ! [ -r $outdir/salt ]; then`
And with that, I think it is working again 2015-04-12 11:11:15 -06:00			`dd if=/dev/urandom bs=1 count=16 2>/dev/null \| md5sum \| cut -c1-16 > $outdir/salt`
JSON points generator 2015-04-08 17:28:18 -06:00			`fi`
			`read salt < $outdir/salt`

			`> $uanswers`
			`rm -f $usummary`

			`for dn in $indir/[0-9]*; do`
And with that, I think it is working again 2015-04-12 11:11:15 -06:00			`[ -d $dn ] \|\| continue`
			`points=$(basename $dn)`

			`echo $dn`

			`odn=$(printf "%s/%s/%s" "$salt" "$cat" "$points" \| md5sum \| sed 's/\(....\)/\1./g' \| cut -b 1-19)`
			`tgt=$outdir/puzzles/$odn`
			`mkdir -p $tgt`
			`#touch $tgt/index.html`

			`if [ -f $dn/Makefile ]; then`
			`# If there's a Makefile, run make`
install-category: fix for puzzles with Makefiles - simplify outdir - when running a Makefile in a puzzle, don't pass $(pwd) as a component of DESTDIR -- $tgt is an absolute path. Fixes: proto and others 2015-06-03 18:06:11 -06:00			`make DESTDIR=$tgt -C $dn \|\| exit 1`
And with that, I think it is working again 2015-04-12 11:11:15 -06:00			`files=$(ls -1 $tgt \| grep -v index.html \|\| true)`
			`elif [ -f $dn/00manifest.txt ]; then`
			`# If there's a manifest, use that`
			`files=`
			`while read fn; do`
Document some stuff 2015-04-12 11:33:53 -06:00			`cp $dn/$fn $tgt/`
And with that, I think it is working again 2015-04-12 11:11:15 -06:00			`case $fn in`
			`,*)`
			`;;`
			`*)`
			`files="$files $fn"`
			`;;`
			`esac`
			`done < $dn/00manifest.txt`
			`else`
			`# Otherwise, look for special files and copy the rest`
			`files=`
			`for fn in $dn/*; do`
			`case $(basename $fn) in`
			`00*)`
			`# Handle meta-information later`
			`;;`
			`~\|"#")`
			`# Don't copy temporary or backup files`
			`;;`
			`,*)`
			`# Copy but don't list`
Document some stuff 2015-04-12 11:33:53 -06:00			`cp $fn $tgt/`
And with that, I think it is working again 2015-04-12 11:11:15 -06:00			`;;`
			`*)`
			`#ext=$(echo $fn \| sed -ne 's/.*\././p')`
			`cfn=$(md5sum $fn \| cut -b -8)$ext`
Document some stuff 2015-04-12 11:33:53 -06:00			`cp $fn $tgt/$cfn`
And with that, I think it is working again 2015-04-12 11:11:15 -06:00			`files="$files $cfn"`
			`;;`
			`esac`
			`done`
			`fi`

			`# Append answers`
			`if [ -f $dn/00answer.txt ]; then`
			`awk -v P=$points '/./ { printf("%d %s\n", P, $0); }' < $dn/00answer.txt >> $uanswers`
			`else`
			`die "$dn/00answer.txt: No such file or directory"`
			`fi`

			`# Append summary`
			`if [ -f $dn/00summary.txt ]; then`
			`awk -v P=$points '/./ { printf("%d %s\n", P, $0); }' < $dn/00summary.txt >> $usummary`
			`fi`

			`# Read author`
			`if [ -f $dn/00author.txt ]; then`
			`author=$(cat $dn/00author.txt)`
			`else`
			`die "$dn/00author.txt does not exist."`
			`fi`

			`# Generate index now that we have a list of files`
			`if [ -f $dn/00index.mdwn ]; then`
			`markdown --html4tags $dn/00index.mdwn`
			`fi \| template $cat $points "$author" $files > $tgt/index.html`

			`# Write to map`
			`printf "%d %s\n" $points $odn >> $umap`
JSON points generator 2015-04-08 17:28:18 -06:00			`done`

And with that, I think it is working again 2015-04-12 11:11:15 -06:00			`echo "Generating URL map"`
JSON points generator 2015-04-08 17:28:18 -06:00			`sort -n $umap > $outdir/map.txt`
And with that, I think it is working again 2015-04-12 11:11:15 -06:00
			`echo "Generating answers list"`
JSON points generator 2015-04-08 17:28:18 -06:00			`sort -n $uanswers > $outdir/answers.txt`
And with that, I think it is working again 2015-04-12 11:11:15 -06:00
			`echo "Generating summary"`
JSON points generator 2015-04-08 17:28:18 -06:00			`[ -f $usummary ] && sort -ns $usummary > $outdir/summary.txt`
And with that, I think it is working again 2015-04-12 11:11:15 -06:00
			`echo "Linking into web space"`
Do symlink properly in install-category 2015-04-13 16:38:56 -06:00			`ln -sf ../packages/$cat/puzzles $outdir/../../www/$cat`
And with that, I think it is working again 2015-04-12 11:11:15 -06:00
			`echo "Cleaning up"`
JSON points generator 2015-04-08 17:28:18 -06:00			`rm -f $uanswers $usummary $umap`