tazpanel annotate hardware.cgi @ rev 46
Add hardware.cgi, tiny fix in pkgs.cgi and add a TODO list
| author | Christophe Lincoln <pankso@slitaz.org> |
|---|---|
| date | Fri Apr 08 05:59:24 2011 +0200 (2011-04-08) |
| parents | |
| children | cf15cb2ff715 |
| rev | line source |
|---|---|
| pankso@46 | 1 #!/bin/sh |
| pankso@46 | 2 # |
| pankso@46 | 3 # Hardware part of TazPanel - Devices, drivers, printing |
| pankso@46 | 4 # |
| pankso@46 | 5 # Copyright (C) 2011 SliTaz GNU/Linux - GNU gpl v3 |
| pankso@46 | 6 # |
| pankso@46 | 7 echo "Content-Type: text/html" |
| pankso@46 | 8 echo "" |
| pankso@46 | 9 |
| pankso@46 | 10 # Common functions from libtazpanel |
| pankso@46 | 11 . lib/libtazpanel |
| pankso@46 | 12 get_config |
| pankso@46 | 13 |
| pankso@46 | 14 # Include gettext helper script. |
| pankso@46 | 15 . /usr/bin/gettext.sh |
| pankso@46 | 16 |
| pankso@46 | 17 # Export package name for gettext. |
| pankso@46 | 18 TEXTDOMAIN='tazpanel' |
| pankso@46 | 19 export TEXTDOMAIN |
| pankso@46 | 20 |
| pankso@46 | 21 TITLE="- Hardware" |
| pankso@46 | 22 |
| pankso@46 | 23 # |
| pankso@46 | 24 # Commands |
| pankso@46 | 25 # |
| pankso@46 | 26 |
| pankso@46 | 27 case "$QUERY_STRING" in |
| pankso@46 | 28 print*) |
| pankso@46 | 29 echo "TODO" ;; |
| pankso@46 | 30 *) |
| pankso@46 | 31 # |
| pankso@46 | 32 # Default to summary with mounted filesystem, loaded modules |
| pankso@46 | 33 # |
| pankso@46 | 34 xhtml_header |
| pankso@46 | 35 cat << EOT |
| pankso@46 | 36 <div id="wrapper"> |
| pankso@46 | 37 <h2>`gettext "Drivers & Devices"`</h2> |
| pankso@46 | 38 <p>`gettext "Manage your computer hardware`</p> |
| pankso@46 | 39 </div> |
| pankso@46 | 40 EOT |
| pankso@46 | 41 echo '<pre>' |
| pankso@46 | 42 fdisk -l | fgrep Disk |
| pankso@46 | 43 echo '</pre>' |
| pankso@46 | 44 echo '<h3>Filesystem usage statistics</h3>' |
| pankso@46 | 45 echo '<pre>' |
| pankso@46 | 46 df -h | grep ^/dev |
| pankso@46 | 47 echo '</pre>' |
| pankso@46 | 48 echo '<h3>Loaded kernel modules</h3>' |
| pankso@46 | 49 # We may want modinfi output |
| pankso@46 | 50 |
| pankso@46 | 51 case "$QUERY_STRING" in |
| pankso@46 | 52 modinfo=*) |
| pankso@46 | 53 mod=${QUERY_STRING#modinfo=} |
| pankso@46 | 54 gettext "Detailled information for module:"; echo " $mod" |
| pankso@46 | 55 echo '<pre>' |
| pankso@46 | 56 modinfo $mod |
| pankso@46 | 57 echo '</pre>' ;; |
| pankso@46 | 58 rmmod=*) |
| pankso@46 | 59 mod=${QUERY_STRING#rmmod=} |
| pankso@46 | 60 modprobe -r $mod ;; |
| pankso@46 | 61 esac |
| pankso@46 | 62 cat << EOT |
| pankso@46 | 63 `table_start` |
| pankso@46 | 64 <tr class="thead"> |
| pankso@46 | 65 <td>`gettext "Module"`</td> |
| pankso@46 | 66 <td>`gettext "Size"`</td> |
| pankso@46 | 67 <td>`gettext "Used"`</td> |
| pankso@46 | 68 <td>`gettext "by"`</td> |
| pankso@46 | 69 </tr> |
| pankso@46 | 70 EOT |
| pankso@46 | 71 # Get the list of modules and link to modinfo |
| pankso@46 | 72 lsmod | grep ^[a-z] | while read MOD SIZE USED BY |
| pankso@46 | 73 do |
| pankso@46 | 74 cat << EOT |
| pankso@46 | 75 <tr> |
| pankso@46 | 76 <td><a href="$SCRIPT_NAME?modinfo=$MOD">$MOD</a></td> |
| pankso@46 | 77 <td>$SIZE</td> |
| pankso@46 | 78 <td>$USED</td> |
| pankso@46 | 79 <td>`echo $BY | sed s/","/" "/g`</td> |
| pankso@46 | 80 </tr> |
| pankso@46 | 81 EOT |
| pankso@46 | 82 done |
| pankso@46 | 83 table_end |
| pankso@46 | 84 echo '<h3>lspci</h3>' |
| pankso@46 | 85 echo '<pre>' |
| pankso@46 | 86 lspci |
| pankso@46 | 87 echo '</pre>' |
| pankso@46 | 88 ;; |
| pankso@46 | 89 esac |
| pankso@46 | 90 |
| pankso@46 | 91 xhtml_footer |
| pankso@46 | 92 exit 0 |