imk-pearls - gopher-lawn - The gopher lawn gopher directory project. Err bitreich.org 70 hgit clone git://bitreich.org/gopher-lawn/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/gopher-lawn/ URL:git://bitreich.org/gopher-lawn/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/gopher-lawn/ bitreich.org 70 1Log /scm/gopher-lawn/log.gph bitreich.org 70 1Files /scm/gopher-lawn/files.gph bitreich.org 70 1Refs /scm/gopher-lawn/refs.gph bitreich.org 70 1Tags /scm/gopher-lawn/tag bitreich.org 70 i--- Err bitreich.org 70 imk-pearls (1134B) Err bitreich.org 70 i--- Err bitreich.org 70 i 1 #!/bin/sh Err bitreich.org 70 i 2 Err bitreich.org 70 i 3 { Err bitreich.org 70 i 4 cat pearls/header.gph Err bitreich.org 70 i 5 Err bitreich.org 70 i 6 find db -name "pearl-*" -type f \ Err bitreich.org 70 i 7 | while read -r pearl; Err bitreich.org 70 i 8 do Err bitreich.org 70 i 9 cat $pearl \ Err bitreich.org 70 i 10 | while read -r line; Err bitreich.org 70 i 11 do Err bitreich.org 70 i 12 fieldval="$(printf "%s\n" "${line}" \ Err bitreich.org 70 i 13 | cut -d':' -f2- | xargs)" Err bitreich.org 70 i 14 case "${line}" in Err bitreich.org 70 i 15 Type:*) Err bitreich.org 70 i 16 gtype="9" Err bitreich.org 70 i 17 case "${fieldval}" in Err bitreich.org 70 i 18 link) Err bitreich.org 70 i 19 gtype="1" Err bitreich.org 70 i 20 ;; Err bitreich.org 70 i 21 text) Err bitreich.org 70 i 22 gtype="0" Err bitreich.org 70 i 23 ;; Err bitreich.org 70 i 24 cso) Err bitreich.org 70 i 25 gtype="2" Err bitreich.org 70 i 26 ;; Err bitreich.org 70 i 27 error) Err bitreich.org 70 i 28 gtype="3" Err bitreich.org 70 i 29 ;; Err bitreich.org 70 i 30 uuencoded) Err bitreich.org 70 i 31 gtype="6" Err bitreich.org 70 i 32 ;; Err bitreich.org 70 i 33 search) Err bitreich.org 70 i 34 gtype="7" Err bitreich.org 70 i 35 ;; Err bitreich.org 70 i 36 telnet) Err bitreich.org 70 i 37 gtype="8" Err bitreich.org 70 i 38 ;; Err bitreich.org 70 i 39 esac Err bitreich.org 70 i 40 ;; Err bitreich.org 70 i 41 Selector:*) Err bitreich.org 70 i 42 selector="${fieldval}" Err bitreich.org 70 i 43 ;; Err bitreich.org 70 i 44 Host:*) Err bitreich.org 70 i 45 host="${fieldval}" Err bitreich.org 70 i 46 ;; Err bitreich.org 70 i 47 Port:*) Err bitreich.org 70 i 48 port="${fieldval}" Err bitreich.org 70 i 49 ;; Err bitreich.org 70 i 50 LinkName:*) Err bitreich.org 70 i 51 linkname="${fieldval}" Err bitreich.org 70 i 52 ;; Err bitreich.org 70 i 53 *) Err bitreich.org 70 i 54 ;; Err bitreich.org 70 i 55 esac Err bitreich.org 70 i 56 Err bitreich.org 70 i 57 if [ -n "${selector}" ] \ Err bitreich.org 70 i 58 && [ -n "${host}" ] \ Err bitreich.org 70 i 59 && [ -n "${port}" ] \ Err bitreich.org 70 i 60 && [ -n "${gtype}" ] \ Err bitreich.org 70 i 61 && [ -n "${linkname}" ]; Err bitreich.org 70 i 62 then Err bitreich.org 70 i 63 printf "[%s| (_) %s|%s|%s|%s]\n" \ Err bitreich.org 70 i 64 "$gtype" \ Err bitreich.org 70 i 65 "${linkname}" \ Err bitreich.org 70 i 66 "${selector}" \ Err bitreich.org 70 i 67 "${host}" \ Err bitreich.org 70 i 68 "${port}" Err bitreich.org 70 i 69 selector="" Err bitreich.org 70 i 70 host="" Err bitreich.org 70 i 71 port="" Err bitreich.org 70 i 72 linkname="" Err bitreich.org 70 i 73 fi Err bitreich.org 70 i 74 done Err bitreich.org 70 i 75 done Err bitreich.org 70 i 76 Err bitreich.org 70 i 77 cat pearls/footer.gph Err bitreich.org 70 i 78 } > pearls.gph Err bitreich.org 70 .