tindex.dcgi - gph-poll - a dynamic poll for geomyidae(8)
 (HTM) git clone git://src.adamsgaard.dk/gph-poll
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
       ---
       tindex.dcgi (801B)
       ---
            1 #!/bin/sh
            2 
            3 search="$1"
            4 arguments="$2"
            5 host="$3"
            6 port="$4"
            7 
            8 polldb="poll.db"
            9 polldescription="description.txt"
           10 
           11 if [ -n "${search}" -o "${arguments}" ]; then
           12         tmpdb="$(mktemp)"
           13         if [ -r "$polldb" ]; then
           14                 tail -n 99 "${polldb}" > "${tmpdb}"
           15         fi
           16         printf "%s%s\n" "${search}" "${arguments}" \
           17                 | expand -t 4 >> "${tmpdb}"
           18         cat "${tmpdb}" > "${polldb}"
           19 fi
           20 
           21 printf '\n'
           22 
           23 if [ -r "$polldescription" ]; then
           24         cat "$polldescription"
           25         printf '\n'
           26 fi
           27 
           28 if [ -r "$polldb" ]; then
           29         printf 'Ranking:\n\n'
           30         sort "${polldb}" \
           31                 | uniq -ci \
           32                 | sort -nr \
           33                 | while read -r count option; do 
           34                 printf '[1|(%s) %s|./%s?%s|server|port]\n' \
           35                         "$count" "$option" "${SCRIPT_NAME}" "$option" 
           36         done
           37 fi
           38 
           39 printf '\n[7|Add new choice: _______|./%s|server|port]\n' "${SCRIPT_NAME}"
           40 
           41 printf '\n[1|<< back|/|server|port]\n'