rev |
line source |
pankso@46
|
1 #!/bin/sh
|
pankso@46
|
2 #
|
pankso@46
|
3 # Hardware part of TazPanel - Devices, drivers, printing
|
pankso@46
|
4 #
|
al@419
|
5 # Copyright (C) 2011-2015 SliTaz GNU/Linux - BSD License
|
pankso@46
|
6 #
|
pankso@46
|
7
|
pankso@46
|
8 # Common functions from libtazpanel
|
pascal@613
|
9 . ./lib/libtazpanel
|
pankso@46
|
10 get_config
|
pascal@81
|
11 header
|
pankso@46
|
12
|
al@501
|
13 TITLE=$(_ 'Hardware')
|
pankso@46
|
14
|
paul@385
|
15 # Call an optional module
|
al@426
|
16 lib() {
|
pascal@373
|
17 module=lib/$1
|
pascal@373
|
18 shift
|
pascal@373
|
19 [ -s $module ] && . $module "$@"
|
pascal@373
|
20 }
|
pascal@373
|
21
|
pascal@431
|
22 disk_info() {
|
pascal@431
|
23 fdisk -l | fgrep Disk | while read a b c; do
|
pascal@431
|
24 d=${b#/dev/}
|
pascal@431
|
25 d="/sys/block/${d%:}/device"
|
pascal@431
|
26 [ -d $d ] && echo "$a $b $c, $(cat $d/vendor) $(cat $d/model)"
|
pascal@612
|
27 smartctl -a ${b%:} | sed '/^Model/,/^Firmware/!d'
|
pascal@431
|
28 done 2> /dev/null | sed 's/ */ /g'
|
pascal@431
|
29 }
|
al@419
|
30
|
pascal@473
|
31 lsusb_vd() {
|
pascal@473
|
32 if lsusb --help 2>&1 | grep -qi busybox ; then
|
pascal@473
|
33 for i in /sys/class/usb_device/*/device ; do
|
pascal@473
|
34 grep -qs ${1%:*} $i/idVendor || continue
|
pascal@473
|
35 grep -qs ${1#*:} $i/idProduct || continue
|
pascal@473
|
36 ( cd $i ; for j in * ; do
|
pascal@473
|
37 [ -f $j -a -r $j ] || continue
|
pascal@473
|
38 case "$j" in
|
pascal@473
|
39 descriptors|remove) continue
|
pascal@473
|
40 esac
|
pascal@569
|
41 awk -vn=$j '{printf "%-20s %s\n",n,$0;n=""}' <$j
|
pascal@473
|
42 done )
|
pascal@473
|
43 break
|
pascal@473
|
44 done
|
pascal@473
|
45 else
|
pascal@473
|
46 lsusb -vd $1 | syntax_highlighter lsusb
|
pascal@473
|
47 fi
|
pascal@473
|
48 }
|
pascal@473
|
49
|
al@426
|
50 lsusb_table() {
|
al@419
|
51 cat <<EOT
|
al@419
|
52 <table class="wide zebra">
|
al@426
|
53 <thead>
|
al@426
|
54 <tr>
|
al@443
|
55 <td>$(_ 'Bus')</td>
|
al@443
|
56 <td>$(_ 'Device')</td>
|
al@443
|
57 <td>$(_ 'ID')</td>
|
al@443
|
58 <td>$(_ 'Name')</td>
|
al@426
|
59 </tr>
|
al@426
|
60 </thead>
|
al@363
|
61 <tbody>
|
al@363
|
62 EOT
|
pascal@473
|
63 lsusb | while read x b y d z id name ; do
|
pascal@473
|
64 echo "<tr><td>$b</td><td>${d%:}</td><td><a href=\"?lsusb=$id"
|
pascal@473
|
65 p=$(printf "class/usb_device/usbdev%d.%d" $b ${d%:})
|
pascal@473
|
66 grep -qs 0 /sys/$p/device/authorized && id="<del>$id</del>"
|
pascal@566
|
67 echo "\">$id</td><td>${name:-$(sed 's/ .*//' /sys/$p/device/manufacturer) $(cat /sys/$p/device/product)}</td></tr>"
|
pascal@473
|
68 done
|
al@363
|
69 echo "</tbody></table>"
|
al@363
|
70 }
|
al@363
|
71
|
al@419
|
72
|
al@426
|
73 lspci_table() {
|
al@419
|
74 cat <<EOT
|
al@419
|
75 <table class="wide zebra">
|
al@541
|
76 <thead><tr>
|
al@541
|
77 <td>$(_ 'Slot')</td>
|
al@541
|
78 <td>$(_ 'Device')</td>
|
al@541
|
79 <td>$(_ 'Name')</td>
|
al@541
|
80 </tr></thead>
|
al@363
|
81 <tbody>
|
al@363
|
82 EOT
|
pascal@596
|
83 lspci | while read a b c id ; do
|
pascal@596
|
84 if [ $b != "Class" ] || [ ! -s /usr/share/misc/pci.ids.gz ]; then
|
pascal@597
|
85 echo "X$a $b $c $id"
|
pascal@596
|
86 continue
|
pascal@596
|
87 fi
|
pascal@597
|
88 echo -n "$a "
|
pascal@596
|
89 zcat /usr/share/misc/pci.ids.gz | \
|
pascal@596
|
90 awk -va=${c:0:2} -vb=${c:2:2} -vh=${id:0:4} -vl=${id:5:4} '{
|
pascal@596
|
91 if ($1 == "C" && $2 == a) class=substr($0,5)
|
pascal@596
|
92 if (class != "" && $1 == b) { class=substr($0,5); exit }
|
pascal@596
|
93 if (substr($0,1,4) == h) m=substr($0,7)
|
pascal@596
|
94 else if (m == "") next
|
pascal@596
|
95 else if (substr($0,2,4) == l) { name=m substr($0,7); m="" }
|
pascal@596
|
96 else if ($1 == h && $2 == l) { name=m substr($0,14); m="" }
|
pascal@598
|
97 } END { print "[" a b "] " class ": [" h "/" l "] " name }'
|
pascal@596
|
98 done | sed 's| |</td><td>|;
|
al@363
|
99 s|: |</td><td>|;
|
pascal@597
|
100 s|^X\([^<]*\)|<a href="?lspci=\1">\1</a>|;
|
al@363
|
101 s|^.*$|<tr><td>\0</td></tr>|'
|
al@363
|
102 echo "</tbody></table>"
|
al@363
|
103 }
|
al@363
|
104
|
al@426
|
105
|
pankso@46
|
106 #
|
pankso@46
|
107 # Commands
|
pankso@46
|
108 #
|
pankso@46
|
109
|
pascal@81
|
110 case " $(GET) " in
|
pascal@81
|
111 *\ print\ *)
|
al@303
|
112 xhtml_header
|
al@419
|
113 echo "<h2>TODO</h2>"
|
al@419
|
114 ;;
|
al@419
|
115
|
al@419
|
116
|
psychomaniak@407
|
117 *\ tazx\ *)
|
psychomaniak@407
|
118 xhtml_header
|
al@419
|
119 cat <<EOT
|
psychomaniak@407
|
120 <pre>$(tazx auto)</pre>
|
psychomaniak@407
|
121 EOT
|
psychomaniak@407
|
122 ;;
|
al@419
|
123
|
al@419
|
124
|
pankso@242
|
125 *\ detect\ *)
|
pankso@242
|
126 # Front end for Tazhw
|
pankso@242
|
127 # TODO: Add button to detect webcam, etc. Like in tazhw box.
|
al@501
|
128 xhtml_header "$(_ 'Detect hardware')"
|
al@419
|
129 cat <<EOT
|
al@443
|
130 <p>$(_ 'Detect PCI and USB hardware')</p>
|
pankso@242
|
131 EOT
|
pascal@567
|
132 tazhw detect-pci | htmlize
|
pascal@567
|
133 tazhw detect-usb | htmlize | filter_taztools_msgs
|
al@303
|
134 ;;
|
al@419
|
135
|
al@419
|
136
|
pascal@81
|
137 *\ modules\ *|*\ modinfo\ *)
|
al@501
|
138 xhtml_header "$(_ 'Kernel modules')"
|
al@501
|
139
|
al@501
|
140 search="$(GET search)"
|
al@419
|
141 cat <<EOT
|
al@443
|
142 <p>$(_ 'Manage, search or get information about the Linux kernel modules')</p>
|
al@419
|
143
|
al@501
|
144 <form class="search">
|
al@419
|
145 <input type="hidden" name="modules"/>
|
al@501
|
146 <input type="search" name="search" value="$search" placeholder="$(_ 'Modules search')" results="5" autosave="modsearch" autocomplete="on"/>
|
al@501
|
147 <button type="submit">$(_n 'Search')</button>
|
al@419
|
148 </form>
|
pankso@46
|
149 EOT
|
pankso@66
|
150 # Request may be modinfo output that we want in the page itself
|
al@303
|
151 get_modinfo="$(GET modinfo)"
|
al@303
|
152 if [ -n "$get_modinfo" ]; then
|
al@419
|
153 cat <<EOT
|
al@419
|
154 <section>
|
al@443
|
155 <header>$(_ 'Detailed information for module: %s' $get_modinfo)</header>
|
al@501
|
156 <div class="scroll">
|
al@303
|
157
|
al@303
|
158 EOT
|
al@419
|
159 modinfo $get_modinfo | awk 'BEGIN{print "<table class=\"wide zebra\">"}
|
al@419
|
160 {
|
al@419
|
161 printf("<tr><td><b>%s</b></td>", $1)
|
al@419
|
162 $1=""; printf("<td>%s</td></tr>", $0)
|
al@419
|
163 }
|
al@501
|
164 END{print "</table></div></section>"}'
|
pascal@81
|
165 fi
|
al@419
|
166
|
pascal@81
|
167 if [ -n "$(GET modprobe)" ]; then
|
al@303
|
168 echo "<pre>$(modprobe -v $(GET modprobe))</pre>"
|
pascal@81
|
169 fi
|
pascal@81
|
170 if [ -n "$(GET rmmod)" ]; then
|
pascal@81
|
171 echo "Removing"
|
pascal@81
|
172 rmmod -w $(GET rmmod)
|
pascal@81
|
173 fi
|
al@501
|
174
|
al@501
|
175 # Module search
|
al@501
|
176 if [ -n "$search" ]; then
|
al@501
|
177 cat <<EOT
|
al@501
|
178 <section>
|
al@501
|
179 <header>$(_ 'Matching result(s) for: %s' $search)</header>
|
al@501
|
180 <pre class="scroll">
|
al@501
|
181 EOT
|
al@501
|
182 busybox modprobe -l | grep "$search" | while read line
|
pascal@81
|
183 do
|
pascal@81
|
184 name=$(basename $line)
|
al@501
|
185 mod=${name%.ko.xz}
|
al@558
|
186 echo "<span data-icon=\"@modules@\">$(_ 'Module:')</span> <a href='?modinfo=$mod'>$mod</a>"
|
pascal@81
|
187 done
|
al@501
|
188 echo '</pre></section>'
|
pascal@81
|
189 fi
|
al@501
|
190
|
al@419
|
191 cat <<EOT
|
al@419
|
192 <section>
|
al@426
|
193 <table class="zebra">
|
al@419
|
194 <thead>
|
al@419
|
195 <tr>
|
al@443
|
196 <td>$(_ 'Module')</td>
|
al@443
|
197 <td>$(_ 'Description')</td>
|
al@443
|
198 <td>$(_ 'Size')</td>
|
al@443
|
199 <td>$(_ 'Used')</td>
|
al@443
|
200 <td>$(_ 'by')</td>
|
al@419
|
201 </tr>
|
al@419
|
202 <thead>
|
al@419
|
203 <tbody>
|
pankso@46
|
204 EOT
|
pankso@46
|
205 # Get the list of modules and link to modinfo
|
al@419
|
206 lsmod | tail -n+2 | awk '{
|
al@419
|
207 gsub(",", " ", $4);
|
al@419
|
208 printf("<tr><td><a href=\"?modinfo=%s\">%s</a></td><td>", $1, $1);
|
al@419
|
209 system("modinfo -d " $1);
|
al@419
|
210 printf("</td><td>%s</td><td>%s</td><td>%s</td></tr>", $2, $3, $4);
|
al@419
|
211 }'
|
al@419
|
212 cat <<EOT
|
al@419
|
213 </thead>
|
al@419
|
214 </table>
|
al@419
|
215 </section>
|
pankso@46
|
216 EOT
|
al@419
|
217 ;;
|
al@419
|
218
|
al@419
|
219
|
al@363
|
220 *\ lsusb\ *)
|
al@363
|
221 xhtml_header
|
al@363
|
222 vidpid="$(GET lsusb)"
|
al@419
|
223 cat <<EOT
|
al@443
|
224 <h2>$(_ 'Information for USB Device %s' $vidpid)</h2>
|
al@419
|
225
|
al@443
|
226 <p>$(_ 'Detailed information about specified device.')</p>
|
al@419
|
227
|
al@419
|
228 <section>$(lsusb_table)</section>
|
al@426
|
229 EOT
|
al@426
|
230 [ "$vidpid" != 'lsusb' ] && cat <<EOT
|
al@419
|
231 <section>
|
pascal@473
|
232 <pre style="white-space: pre-wrap">$(lsusb_vd $vidpid)</pre>
|
al@419
|
233 </section>
|
al@363
|
234 EOT
|
al@363
|
235 ;;
|
al@419
|
236
|
al@419
|
237
|
al@363
|
238 *\ lspci\ *)
|
al@363
|
239 xhtml_header
|
al@363
|
240 slot="$(GET lspci)"
|
al@419
|
241 cat <<EOT
|
al@443
|
242 <h2>$(_ 'Information for PCI Device %s' $slot)</h2>
|
al@419
|
243
|
al@443
|
244 <p>$(_ 'Detailed information about specified device.')</p>
|
al@419
|
245
|
al@419
|
246 <section>$(lspci_table)</section>
|
al@426
|
247 EOT
|
al@426
|
248 [ "$slot" != 'lspci' ] && cat <<EOT
|
al@419
|
249 <section>
|
al@426
|
250 <pre style="white-space: pre-wrap">$(lspci -vs $slot | syntax_highlighter lspci)</pre>
|
al@419
|
251 </section>
|
al@363
|
252 EOT
|
al@363
|
253 ;;
|
al@419
|
254
|
al@419
|
255
|
pankso@66
|
256 *)
|
pascal@217
|
257 [ -n "$(GET brightness)" ] &&
|
al@426
|
258 echo -n $(GET brightness) > /sys/devices/virtual/backlight/$(GET dev)/brightness
|
al@292
|
259
|
pankso@66
|
260 #
|
pankso@66
|
261 # Default to summary with mounted filesystem, loaded modules
|
pankso@66
|
262 #
|
al@501
|
263 xhtml_header "$(_ 'Drivers & Devices')"
|
al@419
|
264 cat <<EOT
|
al@443
|
265 <p>$(_ 'Manage your computer hardware')</p>
|
al@419
|
266
|
al@419
|
267 <form><!--
|
al@558
|
268 --><button name="modules" data-icon="@modules@">$(_ 'Kernel modules')</button><!--
|
al@558
|
269 --><button name="detect" data-icon="@detect@" data-root>$(_ 'Detect PCI/USB')</button><!--
|
al@558
|
270 --><button name="tazx" data-icon="@tazx@" data-root>$(_ 'Auto-install Xorg video driver')</button><!--
|
al@437
|
271 --></form>
|
pascal@219
|
272
|
pascal@217
|
273 EOT
|
al@419
|
274
|
al@419
|
275
|
al@419
|
276 # Battery state
|
al@419
|
277 if [ -n "$(ls /proc/acpi/battery/*/info 2>/dev/null)" ]; then
|
al@419
|
278 cat <<EOT
|
al@419
|
279 <section>
|
al@443
|
280 <header>$(_ 'Battery')</header>
|
al@419
|
281 <div>
|
al@419
|
282 <table class="wide">
|
al@419
|
283 EOT
|
pascal@219
|
284 for dev in /proc/acpi/battery/*; do
|
pascal@219
|
285 grep ^present $dev/info | grep -q yes || continue
|
al@419
|
286 design=$(sed '/design capacity:/!d; s/[^0-9]*\([0-9]*\).*/\1/' < $dev/info)
|
al@419
|
287 remain=$(sed '/remaining capacity/!d; s/[^0-9]*\([0-9]*\).*/\1/' < $dev/state)
|
al@419
|
288 rate=$(sed '/present rate/!d; s/[^0-9]*\([0-9]*\).*/\1/' < $dev/state)
|
al@419
|
289 full=$(sed '/last full capacity/!d; s/[^0-9]*\([0-9]*\).*/\1/' < $dev/info)
|
al@303
|
290 warning=$(sed '/design capacity warning/!d;s/[^0-9]*\([0-9]*\).*/\1/' < $dev/info)
|
al@419
|
291 low=$(sed '/design capacity low/!d; s/[^0-9]*\([0-9]*\).*/\1/' < $dev/info)
|
al@419
|
292 state=$(sed '/charging state/!d; s/\([^:]*:[ ]\+\)\([a-z]\+\)/\2/' < $dev/state)
|
al@303
|
293
|
al@303
|
294 rempct=$(( $remain * 100 / $full ))
|
al@419
|
295 cat <<EOT
|
al@419
|
296 <tr>
|
al@558
|
297 <td><span data-icon="@battery@">$(_ 'Battery')</span>
|
al@419
|
298 $(grep "^battery type" $dev/info | sed 's/.*: *//')
|
al@419
|
299 $(grep "^design capacity:" $dev/info | sed 's/.*: *//') </td>
|
al@443
|
300 <td>$(_ 'health') $(( (100*$full)/$design))%</td>
|
al@419
|
301 <td class="meter"><meter min="0" max="$full" value="$remain" low="$low"
|
al@419
|
302 high="$warning" optimum="$full"></meter>
|
al@419
|
303 <span>
|
pascal@219
|
304 EOT
|
al@303
|
305 case "$state" in
|
al@303
|
306 "discharging")
|
al@303
|
307 remtime=$(( $remain * 60 / $rate ))
|
al@303
|
308 remtimef=$(printf "%d:%02d" $(($remtime/60)) $(($remtime%60)))
|
al@443
|
309 _ 'Discharging %d%% - %s' $rempct $remtimef ;;
|
al@303
|
310 "charging")
|
al@303
|
311 remtime=$(( ($full - $remain) * 60 / $rate ))
|
al@303
|
312 remtimef=$(printf "%d:%02d" $(($remtime/60)) $(($remtime%60)))
|
pascal@468
|
313 _ 'Charging %d%% - %s' $rempct $remtimef ;;
|
al@303
|
314 "charged")
|
pascal@469
|
315 _ 'Charged 100%%' ;;
|
al@303
|
316 esac
|
al@419
|
317 cat <<EOT
|
al@419
|
318
|
al@419
|
319 </span>
|
al@419
|
320 </td>
|
al@419
|
321 </tr>
|
al@419
|
322 EOT
|
pascal@219
|
323 done
|
al@419
|
324 cat <<EOT
|
al@419
|
325 </table>
|
al@419
|
326 </div>
|
al@419
|
327 </section>
|
al@419
|
328 EOT
|
pascal@219
|
329 fi
|
al@303
|
330
|
al@419
|
331
|
al@419
|
332 # Thermal sensors
|
al@419
|
333 if [ -n "$(ls /sys/devices/virtual/thermal/*/temp 2>/dev/null)" ]; then
|
al@558
|
334 echo "<p><span data-icon=\"@temperature@\">$(_ 'Temperature:')</span>"
|
pascal@262
|
335 for temp in /sys/devices/virtual/thermal/*/temp; do
|
al@419
|
336 awk '{ print $1/1000 "℃" }' < $temp
|
pascal@219
|
337 done
|
al@303
|
338 echo '</p>'
|
pascal@219
|
339 fi
|
al@303
|
340
|
al@419
|
341
|
al@419
|
342 # Brightness
|
al@419
|
343 if [ -n "$(ls /sys/devices/virtual/backlight/*/brightness 2>/dev/null)" ]; then
|
al@419
|
344 echo '<form>'
|
al@419
|
345 for dev in /sys/devices/virtual/backlight/*/brightness; do
|
pascal@262
|
346 name=$(echo $dev | sed 's|.*/backlight/\([^/]*\).*|\1|')
|
pascal@217
|
347 cat <<EOT
|
al@419
|
348 <input type="hidden" name="dev" value="$name"/>
|
al@558
|
349 <span data-icon="@brightness@">$(_ 'Brightness')</span> \
|
pascal@263
|
350 $(sed 's/.*\.//;s/_*$//' < /sys/devices/virtual/backlight/$name/device/path):
|
al@419
|
351 <select name="brightness" onchange="submit();">
|
pascal@217
|
352 EOT
|
pascal@262
|
353 max=$(cat /sys/devices/virtual/backlight/$name/max_brightness)
|
pascal@262
|
354 for i in $(seq 0 $max); do
|
pascal@262
|
355 echo -n "<option value=\"$i\""
|
pascal@262
|
356 [ $i -eq $(cat /sys/devices/virtual/backlight/$name/actual_brightness) ] &&
|
pascal@262
|
357 echo -n " selected=\"selected\""
|
pascal@262
|
358 echo "> $(( (($i + 1) * 100) / ($max + 1) ))% </option>"
|
pascal@262
|
359 done
|
al@419
|
360 echo '</select>'
|
pascal@217
|
361 done
|
al@419
|
362 echo '</form>'
|
pascal@217
|
363 fi
|
pankso@152
|
364
|
al@363
|
365
|
al@419
|
366 cat <<EOT
|
al@419
|
367 <section>
|
al@419
|
368 <form action="#mount" class="wide">
|
al@443
|
369 <header id="disk">$(_ 'Filesystem usage statistics')</header>
|
al@419
|
370 <div>
|
pascal@431
|
371 <pre>$(disk_info)</pre>
|
al@419
|
372 </div>
|
pankso@66
|
373 EOT
|
al@303
|
374
|
al@303
|
375
|
pankso@153
|
376 #
|
pascal@376
|
377 # Loop device management actions
|
pascal@376
|
378 #
|
pascal@376
|
379 device=$(GET loopdev)
|
pascal@376
|
380 lib crypto $device
|
pascal@376
|
381 case "$device" in
|
pascal@425
|
382 /dev/*loop*)
|
pascal@376
|
383 set -- $(losetup | grep ^$device:)
|
pascal@376
|
384 [ -n "$3" ] && losetup -d $device
|
pascal@376
|
385 ro=""
|
pascal@376
|
386 [ -n "$(GET readonly)" ] && ro="-r"
|
pascal@376
|
387 file="$(GET backingfile)"
|
pascal@376
|
388 [ -n "$file" ] && losetup -o $(GET offset) $ro $device $file
|
pascal@376
|
389 esac
|
al@419
|
390
|
al@419
|
391
|
pascal@376
|
392 #
|
al@303
|
393 # Disk stats and management (mount, umount, check)
|
pankso@153
|
394 #
|
pascal@344
|
395 device=$(GET device)
|
pascal@373
|
396 lib crypto $device
|
pascal@344
|
397 case "$device" in
|
pascal@344
|
398 *[\;\`\&\|\$]*) ;;
|
pascal@344
|
399 mount\ *)
|
pascal@375
|
400 ro=""
|
pascal@375
|
401 [ -n "$(GET readonly)" ] && ro="-r"
|
pascal@389
|
402 mntdir="$(GET mountpoint)"
|
pascal@389
|
403 [ -d "$mntdir" ] || mkdir -p "$mntdir"
|
pascal@389
|
404 $device $ro "$mntdir";;
|
pascal@344
|
405 umount\ *|swapon\ *|swapoff\ *)
|
pascal@344
|
406 $device ;;
|
pascal@344
|
407 esac
|
al@419
|
408 cat <<EOT
|
al@419
|
409 <table id="mount" class="zebra wide center">
|
al@303
|
410 EOT
|
pankso@153
|
411 df_thead
|
al@303
|
412 echo '<tbody>'
|
al@426
|
413 for fs in $(blkid | sort | sed 's/:.*//'); do
|
pascal@373
|
414 set -- $(df -h | grep "^$fs ")
|
pascal@343
|
415 size=$2
|
pascal@343
|
416 used=$3
|
pascal@343
|
417 av=$4
|
pascal@375
|
418 grep "^$fs " /proc/mounts | grep -q "[, ]ro[, ]" &&
|
pascal@375
|
419 av="<del>$av</del>"
|
pascal@343
|
420 pct=$5
|
pascal@343
|
421 mp=$6
|
al@419
|
422
|
al@419
|
423 # action
|
pascal@344
|
424 action="mount"
|
pascal@344
|
425 [ -n "$mp" ] && action="umount"
|
pascal@570
|
426 type=$(blkid $fs | sed '/ TYPE=/!d;s/.* TYPE="\([^"]*\).*/\1/')
|
pascal@570
|
427 [ -n "$type" ] || continue
|
pascal@344
|
428 [ "$type" == "swap" ] && action="swapon"
|
pascal@344
|
429 if grep -q "^$fs " /proc/swaps; then
|
pascal@344
|
430 action="swapoff"
|
pascal@344
|
431 set -- $(grep "^$fs " /proc/swaps)
|
pascal@364
|
432 size=$(blk2h $(($3*2)))
|
pascal@364
|
433 used=$(blk2h $(($4*2)))
|
pascal@364
|
434 av=$(blk2h $((2*($3-$4))))
|
pascal@344
|
435 pct=$(((100*$4)/$3))%
|
pascal@344
|
436 mp=swap
|
pascal@344
|
437 fi
|
al@419
|
438
|
al@419
|
439 # size
|
pascal@364
|
440 [ -z "$size" ] &&
|
pascal@364
|
441 size="$(blk2h $(cat /sys/block/${fs#/dev/}/size /sys/block/*/${fs#/dev/}/size))"
|
al@419
|
442
|
al@419
|
443 # image
|
al@558
|
444 disktype="@hdd@"
|
al@419
|
445 case "$(cat /sys/block/${fs#/dev/}/removable 2>/dev/null ||
|
al@419
|
446 cat /sys/block/${fs:5:3}/removable 2>/dev/null)" in
|
al@558
|
447 1) disktype="@removable@" ;;
|
pascal@373
|
448 esac
|
al@419
|
449 case "$(cat /sys/block/${fs#/dev/}/ro 2>/dev/null ||
|
al@419
|
450 cat /sys/block/${fs:5:3}/ro 2>/dev/null)" in
|
al@558
|
451 1) disktype="@cd@" ;;
|
pascal@373
|
452 esac
|
al@419
|
453
|
pascal@473
|
454 radio="<input type=\"radio\" name=\"device\" value=\"$action $fs\" id=\"${fs#/dev/}\"/>"
|
pascal@473
|
455 [ "$REMOTE_USER" == "root" ] || radio=""
|
al@419
|
456 cat <<EOT
|
al@419
|
457 <tr>
|
pascal@473
|
458 <td>$radio<!--
|
al@419
|
459 --><label for="${fs#/dev/}" data-icon="$disktype"> ${fs#/dev/}</label></td>
|
al@419
|
460 <td>$(blkid $fs | sed '/LABEL=/!d;s/.*LABEL="\([^"]*\).*/\1/')</td>
|
al@419
|
461 <td>$type</td>
|
al@419
|
462 <td>$size</td>
|
al@419
|
463 <td>$av</td>
|
pascal@343
|
464 EOT
|
pascal@343
|
465 if [ -n "$pct" ]; then
|
al@419
|
466 cat <<EOT
|
al@419
|
467 <td class="meter"><meter min="0" max="100" value="${pct%%%}" low="70"
|
al@419
|
468 high="90" optimum="10"></meter>
|
al@419
|
469 <span>$used - $pct</span>
|
al@419
|
470 </td>
|
pascal@343
|
471 EOT
|
pascal@343
|
472 else
|
al@419
|
473 cat <<EOT
|
al@419
|
474 <td> </td>
|
pascal@343
|
475 EOT
|
pascal@343
|
476 fi
|
al@419
|
477 cat <<EOT
|
al@419
|
478 <td>$mp</td>
|
al@419
|
479 <td>$(blkid $fs | sed '/UUID=/!d;s/.*UUID="\([^"]*\).*/\1/')</td>
|
al@419
|
480 </tr>
|
pankso@153
|
481 EOT
|
pankso@153
|
482 done
|
al@419
|
483 cat <<EOT
|
al@419
|
484 </tbody>
|
al@419
|
485 </table>
|
pascal@433
|
486 EOT
|
pascal@433
|
487 [ "$REMOTE_USER" == "root" ] && cat <<EOT
|
al@419
|
488 $(lib crypto input)
|
al@363
|
489
|
al@419
|
490 <footer>
|
al@419
|
491 <button type="submit">mount / umount</button> -
|
al@443
|
492 $(_ 'new mount point:') <input type="text" name="mountpoint" value="/media/usbdisk"/> -
|
al@443
|
493 <input type="checkbox" name="readonly" id="ro"><label for="ro"> $(_ 'read-only')</label>
|
al@419
|
494 </footer>
|
pascal@433
|
495 EOT
|
pascal@433
|
496 cat <<EOT
|
al@419
|
497 </form>
|
al@419
|
498 </section>
|
al@363
|
499 EOT
|
al@363
|
500
|
al@419
|
501
|
al@419
|
502 #
|
al@419
|
503 # /etc/fstab
|
al@419
|
504 #
|
al@419
|
505 cat <<EOT
|
al@419
|
506 <section>
|
al@426
|
507 <header>
|
al@443
|
508 $(_ 'Filesystems table')
|
pascal@523
|
509 $(edit_button /etc/fstab)
|
al@426
|
510 </header>
|
al@419
|
511 <table class="wide zebra center">
|
al@419
|
512 <thead>
|
al@419
|
513 <tr>
|
al@443
|
514 <td>$(_ 'Disk')</td>
|
al@443
|
515 <td>$(_ 'Mount point')</td>
|
al@443
|
516 <td>$(_ 'Type')</td>
|
al@443
|
517 <td>$(_ 'Options')</td>
|
al@443
|
518 <td>$(_ 'Freq')</td>
|
al@443
|
519 <td>$(_ 'Pass')</td>
|
al@419
|
520 </tr>
|
al@419
|
521 </thead>
|
al@419
|
522 <tbody>
|
al@419
|
523 EOT
|
al@419
|
524
|
al@419
|
525 grep -v '^#' /etc/fstab | awk '{
|
al@419
|
526 print "<tr><td>" $1 "</td><td>" $2 "</td><td>" $3 "</td><td>" $4
|
al@419
|
527 print "</td><td>" $5 "</td><td>" $6 "</td></tr>"
|
al@419
|
528 }
|
al@363
|
529 END{print "</tbody></table>"}'
|
al@363
|
530
|
al@419
|
531 cat <<EOT
|
al@419
|
532 </section>
|
al@419
|
533 EOT
|
al@363
|
534
|
al@363
|
535
|
al@419
|
536 #
|
al@419
|
537 # Loop device management GUI
|
al@419
|
538 #
|
al@419
|
539 cat <<EOT
|
al@419
|
540 <section>
|
al@443
|
541 <header>$(_ 'Loop devices')</header>
|
al@419
|
542
|
al@419
|
543 <form action="#loop" class="wide">
|
pascal@429
|
544 <div class="scroll">
|
pascal@429
|
545 <table id="loop" class="wide zebra scroll">
|
al@419
|
546 <thead>
|
al@419
|
547 <tr>
|
al@443
|
548 <td>$(_ 'Device')</td>
|
al@443
|
549 <td>$(_ 'Backing file')</td>
|
pascal@497
|
550 <td>$(_ 'Size')</td>
|
al@443
|
551 <td>$(_ 'Access')</td>
|
al@443
|
552 <td>$(_ 'Offset')</td>
|
al@419
|
553 </tr>
|
al@419
|
554 </thead>
|
al@419
|
555 <tbody>
|
pascal@373
|
556 EOT
|
pascal@425
|
557 for devloop in $(ls /dev/*loop[0-9]*); do
|
al@419
|
558 loop="${devloop#/dev/}"
|
pascal@497
|
559 dir=/sys/block/$loop
|
pascal@497
|
560 case "$(cat $dir/ro 2>/dev/null)" in
|
al@443
|
561 0) ro="$(_ "read/write")" ;;
|
al@443
|
562 1) ro="$(_ "read only")" ;;
|
pascal@373
|
563 *) ro="" ;;
|
pascal@373
|
564 esac
|
pascal@497
|
565 size=$(blk2h $(cat $dir/size))
|
pascal@497
|
566 [ "$size" == "0.0K" ] && size="" && ro=""
|
pascal@497
|
567 set -- $(losetup $devloop)
|
pascal@497
|
568 set -- "${3:-$(cat $dir/loop/backing_file)}" "${2:-$(cat $dir/loop/offset)}" ${ro// / }
|
al@419
|
569 cat <<EOT
|
al@419
|
570 <tr><td><input type="radio" name="loopdev" value="$devloop" id="$loop"/><!--
|
al@558
|
571 --><label for="$loop" data-icon="@loopback@">$loop</label></td>
|
pascal@497
|
572 <td>$1</td><td>$size</td><td align="center">$3</td><td align="right">$2</td>
|
al@419
|
573 </tr>
|
pascal@373
|
574 EOT
|
pascal@373
|
575 done
|
al@419
|
576 cat <<EOT
|
al@419
|
577 </tbody>
|
al@419
|
578 </table>
|
pascal@429
|
579 </div>
|
al@419
|
580
|
pascal@373
|
581 $(lib crypto input)
|
al@419
|
582
|
al@419
|
583 <footer>
|
al@558
|
584 <button type="submit" data-icon="@ok@">$(_ 'Setup')</button> -
|
al@443
|
585 $(_ 'new backing file:') <input type="text" name="backingfile"/> -
|
al@443
|
586 $(_ 'offset in bytes:') <input type="text" name="offset" value="0" size="8"/> -
|
al@443
|
587 <input type="checkbox" name="readonly" id="ro"/><label for="ro">$(_ 'read only')</label>
|
al@419
|
588 </footer>
|
al@419
|
589 </form>
|
al@419
|
590 </section>
|
pascal@373
|
591 EOT
|
pascal@373
|
592
|
al@419
|
593
|
al@419
|
594 #
|
al@419
|
595 # System memory
|
al@419
|
596 #
|
al@419
|
597 mem_total=$(free -m | awk '$1 ~ "M" {print $2}')
|
al@419
|
598 mem_used=$((100 * $(free -m | awk '$1 ~ "+" {print $3}') / mem_total))
|
al@419
|
599 mem_buff=$((100 * $(free -m | awk '$1 ~ "M" {print $6}') / mem_total))
|
al@419
|
600 mem_free=$((100 - mem_used - mem_buff))
|
al@419
|
601
|
al@419
|
602 cat <<EOT
|
al@419
|
603 <section>
|
al@443
|
604 <header>$(_ 'System memory')</header>
|
al@419
|
605
|
al@419
|
606 <div class="sysmem"><!--
|
al@443
|
607 --><span class="sysmem_used" style="width: ${mem_used}%" title="$(_ 'Used')" ><span>${mem_used}%</span></span><!--
|
al@419
|
608 EOT
|
al@419
|
609 [ $mem_buff != 0 ] && cat <<EOT
|
al@443
|
610 --><span class="sysmem_buff" style="width: ${mem_buff}%" title="$(_ 'Buffers')"><span>${mem_buff}%</span></span><!--
|
al@419
|
611 EOT
|
al@419
|
612 cat <<EOT
|
al@443
|
613 --><span class="sysmem_free" style="width: ${mem_free}%" title="$(_ 'Free')" ><span>${mem_free}%</span></span><!--
|
al@419
|
614 --></div>
|
al@419
|
615
|
al@419
|
616 <table class="wide zebra center">
|
al@419
|
617 <thead>
|
al@419
|
618 <tr>
|
al@419
|
619 <td> </td>
|
al@419
|
620 <td>total</td>
|
al@419
|
621 <td>used</td>
|
al@419
|
622 <td>free</td>
|
al@419
|
623 <td>shared</td>
|
al@419
|
624 <td>buffers</td>
|
al@419
|
625 </tr>
|
al@419
|
626 </thead>
|
al@419
|
627 <tbody>
|
al@303
|
628 EOT
|
al@303
|
629
|
al@419
|
630 free -m | awk '
|
al@419
|
631 $1 ~ "M" {print "<tr><td>"$1"</td><td>"$2"</td><td>"$3"</td><td>"$4"</td><td>"$5"</td><td>"$6"</td></tr>"}
|
al@419
|
632 $1 ~ "+" {print "<tr><td>"$1 $2"</td><td></td><td>"$3"</td><td>"$4"</td><td></td><td></td></tr>"}
|
al@419
|
633 $1 ~ "S" {print "<tr><td>"$1"</td><td>"$2"</td><td>"$3"</td><td>"$4"</td><td></td><td></td></tr>"}'
|
al@303
|
634
|
al@419
|
635 cat <<EOT
|
al@419
|
636 </tbody>
|
al@419
|
637 </table>
|
al@419
|
638 </section>
|
al@419
|
639 EOT
|
al@303
|
640
|
al@419
|
641
|
al@419
|
642 #
|
al@419
|
643 # lspci and lsusb summary tables
|
al@419
|
644 #
|
al@419
|
645 cat <<EOT
|
al@419
|
646 <section>
|
al@419
|
647 <header>lspci</header>
|
al@419
|
648 $(lspci_table)
|
al@419
|
649 </section>
|
al@419
|
650
|
al@419
|
651
|
al@419
|
652 <section>
|
al@419
|
653 <header>lsusb</header>
|
al@419
|
654 $(lsusb_table)
|
al@419
|
655 </section>
|
al@303
|
656 EOT
|
al@419
|
657 ;;
|
pankso@46
|
658 esac
|
pankso@46
|
659
|
pankso@46
|
660 xhtml_footer
|
pankso@46
|
661 exit 0
|