tazpanel view hardware.cgi @ rev 343
hardware.cgi: display UUID
| author | Pascal Bellard <pascal.bellard@slitaz.org> |
|---|---|
| date | Sat Feb 02 12:18:44 2013 +0100 (2013-02-02) |
| parents | 3e9acc16f728 |
| children | d2f3ed66f258 |
line source
1 #!/bin/sh
2 #
3 # Hardware part of TazPanel - Devices, drivers, printing
4 #
5 # Copyright (C) 2011 SliTaz GNU/Linux - BSD License
6 #
8 # Common functions from libtazpanel
9 . lib/libtazpanel
10 get_config
11 header
13 TITLE=$(gettext 'TazPanel - Hardware')
15 #
16 # Commands
17 #
19 case " $(GET) " in
20 *\ print\ *)
21 xhtml_header
22 echo "<h2>TODO</h2>" ;;
23 *\ detect\ *)
24 # Front end for Tazhw
25 # TODO: Add button to detect webcam, etc. Like in tazhw box.
26 xhtml_header
27 cat << EOT
28 <div id="wrapper">
29 <h2>$(gettext 'Detect hardware')</h2>
30 <p>$(gettext 'Detect PCI and USB hardware')</p>
31 </div>
33 <pre>$(tazhw detect-pci | syntax_highlighter sh)</pre>
35 <pre>$(tazhw detect-usb | syntax_highlighter sh)</pre>
36 EOT
37 ;;
38 *\ modules\ *|*\ modinfo\ *)
39 xhtml_header
40 cat << EOT
41 <div id="wrapper">
42 <h2>$(gettext 'Kernel modules')</h2>
43 <div class="float-right">
44 <form method="get" action="$SCRIPT_NAME">
45 <input type="hidden" name="modules" />
46 <input type="search" placeholder="$(gettext 'Modules search')" name="search" />
47 </form>
48 </div>
49 <p>$(gettext 'Manage, search or get information about the Linux kernel modules')</p>
50 </div>
51 EOT
52 # Request may be modinfo output that we want in the page itself
53 get_modinfo="$(GET modinfo)"
54 if [ -n "$get_modinfo" ]; then
55 cat << EOT
56 <strong>$(eval_gettext 'Detailed information for module: $get_modinfo')</strong>
58 <pre>$(modinfo $get_modinfo)</pre>
59 EOT
60 fi
61 if [ -n "$(GET modprobe)" ]; then
62 echo "<pre>$(modprobe -v $(GET modprobe))</pre>"
63 fi
64 if [ -n "$(GET rmmod)" ]; then
65 echo "Removing"
66 rmmod -w $(GET rmmod)
67 fi
68 get_search="$(GET search)"
69 if [ -n "$get_search" ]; then
70 eval_gettext 'Matching result(s) for: $get_search'
71 echo '<pre>'
72 modprobe -l | grep "$(GET search)" | while read line
73 do
74 name=$(basename $line)
75 mod=${name%.ko.gz}
76 echo "$(gettext 'Module:') <a href='$SCRIPT_NAME?modinfo=$mod'>$mod</a>"
77 done
78 echo '</pre>'
79 fi
80 cat << EOT
81 $(table_start)
82 <tr class="thead">
83 <td>$(gettext 'Module')</td>
84 <td>$(gettext 'Size')</td>
85 <td>$(gettext 'Used')</td>
86 <td>$(gettext 'by')</td>
87 </tr>
88 EOT
89 # Get the list of modules and link to modinfo
90 lsmod | grep ^[a-z] | while read MOD SIZE USED BY
91 do
92 cat << EOT
93 <tr>
94 <td><a href="$SCRIPT_NAME?modinfo=$MOD">$MOD</a></td>
95 <td>$SIZE</td>
96 <td>$USED</td>
97 <td>$(echo $BY | sed s/","/" "/g)</td>
98 </tr>
99 EOT
100 done
101 table_end ;;
102 *)
103 [ -n "$(GET brightness)" ] &&
104 echo -n $(GET brightness) > /sys/devices/virtual/backlight/$(GET dev)/brightness
106 #
107 # Default to summary with mounted filesystem, loaded modules
108 #
109 xhtml_header
110 cat << EOT
111 <div id="wrapper">
112 <h2>$(gettext 'Drivers & Devices')</h2>
113 <p>$(gettext 'Manage your computer hardware')</p>
114 </div>
115 <div>
116 <a class="button" href="$SCRIPT_NAME?modules">
117 <img src="$IMAGES/tux.png" />$(gettext 'Kernel modules')</a>
118 <a class="button" href="$SCRIPT_NAME?detect">
119 <img src="$IMAGES/monitor.png" />$(gettext 'Detect PCI/USB')</a>
120 </div>
122 <div id="wrapper">
123 EOT
124 if [ -n "$(ls /proc/acpi/battery/*/info 2> /dev/null)" ]; then
125 echo "<table>"
126 for dev in /proc/acpi/battery/*; do
127 grep ^present $dev/info | grep -q yes || continue
128 design=$(sed '/design capacity:/!d;s/[^0-9]*\([0-9]*\).*/\1/' < $dev/info)
129 remain=$(sed '/remaining capacity/!d;s/[^0-9]*\([0-9]*\).*/\1/' < $dev/state)
130 rate=$(sed '/present rate/!d;s/[^0-9]*\([0-9]*\).*/\1/' < $dev/state)
131 full=$(sed '/last full capacity/!d;s/[^0-9]*\([0-9]*\).*/\1/' < $dev/info)
132 warning=$(sed '/design capacity warning/!d;s/[^0-9]*\([0-9]*\).*/\1/' < $dev/info)
133 low=$(sed '/design capacity low/!d;s/[^0-9]*\([0-9]*\).*/\1/' < $dev/info)
134 state=$(sed '/charging state/!d;s/\([^:]*:[ ]\+\)\([a-z]\+\)/\2/' < $dev/state)
136 rempct=$(( $remain * 100 / $full ))
137 cat << EOT
138 <tr>
139 <td><img src="$IMAGES/battery.png" />
140 $(gettext 'Battery') $(grep "^battery type" $dev/info | sed 's/.*: *//')
141 $(grep "^design capacity:" $dev/info | sed 's/.*: *//') </td>
142 <td>$(gettext 'health') $(( (100*$full)/$design))%</td>
143 <td class="meter"><meter min="0" max="$full" value="$remain" low="$low"
144 high="$warning" optimum="$full"></meter>
145 <span>
146 EOT
147 case "$state" in
148 "discharging")
149 remtime=$(( $remain * 60 / $rate ))
150 remtimef=$(printf "%d:%02d" $(($remtime/60)) $(($remtime%60)))
151 eval_gettext 'Discharging $rempct% - $remtimef' ;;
152 "charging")
153 remtime=$(( ($full - $remain) * 60 / $rate ))
154 remtimef=$(printf "%d:%02d" $(($remtime/60)) $(($remtime%60)))
155 eval_gettext 'Charging $rempct% - $remtimef' ;;
156 "charged")
157 gettext 'Charged 100%' ;;
158 esac
159 echo '</span></td></tr>'
160 done
161 echo "</table>"
162 fi
164 if [ -n "$(ls /sys/devices/virtual/thermal/*/temp 2> /dev/null)" ]; then
165 echo -n '<p>'; gettext 'Temperature:'
166 for temp in /sys/devices/virtual/thermal/*/temp; do
167 awk '{ print $1/1000 }' < $temp
168 done
169 echo '</p>'
170 fi
172 if [ -n "$(ls /sys/devices/virtual/backlight/*/brightness 2> /dev/null)" ]; then
173 cat <<EOT
174 <form method="get" action="$SCRIPT_NAME">
175 EOT
176 for dev in /sys/devices/virtual/backlight/*/brightness ; do
177 name=$(echo $dev | sed 's|.*/backlight/\([^/]*\).*|\1|')
178 cat <<EOT
179 <input type="hidden" name="dev" value="$name" />
180 $(gettext 'Brightness') \
181 $(sed 's/.*\.//;s/_*$//' < /sys/devices/virtual/backlight/$name/device/path):
182 <select name="brightness" onchange="submit();">
183 EOT
184 max=$(cat /sys/devices/virtual/backlight/$name/max_brightness)
185 for i in $(seq 0 $max); do
186 echo -n "<option value=\"$i\""
187 [ $i -eq $(cat /sys/devices/virtual/backlight/$name/actual_brightness) ] &&
188 echo -n " selected=\"selected\""
189 echo "> $(( (($i + 1) * 100) / ($max + 1) ))% </option>"
190 done
191 cat <<EOT
192 </select>
193 EOT
194 done
195 cat << EOT
196 </form>
197 EOT
198 fi
199 cat << EOT
200 </div>
202 <h3>$(gettext 'Filesystem usage statistics')</h3>
203 <pre>
204 EOT
205 fdisk -l | fgrep Disk
206 echo '</pre>'
209 #
210 # Disk stats and management (mount, umount, check)
211 #
212 cat << EOT
213 <table class="zebra outbox">
214 EOT
215 df_thead
216 echo '<tbody>'
217 blkid | sort | while read dev misc
218 do
219 fs=${dev%:}
220 set --
221 df | grep -q "^$fs " && set -- $(df -h | grep "^$fs ")
222 size=$2
223 used=$3
224 av=$4
225 pct=$5
226 mp=$6
227 cat << EOT
228 <tr>
229 <td><img src="$IMAGES/harddisk.png" />${fs#/dev/}</td>
230 <td>$(blkid $fs | sed '/LABEL=/!d;s/.*LABEL="\([^"]*\).*/\1/')</td>
231 <td>$(blkid $fs | sed '/TYPE=/!d;s/.*TYPE="\([^"]*\).*/\1/')</td>
232 <td>$size</td>
233 <td>$av</td>
234 EOT
235 if [ -n "$pct" ]; then
236 cat << EOT
237 <td class="meter"><meter min="0" max="100" value="${pct%%%}" low="70"
238 high="90" optimum="10"></meter>
239 <span>$used - $pct</span>
240 </td>
241 EOT
242 else
243 cat << EOT
244 <td></td>
245 EOT
246 fi
247 cat << EOT
248 <td>$mp</td>
249 </tr>
250 EOT
251 done
252 cat << EOT
253 </tbody>
254 </table>
256 EOT
259 cat << EOT
260 <h3>$(gettext 'System memory')</h3>
261 <pre>
262 EOT
263 free -m | sed \
264 -e s"#total.*\([^']\)#<span class='top'>\0</span>#"g \
265 -e s"#^[A-Z-].*:\([^']\)#<span class='sh-comment'>\0</span>#"g
266 cat << EOT
267 </pre>
269 <h3>lspci</h3>
270 <pre>
271 EOT
272 lspci -k | sed \
273 -e s"#^[0-9].*\([^']\)#<span class='diff-at'>\0</span>#" \
274 -e s"#use: \(.*\)#use: <span class='diff-rm'>\1</span>#"
275 cat << EOT
276 </pre>
278 <h3>lsusb</h3>
279 <pre>$(lsusb)</pre>
280 EOT
281 ;;
282 esac
284 xhtml_footer
285 exit 0