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 & 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 & 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
|