Introduction
Introduction Statistics Contact Development Disclaimer Help
annna-meme-recommend - annna - Annna the nice friendly bot.
git clone git://bitreich.org/annna/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws6…
Log
Files
Refs
Tags
README
---
annna-meme-recommend (627B)
---
1 #!/bin/sh
2
3 if [ $# -lt 1 ];
4 then
5 printf "usage: %s hashtag\n" "$(basename "$0")" >&2
6 exit 1
7 fi
8
9 export PATH="$HOME/bin:$PATH"
10
11 hashtagfile="$HOME/bin/modules/hashtags/hashtags.txt"
12
13 hashtag="$1"
14
15 # Scale allowed errors by input hashtag length.
16 hashtaglen=$(($(utf8expr length "$hashtag") - 1))
17 case $hashtaglen in
18 0|1)
19 nerrors=1;;
20 2|3)
21 nerrors=2;;
22 4|5)
23 nerrors=3;;
24 6|7)
25 nerrors=4;;
26 8|9)
27 nerrors=5;;
28 10|11)
29 nerrors=6;;
30 12|13)
31 nerrors=7;;
32 *)
33 nerrors=8;;
34 esac
35
36
37 # n differences == -4; up to 8
38 agrep -i -$nerrors "^#${hashtag} " "${hashtagfile}" \
39 | shuf 2>/dev/null \
40 | head -n 5 \
41 | cut -d' ' -f 1 \
42 | tr "\n" " "
43
You are viewing proxied material from bitreich.org. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.