Add perl feelings to annna. - 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 c62c9fec4a13413d88e310849ad325b2e3329318
DIR parent 100ffb3a37e4edce739561734d71747445269390
HTML Author: Annna Robert-Houdin <annna@bitreich.org>
Date: Sat, 24 Jul 2021 19:56:14 +0200
Add perl feelings to annna.
Diffstat:
M annna-message-common | 7 +++++++
A perl-feelings | 11 +++++++++++
2 files changed, 18 insertions(+), 0 deletions(-)
---
DIR diff --git a/annna-message-common b/annna-message-common
@@ -268,6 +268,13 @@ case "${text}" in
postmortem="$(post-mortem | /br/bin/bitreich-paste)"
annna-say -c "${channel}" "${user}, do not feel bad, others had worse days: ${postmortem}"
;;
+"${botname}, I feel perl.")
+ perlfeelings="$(perl-feelings)"
+ if [ -n "${perl-feelings}" ];
+ then
+ annna-say -c "${channel}" "${user}, I feel ${perlfeelings}"
+ fi
+ ;;
"${botname}, will you be my girlfriend?")
rejection="$(girlfriend)"
annna-say -c "${channel}" "${user}, ${rejection}"
DIR diff --git a/perl-feelings b/perl-feelings
@@ -0,0 +1,11 @@
+#!/bin/sh
+#
+# See: https://www.mcmillen.dev/sigbovik/
+#
+
+curl -s https://www.mcmillen.dev/sigbovik/splatters.html \
+ | grep "^<div>" \
+ | grep -v "Not valid" \
+ | sed 's,<div>\([^<]*\)<br><a href="\([^"]*\)".*,\1 = https://www.mcmillen.dev/sigbovik/\2,' \
+ | shuf -n 1
+