shame - 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
---
shame (754B)
---
1 #!/bin/sh
2
3 shamemodbase="$HOME/bin/modules/shame"
4 shamedb="${shamemodbase}/shame.txt"
5
6 function getshameval {
7 shameval="$(grep "^$1" "${shamedb}" | cut -f 2)"
8 [ -z "${shameval}" ] && printf "0\n"
9 printf "%s\n" "${shameval}"
10 }
11
12 function setshameval {
13 if [ -n "$(grep "^${1}" "${shamedb}")" ];
14 then
15 sed -i "s,${1}\t.*,${1}\t${2}," "${shamedb}"
16 else
17 printf "%s\t%d\n" "${1}" "${2}" >> "${shamedb}"
18 fi
19 }
20
21 function modifyshame {
22 shametag="$1"
23 shameval=$(getshameval "${shametag}")
24 newshameval="$(printf "%d%s\n" "${shameval}" "$2" | bc)"
25 setshameval "${shametag}" $newshameval
26 }
27
28 function incshame {
29 modifyshame "$1" " + 1"
30 }
31
32 shamestr="$1"
33 if [ -n "${shamestr}" ];
34 then
35 incshame "${shamestr}"
36 else
37 sort -r -k 2 "${shamedb}" | column -t
38 fi
39