Home
Add pearl generation to gopher lawn. - 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 --- DIR commit c5927bfe4b5654ad7141d202bc02e39ce0c4f170 DIR parent 8c8c4d7198368ff3f2a9d5c9a98652ebffa53383 HTML Author: Christoph Lohmann <20h@r-36.net> Date: Tue, 8 Aug 2023 22:50:19 +0200 Add pearl generation to gopher lawn. Diffstat: A mk-pearls | 56 +++++++++++++++++++++++++++++++ A pearls/footer.gph | 9 +++++++++ A pearls/header.gph | 15 +++++++++++++++ A pearls/pearls.gph.orig | 27 +++++++++++++++++++++++++++ 4 files changed, 107 insertions(+), 0 deletions(-) --- DIR diff --git a/mk-pearls b/mk-pearls @@ -0,0 +1,56 @@ +#!/bin/sh + +{ + cat pearls/header.gph + + find db -name "pearl-*" -type f \ + | while read -r pearl; + do + cat $pearl \ + | while read -r line; + do + fieldval="$(printf "%s\n" "${line}" \ + | cut -d':' -f2- | xargs)" + case "${line}" in + Type:*) + if [ "${fieldval}" != "text" ]; + then + break; + fi + ;; + Selector:*) + selector="${fieldval}" + ;; + Server:*) + server="${fieldval}" + ;; + Port:*) + port="${fieldval}" + ;; + LinkName:*) + linkname="${fieldval}" + ;; + *) + ;; + esac + + if [ -n "${selector}" ] \ + && [ -n "${server}" ] \ + && [ -n "${port}" ] \ + && [ -n "${linkname}" ]; + then + printf "[0| (_) %s|%s|%s|%s]\n" \ + "${linkname}" \ + "${selector}" \ + "${server}" \ + "${port}" + selector="" + server="" + port="" + linkname="" + fi + done + done + + cat pearls/footer.gph +} > pearls.gph DIR diff --git a/pearls/footer.gph b/pearls/footer.gph @@ -0,0 +1,9 @@ + (_) ... Send your pearls please. ... + (_) + (_) + _ _ (_)_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ +(_))(_) (_)(_)(_)(_)(_)(_)(_)(_)(_)(_)(_)(_)(_)(_)(_)@< + ~VK + +[1|<< back to bitreich.org||server|port] + DIR diff --git a/pearls/header.gph b/pearls/header.gph @@ -0,0 +1,15 @@ + + / + / GOPHER 2007 PEARL PROJECT + _/ +[1| (_) Here you go! >> Enter the Archive <<|archive|server|port] + / + / + | The fun in gopherspace is discovery. + | Many treasures are out there to be found by you. + | Keep on discovering! + | And here is a challenge. + | Can you find the pearls in gopherspace 2007? +[h| \| Please send them to 20h@r-36.net.|URL:mailto:20h@r-36.net|server|port] + | The pearls will be presented here. + | DIR diff --git a/pearls/pearls.gph.orig b/pearls/pearls.gph.orig @@ -0,0 +1,27 @@ + + / + / GOPHER 2007 PEARL PROJECT + _/ +[1| (_) Here you go! >> Enter the Archive <<|archive|server|port] + / + / + | The fun in gopherspace is discovery. + | Many treasures are out there to be found by you. + | Keep on discovering! + | And here is a challenge. + | Can you find the pearls in gopherspace 2007? +[h| \| Please send them to 20h@r-36.net.|URL:mailto:20h@r-36.net|server|port] + | The pearls will be presented here. + | +[0| (_) gopher-manifesto.txt - The Gopher Manifesto|archive/seanm.ca/70/0/nerd/gopher-manifesto.txt|server|port] +[0| (_) language_parable.txt - Well parse this, you little markup asshole!|archive/seanm.ca/70/0/nerd/language_parable.txt|server|port] +[0| (_) 500mileemail.txt - How E-Mail only is sent 500 miles.|archive/seanm.ca/70/0/nerd/500mileemail.txt|server|port] + (_) ... Send your pearls please. ... + (_) + (_) + _ _ (_)_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ +(_))(_) (_)(_)(_)(_)(_)(_)(_)(_)(_)(_)(_)(_)(_)(_)(_)@< + ~VK + +[1|<< back to bitreich.org||server|port] +