tazpanel rev 53

Add a debug page and a QUERY_STRING parser so we can use names CASE WANT VAR_1 VAR_2
author Christophe Lincoln <pankso@slitaz.org>
date Sun Apr 10 21:28:13 2011 +0200 (2011-04-10)
parents 730f8bcacabc
children 6104795d77ff
files index.cgi lib/libtazpanel
line diff
     1.1 --- a/index.cgi	Sun Apr 10 11:23:06 2011 +0000
     1.2 +++ b/index.cgi	Sun Apr 10 21:28:13 2011 +0200
     1.3 @@ -20,6 +20,8 @@
     1.4  TEXTDOMAIN='tazpanel'
     1.5  export TEXTDOMAIN
     1.6  
     1.7 +
     1.8 +
     1.9  #
    1.10  # Things to do before displaying the page
    1.11  #
    1.12 @@ -36,6 +38,23 @@
    1.13  #
    1.14  
    1.15  case "$QUERY_STRING" in
    1.16 +	debug*)
    1.17 +		TITLE="- Debug"
    1.18 +		query_string_parser
    1.19 +		xhtml_header
    1.20 +		cat << EOT
    1.21 +<pre>
    1.22 +QUERY_STRING="$QUERY_STRING" 
    1.23 +
    1.24 +Fuction: query_string_parser (<a href="?debug=test=var1=var2">test</a>)
    1.25 +
    1.26 +CASE="$CASE"
    1.27 +WANT="$WANT"
    1.28 +VAR_1="$VAR_1"
    1.29 +VAR_2="$VAR_2"
    1.30 +</pre>
    1.31 +EOT
    1.32 +		;;
    1.33  	*)
    1.34  		#
    1.35  		# Default xHTML content
    1.36 @@ -82,6 +101,10 @@
    1.37  		<input type="password" name="panel-pass"/>
    1.38  	</div>
    1.39  </form>
    1.40 +<p>
    1.41 +$(gettext "TazPanel provide a debuging mode and page:")
    1.42 +<a href='$SCRIPT_NAME?debug'>debug</a>
    1.43 +</p>
    1.44  
    1.45  EOT
    1.46  		;;
     2.1 --- a/lib/libtazpanel	Sun Apr 10 11:23:06 2011 +0000
     2.2 +++ b/lib/libtazpanel	Sun Apr 10 21:28:13 2011 +0200
     2.3 @@ -20,6 +20,22 @@
     2.4  		exit 1
     2.5  }
     2.6  
     2.7 +# TazPanel QUERY_STRING parser ruturns: CASE WANT VAR_1 VAR_4
     2.8 +# we use that to help getting URL string variable an use names
     2.9 +query_string_parser() {
    2.10 +	id=0
    2.11 +	for var in $(echo "$QUERY_STRING" | sed s'@=@ @'g)
    2.12 +	do
    2.13 +		id=$((id + 1))
    2.14 +		case "$id" in
    2.15 +			'1') CASE=${var% } ;;
    2.16 +			'2') WANT=${var% } ;;
    2.17 +			'3') VAR_1=${var% } ;;
    2.18 +			'4') VAR_2=${var% } ;;
    2.19 +		esac
    2.20 +	done
    2.21 +}
    2.22 +
    2.23  # DEBUG mode
    2.24  debug_info() {
    2.25  	if [ $DEBUG == "1" ]; then