# HG changeset patch
# User Christophe Lincoln <pankso@slitaz.org>
# Date 1302138758 -7200
# Node ID af4b1f0b31108081951c81a4f3480bb03feb4639
# Parent  a7b1d69663c34fb497f0299275dbf8ff98feebf8
hardeare: display kernel module and link to modinfo

diff -r a7b1d69663c3 -r af4b1f0b3110 index.cgi
--- a/index.cgi	Thu Apr 07 01:22:07 2011 +0200
+++ b/index.cgi	Thu Apr 07 03:12:38 2011 +0200
@@ -29,6 +29,7 @@
 		#
 		# Everything until user login
 		#
+		. /etc/rcS.conf
 		TITLE="- Boot"
 		xhtml_header
 		cat << EOT
@@ -43,9 +44,15 @@
 <pre>
 `cat /proc/cmdline`
 </pre>
+
+<h3>`gettext "Local startup commands"`</h3>
+<pre>
+`cat /etc/init.d/local.sh`
+</pre>
+
 EOT
 		;;
-	hardware)
+	hardware|modinfo=*)
 		#
 		# Hardware drivers, devices, filesystem, screen
 		#
@@ -60,9 +67,45 @@
 		echo '<pre>'
 			fdisk -l | fgrep Disk
 		echo '</pre>'
+		echo '<h3>Filesystem usage statistics</h3>'
 		echo '<pre>'
 			df -h | grep ^/dev
 		echo '</pre>'
+		echo '<h3>Loaded kernel modules</h3>'
+		# We may want modinfi output
+		
+		case "$QUERY_STRING" in
+			modinfo=*)
+				mod=${QUERY_STRING#modinfo=}
+				gettext "Detailled information for module:"; echo " $mod"
+				echo '<pre>'
+				modinfo $mod
+				echo '</pre>' ;;
+			rmmod=*)
+				mod=${QUERY_STRING#rmmod=}
+				modprobe -r $mod ;;
+		esac
+		table_start
+		cat << EOT
+<tr class="thead">
+	<td>`gettext "Module"`</td>
+	<td>`gettext "Size"`</td>
+	<td>`gettext "Used"`</td>
+	<td>`gettext "by"`</td>
+</tr>
+EOT
+		# Get the list of modules and link to modinfo
+		lsmod | grep ^[a-z] | while read line
+		do
+			mod=`echo "$line" | awk '{print $1}'`
+			echo '<tr>'
+			echo "<td><a href='$SCRIPT_NAME?modinfo=$mod'>$mod</a></td>"
+			echo "$line" | awk '{print "<td>", $2, "</td>",
+				"<td>", $3, "</td>", "<td>", $4, "</td>"}'
+			echo '</tr>'
+		done
+		table_end
+		echo '<h3>lspci</h3>'
 		echo '<pre>'
 			lspci
 		echo '</pre>'