diff --git a/tilserv/announce/mkwpost b/tilserv/announce/mkwpost
new file mode 100755
index 0000000..225ec65
--- /dev/null
+++ b/tilserv/announce/mkwpost
@@ -0,0 +1,20 @@
+#!/usr/bin/env -S bash -e
+[[ -z "$1" ]] && {
+	printf "Usage: %s message [description]\n" "$0"
+	exit 1
+}
+
+HTML_ANNO=/var/log/announcements.html
+SSI_ANNO=/var/log/ssi_anno.shtml
+DATE="$(date --rfc-email -u)"
+
+[[ -z "$2" ]] && {
+	MSG='\n\t\t<li>'"$DATE"' - <b>'"$1"'<\/b><\/li>'
+	sed -i "s/<ul>/<ul>$MSG/" $HTML_ANNO
+	printf "$(echo "$MSG" | sed 's/\\\//\//g' -)" > $SSI_ANNO
+	exit 0
+}
+
+MSG='\n\t\t<li>'"$DATE"' - <b>'"$1"'<\/b>\n<p>'"$2"'<\/p>\n\t\t<\/li>'
+sed -i "s/<ul>/<ul>$MSG/" $HTML_ANNO
+printf "$(echo "$MSG" | sed 's/\\\//\//g' -)" > $SSI_ANNO