Add WolframAlpha support 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 28690f24a1affd0c573ec0651bb27c6d1fd21ecd
DIR parent 5071888104a90222b8bdbc1c803ec990d8eef9b5
HTML Author: Annna Robert-Houdin <annna@bitreich.org>
Date: Sun, 12 Apr 2020 17:56:56 +0200
Add WolframAlpha support to annna.
Diffstat:
M annna-start-services | 25 +++++++++++++++++++++++++
1 file changed, 25 insertions(+), 0 deletions(-)
---
DIR diff --git a/annna-start-services b/annna-start-services
@@ -178,6 +178,31 @@ then
esac
annna-say -c '#bitreich-en' "${purl}"
;;
+ "${botname}, wolfram is "*)
+ word="$(printf "%s\n" "${text}" | cut -c 19- | sed 's,\t, ,g')"
+ case "$word" in
+ *\?)
+ word="$(printf "%s\n" "${word}" | cut -c -"$(($(expr length "${word}") - 1))")"
+ ;;
+ esac
+
+ purl=""
+ dresult="$(printf "/wolfram\t%s\r\n" "${word}" \
+ | nc magical.fish 70 \
+ | awk '/iAnswer:/,/iAsk/' \
+ | grep -v '^i ' \
+ | head -n -1 \
+ | tail -n +2 \
+ | sed 's,i\(.*\)fake\texample.com.*,\1,')"
+
+ if [ -n "$dresult" ];
+ then
+ purl="$(printf "%s" "${dresult}" | /br/bin/bitreich-paste)"
+ else
+ purl="No matches found."
+ fi
+ annna-say -c '#bitreich-en' "${purl}"
+ ;;
esac
case "${text}" in