tazpanel annotate index.cgi @ rev 55

debug: add HTTP environment
author Christophe Lincoln <pankso@slitaz.org>
date Sun Apr 10 22:01:15 2011 +0200 (2011-04-10)
parents 6104795d77ff
children 769f91a0718d
rev   line source
pankso@2 1 #!/bin/sh
pankso@2 2 #
paul@52 3 # Main CGI interface for TazPanel. In on word: KISS. Use the main css form
paul@52 4 # command so we are faster and do not load unneeded functions. If necessary
pankso@14 5 # you can use the lib/ dir to handle external resources.
pankso@2 6 #
pankso@42 7 # Copyright (C) 2011 SliTaz GNU/Linux - GNU gpl v3
pankso@42 8 #
pankso@2 9 echo "Content-Type: text/html"
pankso@2 10 echo ""
pankso@2 11
pankso@14 12 # Common functions from libtazpanel
pankso@14 13 . lib/libtazpanel
pankso@14 14 get_config
pankso@2 15
pankso@22 16 # Include gettext helper script.
pankso@22 17 . /usr/bin/gettext.sh
pankso@22 18
pankso@22 19 # Export package name for gettext.
pankso@39 20 TEXTDOMAIN='tazpanel'
pankso@22 21 export TEXTDOMAIN
pankso@22 22
pankso@2 23 #
pankso@49 24 # Things to do before displaying the page
pankso@49 25 #
pankso@49 26
pankso@49 27 case "$QUERY_STRING" in
pankso@49 28 panel-pass=*)
pankso@49 29 new=${QUERY_STRING#*=}
pankso@49 30 sed -i s@/:root:.*@/:root:$new@ $HTTPD_CONF ;;
pankso@49 31 *) continue ;;
pankso@49 32 esac
pankso@49 33
pankso@49 34 #
pankso@2 35 # Commands
pankso@2 36 #
pankso@2 37
pankso@2 38 case "$QUERY_STRING" in
pankso@53 39 debug*)
pankso@53 40 TITLE="- Debug"
pankso@53 41 query_string_parser
pankso@53 42 xhtml_header
pankso@53 43 cat << EOT
pankso@55 44 <h2>QUERY_STRING</h2>
pankso@53 45 <pre>
pankso@53 46 QUERY_STRING="$QUERY_STRING"
pankso@53 47
pankso@53 48 Fuction: query_string_parser (<a href="?debug=test=var1=var2">test</a>)
pankso@53 49
pankso@53 50 CASE="$CASE"
pankso@53 51 WANT="$WANT"
pankso@53 52 VAR_1="$VAR_1"
pankso@53 53 VAR_2="$VAR_2"
pankso@53 54 </pre>
pankso@53 55 EOT
pankso@55 56 echo '<h2>HTTP Environment</h2>'
pankso@55 57 local var
pankso@55 58 local info
pankso@55 59 echo '<pre>'
pankso@55 60 for var in SERVER_SOFTWARE SERVER_NAME SERVER_PORT GATEWAY_INTERFACE \
pankso@55 61 AUTH_TYPE REMOTE_ADDR REMOTE_PORT HTTP_HOST HTTP_USER_AGENT \
pankso@55 62 HTTP_ACCEPT_LANGUAGE REQUEST_METHOD REQUEST_URI QUERY_STRING \
pankso@55 63 CONTENT_LENGTH CONTENT_TYPE SCRIPT_NAME SCRIPT_FILENAME PWD
pankso@55 64 do
pankso@55 65 eval info=\$$var
pankso@55 66 echo "$var=\"$info\""
pankso@55 67 done
pankso@55 68 echo '</pre>' ;;
pankso@2 69 *)
pankso@14 70 #
pankso@2 71 # Default xHTML content
pankso@14 72 #
pankso@8 73 xhtml_header
pankso@49 74 debug_info
pankso@42 75 case "$QUERY_STRING" in
pankso@42 76 gen-locale=*)
pankso@42 77 new_locale=${QUERY_STRING#gen-locale=} ;;
pankso@42 78 rdate)
pankso@42 79 echo "" ;;
pankso@42 80 esac
pankso@2 81 cat << EOT
pankso@13 82 <div id="wrapper">
pankso@14 83 <h2>`gettext "Host:"` `hostname`</h2>
paul@52 84 <p>`gettext "SliTaz administration and configuration Panel"`<p>
pankso@14 85 </div>
pankso@14 86
pankso@14 87 <h3>`gettext "Summary"`</h3>
pankso@14 88 <div id="summary">
pankso@33 89 <p>
pankso@33 90 `gettext "Uptime:"` `uptime`
pankso@33 91 </p>
pankso@33 92 <p>
pankso@33 93 `gettext "Memory in Mb"`
pankso@33 94 `free -m | grep Mem: | awk \
pankso@33 95 '{print "| Total:", $2, "| Used:", $3, "| Free:", $4}'`
pankso@33 96 </p>
pankso@33 97 <!-- Close summary -->
pankso@33 98 </div>
pankso@14 99
pankso@33 100 <h4>`gettext "Network status"`</h4>
pankso@33 101 `list_network_interfaces`
pankso@33 102
pankso@33 103 <h4>`gettext "Filesystem usage statistics"`</h4>
pankso@14 104 <pre>
pankso@14 105 `df -h | grep ^/dev`
pankso@14 106 </pre>
pankso@49 107
pankso@49 108 <h3>`gettext "Panel settings"`</h3>
pankso@49 109 <form method="get" action="$SCRIPT_NAME">
pankso@49 110 <div>
pankso@54 111 `gettext "Panel password:"`
pankso@49 112 <input type="password" name="panel-pass"/>
pankso@54 113 <input type="submit" value="`gettext "Change"`" />
pankso@49 114 </div>
pankso@49 115 </form>
pankso@53 116 <p>
pankso@54 117 $(gettext "TazPanel provide a debuging mode and page:")
pankso@54 118 <a href='$SCRIPT_NAME?debug'>debug</a>
pankso@53 119 </p>
pankso@49 120
pankso@2 121 EOT
pankso@2 122 ;;
pankso@2 123 esac
pankso@2 124
pankso@14 125 xhtml_footer
pankso@14 126 exit 0