geomyidae

A small C-based gopherd. (gopher://bitreich.org/1/scm/geomyidae)
git clone git://r-36.net/geomyidae
Log | Files | Refs | README | LICENSE

dirlisting.dcgi (292B)

      1 #!/bin/sh
      2 #
      3 # Dir listing example.
      4 #
      5 
      6 find . -maxdepth 1 \
      7 | sort -r \
      8 | cut -d'/' -f 2- \
      9 | grep -v "^\." \
     10 | while read -r entry;
     11 do
     12 	entrytype="9"
     13 	[ -d "${entry}" ] && entrytype="1"
     14 
     15 	find "${entry}" \
     16 		-maxdepth 0 \
     17 		-printf "[${entrytype}|%TY-%Tm-%Td    %f|%f|server|port]\r\n"
     18 done
     19