index.cgi

#!/bin/sh
#
# Main CGI interface for TazPanel. In on word: KISS. Use the main CSS form
# command so we are faster and do not load unneeded functions. If necessary
# you can use the lib/ dir to handle external resources.
#
# Copyright (C) 2011-2015 SliTaz GNU/Linux - BSD License
#


# Common functions from libtazpanel

. ./lib/libtazpanel
get_config

TITLE='TazPanel'



# Check whether a configuration file has been modified after installation

file_is_modified() {
	grep -l "  $1$" $INSTALLED/*/md5sum | while read file; do

		# Found, but can we do diff?
		[ "$(grep -h "  $1$" $file)" != "$(md5sum $1)" ] || break
		orig=$(dirname $file)/volatile.cpio.gz
		zcat $orig 2>/dev/null | cpio -t 2>/dev/null | grep -q "^${1#/}$" || break

		case "$2" in
			diff)
				tmp=$(mktemp -d)
				( cd $tmp; zcat $orig | cpio -id ${1#/} )
				diff -abu $tmp$1 $1 | sed "s|$tmp||"
				rm -rf $tmp;;
			button)
				echo -n '<button name="action" value="diff" data-icon="@diff@">'$(_ 'Differences')'</button>';;
		esac
		break
	done
}


# OK status in table

ok_status_t() {
	echo '<td><span class="diff-add" data-img="@ok@"></span></td></tr>'
}



# Terminal prompt

term_prompt() {
	if [ "$user" = 'root' ]; then
		local color1='color31' sign='#'
	else
		local color1='color32' sign='$'
	fi
	echo -n "<span class='$color1'>$user@$(hostname)</span>:<span class='color33'>"
	pwd | sed "s|^$HOME|~|" | tr -d '\n'; echo -n "</span>$sign "
}



#
# Commands
#

case " $(GET) " in

	*\ do\ *)
		case "$(GET do)" in

		*-selection)		# display Yad file/dir picker (AJAX)
			if [ "$(GET do)" = 'dir-selection' ]; then
				title="$(_ 'Choose directory')"
				extra='--directory'
				icon='folder'
			else
				title="$(_ 'Choose file')"
				extra=''
				icon='text-plain'
			fi
			while read name arg ; do
				case "$(GET do)" in
					*$name*)
						extra="$extra $arg" ;;
				esac
			done <<EOT
multiple	--multiple
preview		--add-preview
EOT

			if [ -n "$(GET type)" ]; then
				# Get description and file pattern: yad can select only allowed file types
				# For example, type='application/x-cd-image'
				# Note, here implemented simplified code: not use mimetype aliases and generic icons
				mimefile="/usr/share/mime/$(GET type).xml"
				if [ -f "$mimefile" ]; then
					if [ -n "$LANG" ]; then
						# Localized description
						desc="$(sed -n "s|^.*xml:lang=\"${LANG%%_*}\">\(.*\)<.*|\1|p" $mimefile)"
					fi
					if [ -z "$LANG" ] || [ -z "$desc" ]; then
						# Default (English) description
						desc="$(sed -n "s|^.*<comment>\(.*\)<.*|\1|p" $mimefile)"
					fi
					# File pattern(s), for example, "*.iso\n*.iso9660"
					pattern=$(sed -n 's|^.*pattern=\"\(.*\)\".*|\1|p' $mimefile)
					extra="$extra --file-filter='$desc|$(echo $pattern)'"
				fi
				icon="$(GET type | tr '/' '-')"
			fi

			header
			cd ${HOME:-/}
			if [ -r $HOME/.Xauthority ]; then
				XAUTHORITY="$HOME/.Xauthority"
			else
				XAUTHORITY='/var/run/slim.auth'
			fi

			# Problem with inline quoting in the yad option --file-filter
			# Save temp script into file and execute it
			tempsh="$(mktemp)"
			echo "DISPLAY=':0.0' XAUTHORITY=\"$XAUTHORITY\" \
yad --file-selection --on-top --mouse $extra --width=500 --height=350 \
--title=\"$title\" --window-icon=\"$icon\"" > "$tempsh"
			echo "<input type=\"text\" name=\"$(GET name)\" value=\"$(sh $tempsh)\"/>"
			rm "$tempsh"

			exit 0 ;;

		esac
		;;


	*\ exec\ *)
		# Execute command and display its result in a terminal-like window

		header; xhtml_header "$(_ 'exec')"

		exec="$(GET exec)"
		font="${TERM_FONT:-monospace}"
		palette=$(echo $TERM_PALETTE | tr A-Z a-z)

		cat <<EOT
<section>
	<header>
		$exec
		$(back_button "$(GET back)" "$(GET back_caption)" "$(GET back_icon)")
	</header>
	<div class="term_">
		<pre class="term $palette" style="font-family: '$font'">$($exec 2>&1 | htmlize | filter_taztools_msgs)</pre>
	</div>
</section>
EOT
		;;


	*\ file\ *)
		#
		# Handle files
		#
		header
		file="$(GET file)"
		action="$(POST action)"; [ -z "$action" ] && action="$(GET action)" # receive 'action' both on POST or GET
		title="$(POST title)";   [ -z "$title"  ] && title="$(GET title)"   # (optional)

		case $file in
			*.html)
				cat $file; exit 0 ;;
			*)
				xhtml_header "$(_ 'File')";;
		esac

		case "$action" in
			edit)
				cat <<EOT
<section>
	<header>
		<span data-icon="@edit@">${title:-$file}</span>
		<form id="editform" method="post" action="?file=$file">
			<button data-icon="@save@">$(_ 'Save')</button>
			<button name="action" value="diff" data-icon="@diff@">$(_ 'Differences')</button>
		</form>
		$(back_button)
	</header>
	<textarea form="editform" name="content" class="wide" rows="30" autofocus>$(htmlize < $file)</textarea>
</section>
EOT
#The space before textarea gets muddled when the form is submitted.
#It prevents anything else from getting messed up
			;;

		setvar)
			data="$(. $(GET file) ;eval echo \$$(GET var))"
			cat <<EOT
<section>
	<header>$(GET var)</header>
	<form method="post" action="?file=$file" class="nogap">
		<input type="hidden" name="var" value="$(GET var)">
		<input type="text" name="content" value="${data:-$(GET default)}">
		<button type="submit" data-icon="@save@">$(_ 'Save')</button>
	</form>
</section>
EOT
			;;

		diff)
			cat <<EOT
<section>
	$(back_button)
	<pre id="diff">$(file_is_modified $file diff | syntax_highlighter diff)</pre>
</section>
EOT
			;;

		*)
			R=$(echo -en '\r')
			if [ -n "$(POST content)" ]; then
				if [ -n "$(POST var)" ]; then
					sed -i "s|^\\($(POST var)=\\).*|\1\"$(POST content)\"|" $file
				else
					sed "s/$R /\n/g;s/$R%0//g" > $file <<EOT
$(POST content)
EOT
				fi
			fi

			cat <<EOT
<section class="bigNoScrollable">
	<header>
		<span data-icon="@text@">${title:-$file}</span>
EOT
			if [ -w "$file" ]; then
				cat <<EOT
		<form>
			<input type="hidden" name="file" value="$file"/>
			<button onclick='editFile(); return false' id="edit_button" 
				data-icon="@edit@">$(_ 'Edit')</button><!--
			--><button onclick='saveFile("$file", "$title"); return false' id="save_button" 
				data-icon="@save@" style="display:none">$(_ 'Save')</button><!--
			-->$(file_is_modified $file button)
		</form>
EOT
			elif [ -r "$file" ]; then
				cat <<EOT
		<form>
			<input type="hidden" name="file" value="$file"/>
			$(file_is_modified $file button)
		</form>
EOT
			fi
			cat <<EOT
	</header>

	<div>
		<pre id="fileContent" class="bigScrollable">
EOT
			end_code=''
			# Handle file type by extension as a Web Server does it.
			case "$file" in
				*.sh|*.cgi|*/receipt|*.conf)
					echo '<code class="language-bash">'; end_code='</code>'
					htmlize ;;
				*.ini)
					echo '<code class="language-ini">'; end_code='</code>'
					htmlize ;;
				*.lst)
					syntax_highlighter conf ;;
				*Xorg.0.log)
					syntax_highlighter xlog ;;
				*dmesg.log)
					syntax_highlighter kernel ;;
				*)
					htmlize ;;
			esac < $file
			cat <<EOT
