bithub-gen - annna - Annna the nice friendly bot.
 (HTM) 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