shame - annna - Annna the nice friendly bot.
 (HTM) 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