$end_code</pre>
	</div>
</section>
EOT
		esac
		;;



	*\ terminal\ *|*\ cmd\ *)
		# Cmdline terminal

		header; xhtml_header "$(_ 'Terminal')"

		user="$REMOTE_USER"
		HOME="$(getdb passwd | awk -F: -vu=$user '$1==u{print $6}')"
		historyfile="$HOME/.ash_history"

		cmd=$(GET cmd)
		path="$(GET path)"; path="${path:-/tmp}"; cd "$path"

		font="${TERM_FONT:-monospace}"
		palette=$(echo $TERM_PALETTE | tr A-Z a-z)

		[ -n "$cmd" -a "$cmd" != "$(tail -n1 $historyfile)" ] && echo "$cmd" >> $historyfile


		# Terminal history

		if [ "$cmd" = 'history' ]; then
			cat <<EOT
<section>
	<header>
		$(_ 'History')
		<form><button name="terminal" data-icon="@terminal@">$(_ 'Back')</button></form>
	</header>
	<form>
		<input type="hidden" name="path" value="$path"/>
		<pre class="term $palette" style="font-family: '$font'">
EOT

			htmlize < $historyfile | awk -vrun="$(_ 'run')" -vpath="$path" -vq="'" '
BEGIN { num = 1; }
{
	printf("%3d ", num);
	cmd = $0;
	gsub("%",  "%25", cmd); gsub("+",  "%2B", cmd); gsub(" ",    "+",   cmd);
	gsub("\"", "%22", cmd); gsub("!",  "%21", cmd); gsub(q, "%27", cmd);
	printf("<a data-icon=\"@run@\" href=\"?cmd=%s&path=%s\">%s</a> ", cmd, path, run);
	printf("<input type=\"checkbox\" name=\"rm\" value=\"%d\" id=\"hist%d\">", num, num);
	printf("<label for=\"hist%d\">%s</label>\n", num, $0);
	num++;
}'

			cat <<EOT
		</pre>
		<footer>
			<button name="rmhistory" data-icon="@remove@">$(_ 'Clear')</button>
		</footer>
	</form>
