59 lines
1.1 KiB
Bash
Executable File
59 lines
1.1 KiB
Bash
Executable File
#!/bin/sh
|
|
|
|
kv_GET () {
|
|
route=$1
|
|
shift
|
|
curl -s "https://www.keinverlag.de$route" "$@" | iconv -f latin1 -t utf8
|
|
}
|
|
|
|
kv_author_id () {
|
|
if [ $# -ne 1 ]; then
|
|
echo Please call kv_author_id with an author name. >/dev/stderr
|
|
exit 1
|
|
fi
|
|
|
|
author_name=$1
|
|
|
|
kv_GET "/$author_name.kv" \
|
|
| sed -n 's/.*autor=\([0-9]\+\).*/\1/p' \
|
|
| head -1
|
|
}
|
|
|
|
kv_text () {
|
|
if [ $# -ne 1 ]; then
|
|
echo Please call kv_text with a text ID. >/dev/stderr
|
|
exit 1
|
|
fi
|
|
|
|
text_id=$1
|
|
|
|
kv_GET "/$text_id.text" \
|
|
| sed -n '/<h1>/,/<!-- Kommentarbox -->/p' \
|
|
| pandoc -f html -t plain
|
|
}
|
|
|
|
kv_author_texts () {
|
|
if [ $# -ne 1 ]; then
|
|
echo Please call kv_author_texts with an author ID. >/dev/stderr
|
|
exit 1
|
|
fi
|
|
|
|
author_id=$1
|
|
|
|
kv_GET '/autorentexte.php' -d sortby=datum -d start=0 -d limit=10000 -d autor="$author_id" \
|
|
| sed -n 's/.*<a href="\([0-9]\+\)\.text">.*/\1/p'
|
|
}
|
|
|
|
case $1 in
|
|
text)
|
|
shift
|
|
kv_text "$@";;
|
|
author)
|
|
shift
|
|
for text_id in $(kv_author_texts "$(kv_author_id "$@")"); do
|
|
kv_text "$text_id"
|
|
done ;;
|
|
*)
|
|
echo >/dev/stderr "Usage: $0 text|author ID"
|
|
esac
|