 |
bithub-gen - annna - Annna the nice friendly bot. |
 |
git clone git://bitreich.org/annna/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws6… |
 |
Log |
|
Files |
|
Refs |
|
Tags |
|
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 ' /' '__'… |
|
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 |