</section>
EOT
			xhtml_footer
			exit 0
		fi


		# Terminal window

		cat <<EOT
<span id="num_hist"></span>
<section>
	<pre class="term $palette" style="font-family: '$font'" onclick="document.getElementById('typeField').focus()">
EOT
		if [ -n "$cmd" ]; then
			term_prompt
			echo "$cmd" | htmlize
		fi

		case "$cmd" in
		usage|help)
			_ 'Small non-interactive terminal emulator.'; echo
			_ 'Run any command at your own risk, avoid interactive commands (%s)' 'nano, mc, ...'; echo
			;;
		wget*)
			dl='/var/cache/downloads'
			[ ! -d "$dl" ] && mkdir -p $dl
			_ 'Downloading to: %s' $dl; echo
			cd $dl; $cmd 2>&1 ;;
		cd|cd\ *)
			path="${cmd#cd}"; path="${path:-$HOME}";
			path="$(realpath $path)"; cd "$path" ;;
		ls|ls\ *)
			$cmd -w80 --color=always 2>&1 | filter_taztools_msgs ;;
		cat)
			# Cmd must be used with an arg.
			_ '%s needs an argument' "$cmd" ;;
		mc|nano|su)
			# List of restricted (interactive) commands
			_ "Please, don't run interactive command \"%s\"" "$cmd"; echo; echo ;;
		*)
			unset HTTP_REFERER  # for fooling /lib/libtaz.sh formatting utils (<hr> in the terminal is so-so)
			export DISPLAY=:0.0 # for run X applications
			/bin/sh -c "$cmd" 2>&1 | htmlize | filter_taztools_msgs
			;;
	esac

	cat <<EOT
<form id="term">
<div class="cmdline" id="cmdline"><span id="prompt">$(term_prompt)</span><span id="typeField"> </span></div>
<input type="hidden" name="path" value="$(pwd)"/>
<input type="hidden" name="cmd" id="cmd"/>
</form>
</pre>
</section>

<form>
	<button name="termsettings" data-icon="@settings@">$(_ 'Settings')</button>
	<button name="cmd" value="history" data-icon="@history@">$(_ 'History')</button>
</form>

