Restrict HTML titles in length, get content for some articles. - annna - Annna the nice friendly bot.
HTML git clone git://bitreich.org/annna/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/annna/
DIR Log
DIR Files
DIR Refs
DIR Tags
DIR README
---
DIR commit b8037e465ef55e9cbaf6be9f4aee4adf92c61e73
DIR parent e8944d3b827ab95572c68671f8c65a527f407ff2
HTML Author: Annna Robert-Houdin <annna@bitreich.org>
Date: Wed, 1 Aug 2018 12:36:46 +0200
Restrict HTML titles in length, get content for some articles.
Diffstat:
M annna-start-services | 14 ++++++++++----
1 file changed, 10 insertions(+), 4 deletions(-)
---
DIR diff --git a/annna-start-services b/annna-start-services
@@ -4,10 +4,11 @@
# If this gets too unmaintainable, consider adding some directory structure.
#
-set -x
-
export PATH="$PATH:/home/annna/bin"
+# plan9port
+export PATH="$PATH:/usr/lib/plan9/bin"
+
# Bitreich members who are allowed to run certain commands.
brmembers="__20h__ Evil_Bob chripo posativ quinq stateless solene josuah parazyd"
@@ -90,7 +91,8 @@ then
then
urititle="$(curl-grabtitle "${uri}" \
| tr '[:cntrl:]' ' ' \
- | sed 's@^ *@@')"
+ | sed 's@^ *@@' \
+ | cut -c -200)"
if [ -n "$urititle" ];
then
case "${urititle}" in
@@ -100,9 +102,13 @@ then
*\|\ Cloudflare*)
annna-say -c "#bitreich-en" "We got clownflared: gopher://bitreich.org/0/ascii/clownflare.vt"
;;
- *)
+ *tube*)
annna-say -c "#bitreich-en" "HTML title: ${urititle}"
;;
+ *)
+ purl="$(curl -sL "${uri}" | 9 htmlfmt | /br/bin/bitreich-paste)"
+ annna-say -c "#bitreich-en" "content: ${purl} ; HTML title: ${urititle}"
+ ;;
esac
fi
continue