bithub-gen - 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
---
bithub-gen (550B)
---
1 #!/bin/sh
2
3 export PATH="$PATH:/home/annna/bin"
4
5 bithubarchive="/br/gopher/bithub/read_text"
6 bithubbaseuri="gophers://bitreich.org/0/bithub/read_text"
7
8 essayfile=".txt"
9 maxtries=3
10 while [ "${essayfile}" = ".txt" ];
11 do
12 [ $maxtries -eq 0 ] && exit 1
13
14 essayurl="$(essay-gen)"
15 cd "${bithubarchive}"
16 essayfile="$(curl -s "${essayurl}" | sed -n "2p;" | tr ' /' '__').txt"
17 if [ "${essayfile}" = ".txt" ];
18 then
19 maxtries=$(($maxtries - 1))
20 continue
21 fi
22 done
23 curl -s "${essayurl}" > "${essayfile}"
24
25 printf "%s/%s\n" "${bithubbaseuri}" "${essayfile}"
26