irc-bot/infobot

90 lines
2.2 KiB
Bash
Executable File
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

#! /bin/sh
if [ $# -gt 1 ]; then
db=$1; shift
else
db=info.cdb
fi
text="$1"
args=$(echo "$text" | cut -d\ -f2-)
lookup () {
if ! cdb -q -m $db "$1"; then
t="$1"
while [ "$t" != "$n" ]; do
n=$t
t=${n%[?!. ]}
done
if [ "$t" != "$1" ]; then
cdb -q -m $db "$t"
fi
fi
}
case "$text" in
!h*)
cat <<EOF
!stats Show statistics
!list KEY List all factoids stored for KEY
!append KEY += VALUE Add VALUE to KEY's factoids
!remove KEY -= VALUE Remove *VALUE* from KEY's factoids
!forget KEY Remove all factoids for KEY
EOF
;;
!s*)
cdb -s $db | head -n 1
;;
!l*)
printf "%s is:" "$args"
cdb -q -m $db "$args" | while read v; do
printf " \"%s\" |" "$v"
done
echo
;;
!a*)
key=$(printf "%s" "$args" | sed 's/ +=.*//')
val=$(printf "%s" "$args" | sed 's/.*+= //')
(printf "+%d,%d:%s->%s\n" ${#key} ${#val} "$key" "$val";
cdb -d $db) | cdb -c $db
;;
!r*)
key=$(printf "%s" "$args" | sed 's/ -=.*//')
val=$(printf "%s" "$args" | sed 's/.*-= //')
gs=":$key->.*$val"
case $(cdb -d $db | grep -c "$gs") in
0)
echo 'No matches'
;;
1)
cdb -d $db | grep -v "$gs" | cdb -c $db
echo "I removed $val from $key"
;;
*)
echo 'That maches more than one entry; please refine your request'
;;
esac
;;
!f*)
cdb -d $db | fgrep -v ":$args->" | cdb -c $db
echo "I forgot $args"
;;
*)
resp=$(lookup "$text" | shuf -n 1 | sed "s/\$sender/$sender/")
case "$resp" in
"")
;;
\\*)
echo "$resp" | cut -b2-
;;
:*)
echo -ne '\001ACTION '
echo -n $(echo "$resp" | cut -b2-)
echo -e '\001'
;;
*)
echo "It's been said that $text is $resp"
;;
esac
;;
esac