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