<script type="text/javascript">
with (document.getElementById('typeField')) {
	contentEditable=true;
	focus();
}
document.onkeydown=keydownHandler;
EOT

	# Export history as array.
	# Escape "all \"quotes\" in quotes", and all '\'
	#  (because \u, \x, \c has special meaning and can produce syntax error and stop js)
	sed 's|\\|\\\\|g; s|"|\\"|g' $historyfile | awk '
	BEGIN{ i=1; printf("ash_history=[") }
	{ printf("\"%s\",", $0); i++ }
	END{
		printf("\"\"];")
		i--; printf("cur_hist=\"%d\";max_hist=\"%d\";", i, i)
	}'
	cat <<EOT
</script>
EOT
	;;


	*\ rmhistory\ *)
		# Manage shell commandline history
		user="$REMOTE_USER"
		HOME="$(getdb passwd | awk -F: -vu="$user" '$1==u{print $6}')"
		historyfile="$HOME/.ash_history"

		# Return sed command for removing history lines ('8d12d' to remove 8 and 12 lines)
		rms=$(echo $QUERY_STRING | awk 'BEGIN{RS="&";FS="="}{if($1=="rm")printf "%dd", $2}')

		if [ -n "$rms" ]; then
			# Actually remove lines
			sed -i $rms $historyfile
			# Redirects back to the history table
			header "HTTP/1.1 301 Moved Permanently" "Location: ?terminal&cmd=history&path=$(GET path)"
			exit 0
		fi
		;;


	*\ termsettings\ *)
		# Terminal settings
		header; xhtml_header "$(_ 'Terminal')"
		user="$REMOTE_USER"
		font="$(GET font)"; font="${font:-$TERM_FONT}"
		palette="$(GET palette)"; palette="${palette:-$TERM_PALETTE}"
		pal=$(echo $palette | tr A-Z a-z)

		# Add or change settings in TazPanel config
		if [ -z "$TERM_FONT" ]; then
			echo -e "\n# Terminal font family\nTERM_FONT=\"$font\"" >> $CONFIG
		else
			sed -i "s|TERM_FONT=.*|TERM_FONT=\"$font\"|" $CONFIG
		fi
		if [ -z "$TERM_PALETTE" ]; then
			echo -e "\n# Terminal color palette\nTERM_PALETTE=\"$palette\"" >> $CONFIG
		else
			sed -i "s|TERM_PALETTE=.*|TERM_PALETTE=\"$palette\"|" $CONFIG
		fi

		cat <<EOT
<section style="position: absolute; top: 0; bottom: 0; left: 0; right: 0; margin: 0.5rem;">
	<header>
		$(_ 'Terminal settings')
		<form>
			<button name="terminal" data-icon="@terminal@">$(_ 'Terminal')</button>
		</form>
	</header>
	<pre class="term $pal" style="height: auto; font-family: '$font'">
<span class='color31'>$user@$(hostname)</span>:<span class='color33'>~</span># palette

$(
	for i in $(seq 30 37); do
		for b in 0 1; do
			for j in $(seq 40 47); do
				echo -n "<span class=\"color$b color$i color$j\">$i:$j</span>"
			done
		done
		echo
	done
)
	</pre>
	<footer>
		<form class="wide">
			$(_ 'Font:')
			<select name="font">
				<option value="">$(_ 'Default')</option>
				$(fc-list :spacing=mono:lang=en family | sed '/\.pcf/d;/,/d;s|\\-|-|g' | sort -u | \
				awk -vfont="$font" '{
				printf("<option value=\"%s\"%s>%s</option>\n", $0, ($0 == font)?" selected":"", $0)
				}')
			</select>
			$(_ 'Palette:')
			<select name="palette">
				$(echo -e 'Tango\nLinux\nXterm\nRxvt\nEcho' | awk -vpal="$palette" '{
				printf("<option value=\"%s\"%s>%s</option>\n", $0, ($0 == pal)?" selected":"", $0)
				}')
			</select>
			<button name="termsettings" data-icon="@ok@">$(_ 'Apply')</button>
		</form>
	</footer>
</section>
EOT

		;;


	*\ top\ *)
		header; xhtml_header "$(_ 'Process activity')"

		r=$(GET refresh)
		cat <<EOT
