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