tazpanel rev 533

index.cgi: add kill button
author Pascal Bellard <pascal.bellard@slitaz.org>
date Sat Aug 29 12:16:13 2015 +0200 (2015-08-29)
parents 8a5c0513df49
children c0f8e615df7d
files index.cgi
line diff
     1.1 --- a/index.cgi	Fri Aug 28 14:31:20 2015 +0200
     1.2 +++ b/index.cgi	Sat Aug 29 12:16:13 2015 +0200
     1.3 @@ -463,21 +463,28 @@
     1.4  		[ -n "$r" ] && echo "<meta http-equiv=\"refresh\" content=\"$r\">"
     1.5  
     1.6  		[ "$(GET renice)" ] && renice $(GET renice)
     1.7 -		if [ "$(GET pid)" ]; then
     1.8 +		[ "$(GET kill)" ] && kill $(GET kill)
     1.9 +		if [ "$(GET pid)" ] && [ -d /proc/$(GET pid)/ ]; then
    1.10 +			curpid=$(GET pid)
    1.11 +			curnice=$(awk '{ print $19 }' /proc/$curpid/stat)
    1.12  			cat <<EOT
    1.13  <section>
    1.14 -<p>
    1.15 -$(ps auxww | sed "/^ *$(GET pid) /!d")
    1.16 -</p>
    1.17 +	<header>
    1.18 +		$(ps auxww | sed "/^ *$curpid /!d")
    1.19 +		<form>
    1.20 +		<input type="hidden" name="top"/>
    1.21 +		<button type="submit" data-icon="remove" name="kill" value="$curpid">$(_ 'Kill')</button>
    1.22 +		</form>
    1.23 +	</header>
    1.24  <form>
    1.25 -	<p>$(_ 'Renice:')
    1.26 +	<p>$(_ 'Renice')[$curnice]
    1.27  	<input type="hidden" name="top"/>
    1.28  EOT
    1.29 -			values="+19 +10 +5 +1 0 -1 -5 -10 -19"
    1.30 -			[ $(id -u) -eq 0 ] || values="+19 +10 +5 +1"
    1.31 +			values="+19 +15 +10 +5 +3 +1 0 -1 -3 -5 -10 -15 -19"
    1.32 +			[ $(id -u) -eq 0 ] || values="+19 +15 +10 +5 +3 +1"
    1.33  			for i in $values ; do
    1.34  				cat <<EOT
    1.35 -	<input type="radio" name="renice" value="$i $(GET pid)" onchange="this.form.submit()"/>
    1.36 +	<input type="radio" name="renice" value="$i $curpid" $([ $curnice -eq $i ] && echo checked) onchange="this.form.submit()"/>
    1.37  	<label>$i</label>
    1.38  EOT
    1.39  			done