<form>
	<p>$(_ 'Refresh:')
	<input type="hidden" name="top"/>
	<input type="radio" name="refresh" value="1"  id="r1" $([ "$r" = 1  ] && echo checked) onchange="this.form.submit()"/>
	<label for="r1">$(_ '1s'  )</label>
	<input type="radio" name="refresh" value="5"  id="r2" $([ "$r" = 5  ] && echo checked) onchange="this.form.submit()"/>
	<label for="r2">$(_ '5s'  )</label>
	<input type="radio" name="refresh" value="10" id="r3" $([ "$r" = 10 ] && echo checked) onchange="this.form.submit()"/>
	<label for="r3">$(_ '10s' )</label>
	<input type="radio" name="refresh" value=""   id="r4" $([ -z "$r"    ] && echo checked) onchange="this.form.submit()"/>
	<label for="r4">$(_ 'none')</label>
	</p>
</form>
EOT
		[ -n "$r" ] && echo "<meta http-equiv=\"refresh\" content=\"$r\">"

		[ "$(GET renice)" ] && renice $(GET renice)
		[ "$(GET ionice)" ] && ionice $(GET ionice)
		[ "$(GET kill)" ] && kill $(GET kill)
		if [ "$(GET pid)" ] && [ -d /proc/$(GET pid)/ ]; then
			curpid=$(GET pid)
			curnice=$(awk '{ print int($19) }' /proc/$curpid/stat)
			bootttime=$(awk '{print int($22/100)}' /proc/$curpid/stat)
			uptime=$(awk '{print int($1)}' /proc/uptime)
			now=$(date +%s)
			starttime=$(date -d @$(($now - ($uptime - $bootttime))))
			cat <<EOT
<section>
	<header>
		$(ps auxww 2>/dev/null | sed "/^ *$curpid /!d")
		<form>
		<input type="hidden" name="top"/>
		<button type="submit" data-icon="@remove@" name="kill" value="$curpid">$(_ 'Kill')</button>
		</form>
	</header>
<form>
	<p>$(_ 'Start time:')
		$starttime
	</p>
	<p>$(_ 'Renice')
	<input type="hidden" name="top"/>
	<select name="renice" onchange="this.form.submit()">
EOT
			values="$(seq 20 -1 -20)"
			[ $(id -u) -eq 0 ] || values="$(seq 20 -1 0)"
			for i in $values ; do
				cat <<EOT
	<option value="$i $curpid" $([ $curnice -eq $i ] && echo selected)>$(printf "%+d" $i)</option>
EOT
			done
			cat <<EOT
	</select>
	$(_ 'I/O class')
	<select name="ionice" onchange="this.form.submit()">
EOT
			while read class name max; do
				if [ "$max" ]; then
					[ $(id -u) -ne 0 ] && continue
					for i in $(seq 0 $max); do
						selected="selected"
						[ "$(ionice $curpid)" = "$name: prio $i" ] || selected=""
						echo "		<option value=\"-c $class -n $i -p $curpid\" $selected>$name: prio $i</option>"
					done
				else
					selected="selected"
					[ "$(ionice $curpid)" = "$name" ] || selected=""
					echo "		<option value=\"-c $class -p $curpid\" $selected>$name</option>"
				fi
			done <<EOT
0	none
1	realtime	7
2	best-effort	7
3	idle
EOT
			cat <<EOT
	</select>
	</p>
</form>
</section>
EOT
		fi
		echo '<section><div><pre class="term log">'
		busybox top -n1 -b | htmlize | sed \
			-e 's|^\( *\)\([0-9][0-9]*\)|\1<a href="?top\&amp;pid=\2">\2</a>|' \
			-e 's|^[A-Z].*:|<span class="color1 color31">\0</span>|g' \
			-e 's|^\ *PID|<span class="color1 color32">\0</span>|g'
		echo '</pre></div></section>' ;;


	*\ debug\ *)
		header; xhtml_header "$(_ 'Debug')"

		cat <<EOT
<h2>$(_ 'HTTP Environment')</h2>

<section>
	<div>
		<pre>$(httpinfo | syntax_highlighter conf)</pre>
	</div>
</section>
EOT
		;;


	*\ report\ *)
		header; xhtml_header "$(_ 'System report')"

		[ -d '/var/cache/slitaz' ] || mkdir -p /var/cache/slitaz
		output='/var/cache/slitaz/sys-report.html'

		cat <<EOT
<section>
	<header>$(_ 'Reporting to: %s' "$output")</header>
	<table class="wide zebra">
		<tbody>
			<tr><td>$(_ 'Creating report header...')</td>
