summaryrefslogtreecommitdiff
path: root/src/www/minibar/feedback.cgi
diff options
context:
space:
mode:
authorhallgren <hallgren@chalmers.se>2011-10-12 17:03:54 +0000
committerhallgren <hallgren@chalmers.se>2011-10-12 17:03:54 +0000
commit44d1a5a9f71b03d9aceeccd760a63fcdc45f8bad (patch)
treed51076a708997d6f1af6ac0deefd535bbc25f804 /src/www/minibar/feedback.cgi
parent0aba45560d2033c37c3d2e876e6f3ef89e1554d6 (diff)
Improvements of "gf -server" mode and related setup
"gf -server" mode now contains everything needed to run the minibar and the grammar editor (including example-based grammar writing). The Setup.hs script installs the required files where gf -server can find them. These files have been moved to a new directory: src/www. The separate server program pgf-http is now obsolete.
Diffstat (limited to 'src/www/minibar/feedback.cgi')
-rw-r--r--src/www/minibar/feedback.cgi44
1 files changed, 44 insertions, 0 deletions
diff --git a/src/www/minibar/feedback.cgi b/src/www/minibar/feedback.cgi
new file mode 100644
index 000000000..0d382f22d
--- /dev/null
+++ b/src/www/minibar/feedback.cgi
@@ -0,0 +1,44 @@
+#!/bin/bash
+
+bin=bin
+AUTOHEADER=no
+. $bin/cgistart.sh
+
+save_feedback() {
+getquery
+
+if [ -n "$feedback_path" ] &&
+ echo "t=$(date +%F+%T)&ip=$REMOTE_ADDR&$query&accept_language=$HTTP_ACCEPT_LANGUAGE&user_agent=$(echo -n $HTTP_USER_AGENT | plain2url)" >> "$feedback_path"
+then
+
+ pagestart "Thank you!"
+ echo "Your feedback has been saved."
+ begin script type="text/javascript"
+ echo "setTimeout(function(){window.close()},4000);"
+ end
+ pageend
+
+else
+
+ pagestart "Feedback error"
+ echo "Your feedback could not be saved. Sorry."
+ p
+ tag 'input type=button onclick="javascript:history.back()" value="&lt;- Go back"'
+ pageend
+
+fi
+}
+
+view_feedback() {
+ charset="UTF-8"
+ pagestart "Collected Feedback"
+ begin pre class=feedbacklist
+ Reg show reverse drop color_depth,pixel_depth,outer_size,inner_size,available_screen_size from-url <"$PATH_TRANSLATED" | plain2html
+ end
+ pageend
+}
+
+case "$PATH_TRANSLATED" in
+ "") save_feedback ;;
+ *) view_feedback
+esac