zeptobar-of-week - 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
---
zeptobar-of-week (811B)
---
1 #!/bin/sh
2
3 export PATH="/home/annna/bin:$PATH"
4
5 channel=#bitreich-books
6
7 zeptobar="$(curl -s https://zeptobars.com/en/rss | sfeed | awk -F '\t' '{
8 SKIP["DATA-LOGO"]++
9 SKIP["^$"]++
10 IMGRE = "(https:)?//[a-z.0-9.A-Z]+/[-.A-Z.a-z.0-9._]+.(jpg|png|jpeg)"
11
12 url = $3
13 buf = $4
14
15 n = 0
16 while (match(buf, IMGRE)) {
17 new = substr(buf, RSTART, RLENGTH)
18 if (new ~ "^//")
19 new = "https:" new
20
21 skip = 0
22 for (x in SKIP)
23 skip += (new ~ x)
24 if (skip == 0) {
25 urls[n++] = new
26 hash[new]++
27 }
28
29 buf = substr(buf, RSTART + RLENGTH)
30 }
31
32 printf "%s", url
33
34 for (i = 0; i < n; i++) {
35 hd = urls[i]
36 sub(/\.(jpg|jpeg|png)$/, "-HD&", hd)
37 if (hash[hd])
38 continue
39
40 printf " - %s", urls[i]
41 }
42 printf "\n"
43
44 delete urls
45 }' | sort -R | sed q)"
46
47 annna-say -c "${channel}" "This week's Zeptobar: ${zeptobar}"