tAdd blank poll and LICENSE - gph-poll - a dynamic poll for geomyidae(8) | |
git clone git://src.adamsgaard.dk/gph-poll | |
Log | |
Files | |
Refs | |
LICENSE | |
--- | |
commit aa5c7ea58b105b98a0c47a56e78233314ae58c86 | |
Author: Anders Damsgaard <[email protected]> | |
Date: Tue, 30 Mar 2021 12:21:22 +0200 | |
Add blank poll and LICENSE | |
Diffstat: | |
A LICENSE | 16 ++++++++++++++++ | |
A index.dcgi | 32 +++++++++++++++++++++++++++++… | |
2 files changed, 48 insertions(+), 0 deletions(-) | |
--- | |
diff --git a/LICENSE b/LICENSE | |
t@@ -0,0 +1,16 @@ | |
+ISC License | |
+ | |
+Copyright (c) 2021 Anders Damsgaard <[email protected]> | |
+Copyright (c) 2021 Christoph Lohmann <[email protected]> | |
+ | |
+Permission to use, copy, modify, and/or distribute this software for any | |
+purpose with or without fee is hereby granted, provided that the above | |
+copyright notice and this permission notice appear in all copies. | |
+ | |
+THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES | |
+WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF | |
+MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR | |
+ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES | |
+WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN | |
+ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF | |
+OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. | |
diff --git a/index.dcgi b/index.dcgi | |
t@@ -0,0 +1,32 @@ | |
+#!/bin/sh | |
+ | |
+search="$1" | |
+arguments="$2" | |
+host="$3" | |
+port="$4" | |
+ | |
+polldb="cancellist.db" | |
+polldescription="description.txt" | |
+polldir="poll" | |
+ | |
+# TODO: Lock access for database trimming. | |
+if [ -n "${search}" ]; then | |
+ tmpdb="$(mktemp)" | |
+ tail -n 99 "${polldb}" > "${tmpdb}" | |
+ printf "%s\n" "${search}" | expand -t 4 >> "${tmpdb}" | |
+ mv "${tmpdb}" "${polldb}" | |
+fi | |
+ | |
+if [ -r "$polldescription" ]; then | |
+ cat "$polldescription" | |
+fi | |
+ | |
+printf '\n' | |
+printf '[7|New choice: _______|/%s|server|port]\n\n' "$polldir" | |
+printf 'Ranking:\n\n' | |
+ | |
+sort "${polldb}" \ | |
+ | uniq -c \ | |
+ | sort -nr | |
+ | |
+printf '\n[1|<< back|/|server|port]\r\n' |