EOT
		cat > $output <<EOT
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
	<meta charset="utf-8"/>
	<title>$(_ 'SliTaz system report')</title>
	<style type="text/css">
		body { padding: 20px 60px; font-size: 13px; }
		h1, h2 { color: #444; }
		pre { background: #f1f1f1; border: 1px solid #ddd;
			padding: 10px; border-radius: 4px; }
		span.diff-rm { color: red; }
		span.diff-add { color: green; }
	</style>
</head>
<body>
EOT
		cat <<EOT
	$(ok_status_t)
	<tr><td>$(_ 'Creating system summary...')</td>
EOT
		cat >> $output <<EOT
<h1>$(_ 'SliTaz system report')</h1>
$(_ 'Date:') $(date)
<pre>
uptime   : $(uptime)
cmdline  : $(cat /proc/cmdline)
version  : $(cat /etc/slitaz-release)
packages : $(ls /var/lib/tazpkg/installed | wc -l) installed
kernel   : $(uname -r)
</pre>
EOT
		cat <<EOT
	$(ok_status_t)
	<tr><td>$(_ 'Getting hardware info...')</td>
EOT
		cat >> $output <<EOT
<h2>free</h2>
<pre>$(free)</pre>

<h2>lspci -k</h2>
<pre>$(lspci -k)</pre>

<h2>lsusb</h2>
<pre>$(lsusb)</pre>

<h2>lsmod</h2>
<pre>$(lsmod)</pre>

EOT
		cat <<EOT
	$(ok_status_t)
	<tr><td>$(_ 'Getting networking info...')</td>
EOT
		cat >> $output <<EOT
<h2>ifconfig -a</h2>
<pre>$(ifconfig -a)</pre>

<h2>route -n</h2>
<pre>$(route -n)</pre>

<h2>/etc/resolv.conf</h2>
<pre>$(cat /etc/resolv.conf)</pre>
EOT
		cat <<EOT
	$(ok_status_t)
	<tr><td>$(_ 'Getting filesystems info...')</td>
EOT
		cat >> $output <<EOT
<h2>blkid</h2>
<pre>$(blkid)</pre>

<h2>fdisk -l</h2>
<pre>$(fdisk -l)</pre>

<h2>mount</h2>
<pre>$(mount)</pre>

<h2>df -h</h2>
<pre>$(df -h)</pre>

<h2>df -i</h2>
<pre>$(df -i)</pre>
EOT
		cat <<EOT
	$(ok_status_t)
	<tr><td>$(_ 'Getting boot logs...')</td>
EOT
		cat >> $output <<EOT
<h2>$(_ 'Kernel messages')</h2>
<pre>$(cat /var/log/dmesg.log)</pre>

<h2>$(_ 'Boot scripts')</h2>
<pre>$(filter_taztools_msgs < /var/log/boot.log)</pre>
EOT
		cat <<EOT
	$(ok_status_t)
	<tr><td>$(_ 'Getting package list...')</td>
EOT
		cat >> $output <<EOT
<h2>$(_ 'Packages')</h2>
EOT
( cd /var/lib/tazpkg/installed
for i in * ; do
	echo "$i $(. $i/receipt ; echo "$VERSION $DEPENDS" | xargs echo ; 
		echo "$PROVIDE" | sed 's/:[^ ]*//g' | xargs echo PROVIDE)"
done ) | awk '{
	if ($1 == "PROVIDE") {
		for (i = 2; i <= NF; i++) alias[$i] = 1
	}
	else { pkg[$1]=$0; idx[c++]=$1 }
}
function name(n)
{
	split(pkg[n], x, " ")
	return x[1] " (" x[2] ") "
}
END {
	print "<pre>"
	for (i in pkg) for (j = split(pkg[i], p, " "); j > 2; j--) {
		if (pkg[p[j]] || alias[p[j]]) kill[p[j]]=1
		else { miss=1 ; print "Missing dep " p[j] " for " name(p[1]) }
	}
	if (miss) print ""
	n=0
	for (i=0; i < c; i++) {
		if (kill[idx[i]]) continue
		printf "%s" name(idx[i])
		if (n++ < 2) continue
		printf "\n"
		n=0
	}
	print "</pre>"
}
' >> $output
		if [ "$(ls report.d/* 2> /dev/null)" ]; then
			cat <<EOT
	$(ok_status_t)
	<tr><td>$(_ 'Getting extra reports...')</td>
