tazpanel annotate index.cgi @ rev 43

hardeare: display kernel module and link to modinfo
author Christophe Lincoln <pankso@slitaz.org>
date Thu Apr 07 03:12:38 2011 +0200 (2011-04-07)
parents a7b1d69663c3
children 56d55a9dcc9c
rev   line source
pankso@2 1 #!/bin/sh
pankso@2 2 #
pankso@14 3 # Main CGI interface for TazPanel. In on word: KISS. Use the main cas form
pankso@14 4 # command so we are faster and dont load unneeded function. If nececarry
pankso@14 5 # you can use the lib/ dir to handle external resources.
pankso@2 6 #
pankso@42 7 # Copyright (C) 2011 SliTaz GNU/Linux - GNU gpl v3
pankso@42 8 #
pankso@2 9 echo "Content-Type: text/html"
pankso@2 10 echo ""
pankso@2 11
pankso@14 12 # Common functions from libtazpanel
pankso@14 13 . lib/libtazpanel
pankso@14 14 get_config
pankso@2 15
pankso@22 16 # Include gettext helper script.
pankso@22 17 . /usr/bin/gettext.sh
pankso@22 18
pankso@22 19 # Export package name for gettext.
pankso@39 20 TEXTDOMAIN='tazpanel'
pankso@22 21 export TEXTDOMAIN
pankso@22 22
pankso@2 23 #
pankso@2 24 # Commands
pankso@2 25 #
pankso@2 26
pankso@2 27 case "$QUERY_STRING" in
pankso@13 28 boot)
pankso@14 29 #
pankso@13 30 # Everything until user login
pankso@14 31 #
pankso@43 32 . /etc/rcS.conf
pankso@25 33 TITLE="- Boot"
pankso@13 34 xhtml_header
pankso@13 35 cat << EOT
pankso@13 36 <div id="wrapper">
pankso@14 37 <h2>`gettext "Boot &amp; startup"`</h2>
pankso@14 38 <p>
pankso@14 39 `gettext "Everything that appends before user login."`
pankso@14 40 </p>
pankso@14 41 </div>
pankso@13 42
pankso@13 43 <h3>`gettext "Kernel cmdline"`</h3>
pankso@13 44 <pre>
pankso@13 45 `cat /proc/cmdline`
pankso@13 46 </pre>
pankso@43 47
pankso@43 48 <h3>`gettext "Local startup commands"`</h3>
pankso@43 49 <pre>
pankso@43 50 `cat /etc/init.d/local.sh`
pankso@43 51 </pre>
pankso@43 52
pankso@13 53 EOT
pankso@14 54 ;;
pankso@43 55 hardware|modinfo=*)
pankso@14 56 #
pankso@14 57 # Hardware drivers, devices, filesystem, screen
pankso@14 58 #
pankso@8 59 TITLE="- Hardware"
pankso@8 60 xhtml_header
pankso@13 61 cat << EOT
pankso@13 62 <div id="wrapper">
pankso@14 63 <h2>`gettext "Drivers &amp; Devices"`</h2>
pankso@14 64 <p>`gettext "Manage your computer hardware`</p>
pankso@14 65 </div>
pankso@13 66 EOT
pankso@2 67 echo '<pre>'
pankso@14 68 fdisk -l | fgrep Disk
pankso@13 69 echo '</pre>'
pankso@43 70 echo '<h3>Filesystem usage statistics</h3>'
pankso@14 71 echo '<pre>'
pankso@14 72 df -h | grep ^/dev
pankso@14 73 echo '</pre>'
pankso@43 74 echo '<h3>Loaded kernel modules</h3>'
pankso@43 75 # We may want modinfi output
pankso@43 76
pankso@43 77 case "$QUERY_STRING" in
pankso@43 78 modinfo=*)
pankso@43 79 mod=${QUERY_STRING#modinfo=}
pankso@43 80 gettext "Detailled information for module:"; echo " $mod"
pankso@43 81 echo '<pre>'
pankso@43 82 modinfo $mod
pankso@43 83 echo '</pre>' ;;
pankso@43 84 rmmod=*)
pankso@43 85 mod=${QUERY_STRING#rmmod=}
pankso@43 86 modprobe -r $mod ;;
pankso@43 87 esac
pankso@43 88 table_start
pankso@43 89 cat << EOT
pankso@43 90 <tr class="thead">
pankso@43 91 <td>`gettext "Module"`</td>
pankso@43 92 <td>`gettext "Size"`</td>
pankso@43 93 <td>`gettext "Used"`</td>
pankso@43 94 <td>`gettext "by"`</td>
pankso@43 95 </tr>
pankso@43 96 EOT
pankso@43 97 # Get the list of modules and link to modinfo
pankso@43 98 lsmod | grep ^[a-z] | while read line
pankso@43 99 do
pankso@43 100 mod=`echo "$line" | awk '{print $1}'`
pankso@43 101 echo '<tr>'
pankso@43 102 echo "<td><a href='$SCRIPT_NAME?modinfo=$mod'>$mod</a></td>"
pankso@43 103 echo "$line" | awk '{print "<td>", $2, "</td>",
pankso@43 104 "<td>", $3, "</td>", "<td>", $4, "</td>"}'
pankso@43 105 echo '</tr>'
pankso@43 106 done
pankso@43 107 table_end
pankso@43 108 echo '<h3>lspci</h3>'
pankso@14 109 echo '<pre>'
pankso@14 110 lspci
pankso@14 111 echo '</pre>'
pankso@14 112 ;;
pankso@2 113 *)
pankso@14 114 #
pankso@2 115 # Default xHTML content
pankso@14 116 #
pankso@8 117 xhtml_header
pankso@42 118 case "$QUERY_STRING" in
pankso@42 119 gen-locale=*)
pankso@42 120 new_locale=${QUERY_STRING#gen-locale=} ;;
pankso@42 121 rdate)
pankso@42 122 echo "" ;;
pankso@42 123 esac
pankso@2 124 cat << EOT
pankso@13 125 <div id="wrapper">
pankso@14 126 <h2>`gettext "Host:"` `hostname`</h2>
pankso@14 127 <p>`gettext "SliTaz administration et configuration Panel"`<p>
pankso@14 128 </div>
pankso@14 129
pankso@14 130 <h3>`gettext "Summary"`</h3>
pankso@14 131 <div id="summary">
pankso@33 132 <p>
pankso@33 133 `gettext "Uptime:"` `uptime`
pankso@33 134 </p>
pankso@33 135 <p>
pankso@33 136 `gettext "Memory in Mb"`
pankso@33 137 `free -m | grep Mem: | awk \
pankso@33 138 '{print "| Total:", $2, "| Used:", $3, "| Free:", $4}'`
pankso@33 139 </p>
pankso@33 140 <!-- Close summary -->
pankso@33 141 </div>
pankso@14 142
pankso@33 143 <h4>`gettext "Network status"`</h4>
pankso@33 144 `list_network_interfaces`
pankso@33 145
pankso@33 146 <h4>`gettext "Filesystem usage statistics"`</h4>
pankso@14 147 <pre>
pankso@14 148 `df -h | grep ^/dev`
pankso@14 149 </pre>
pankso@2 150 EOT
pankso@2 151 ;;
pankso@2 152 esac
pankso@2 153
pankso@14 154 xhtml_footer
pankso@14 155 exit 0