EOT
			for i in report.d/* ; do
				sh $i $i >> $output
			done
		fi
		cat <<EOT
	$(ok_status_t)
	<tr><td>$(_ 'Creating report footer...')</td>
EOT
		cat >> $output <<EOT
</body>
</html>
EOT
		cat <<EOT
	$(ok_status_t)
		</tbody>
	</table>
	<footer>
		<form><button name="file" value="$output" data-icon="@view@">$(_ 'View')</button></form>
	</footer>
</section>


	$(msg tip "$(_ 'This report can be attached with a bug report on:')
	<a href="http://bugs.slitaz.org/" target="_blank" rel="noopener">bugs.slitaz.org</a></p>")
EOT
		;;


	*)
		#
		# Default xHTML content
		#
		header; xhtml_header "$(_ 'SliTaz administration and configuration Panel')"
		[ -n "$(GET gen_locale)" ] && new_locale=$(GET gen_locale)
		[ -n "$(GET rdate)" ] && echo ""
		hostname=$(hostname)

		cat <<EOT
<form class="nogap"><!--
	--><button name="terminal" data-icon="@terminal@">$(_ 'Terminal')</button><!--
	--><button name="top"      data-icon="@proc@">$(_ 'Process activity')</button><!--
	--><button name="report"   data-icon="@report@" data-root>$(_ 'Create a report')</button><!--
--></form>

<section>
	<header>$(_ 'Summary')</header>
	<table>
		<tr><td>$(_ 'Host:')</td><td>$hostname</td></tr>
		<tr><td>$(_ 'Uptime:')</td>
			<td id="uptime">$(uptime | sed 's|\([0-9.:][0-9.:]*\)|<b>\1</b>|g')</td>
		</tr>
		<tr><td>$(_ 'Memory in Mb:')</td>
			<td>$(free -m | grep Mem: | \
				awk -vline="$(gettext 'Total: %d, Used: %d, Free: %d')" \
				'{ printf(line, $2, $3, $4) }' | \
				sed 's|\([0-9][0-9]*\)|<b>\1</b>|g')</td>
		</tr>
		<tr><td>$(_ 'Linux kernel:')</td>
			<td>$(uname -r)</td>
		</tr>
	</table>
</section>


<section>
	<header>
		$(_ 'Network status')
		<form action="network.cgi">
			<button data-icon="@wifi@">$(_ 'Network')</button>
		</form>
	</header>
	$(list_network_interfaces)
</section>


<section>
	<header>
		$(_ 'Filesystem usage statistics')
		<form action="hardware.cgi">
			<button data-icon="@hdd@">$(_ 'Disks')</button>
		</form>
	</header>
	<table class="wide zebra center">
EOT
		# Disk stats (management is done as hardware.cgi)
		df_thead
		echo '<tbody>'
		df -h | grep ^/dev | while read fs size used av pct mp; do
				cat <<EOT
			<tr>
				<td><span data-icon="@hdd@">${fs#/dev/}</span></td>
				<td>$(busybox blkid $fs | sed '/LABEL=/!d;s/.*LABEL="\([^"]*\).*/\1/')</td>
				<td>$(busybox blkid $fs | sed '/TYPE=/!d;s/.*TYPE="\([^"]*\).*/\1/')</td>
				<td>$size</td>
				<td>$av</td>
				<td class="meter"><meter min="0" max="100" value="$(echo $pct | cut -d% -f1)"
					low="$DU_WARN" high="$DU_CRIT" optimum="10"></meter>
					<span>$used - $pct</span>
				</td>
				<td>$mp</td>
				<td>$(busybox blkid $fs | sed '/UUID=/!d;s/.*UUID="\([^"]*\).*/\1/')</td>
			</tr>
EOT
		done
		cat <<EOT
		</tbody>
	</table>
</section>

<section>
	<header>
		$(_ 'Panel Activity')
		<form>
			<button name="file" value="$LOG_FILE" data-icon="@view@">$(_ 'View')</button>
		</form>
	</header>
	<div>
		<pre id="panel-activity">
$(tail -n 8 < $LOG_FILE | sort -r | syntax_highlighter activity)</pre>
	</div>
</section>
EOT
		;;
esac

xhtml_footer
exit 0