tazpanel view lib/libtazpanel @ rev 165

libtazpanel: align status
author Pascal Bellard <pascal.bellard@slitaz.org>
date Fri Apr 22 11:34:07 2011 +0200 (2011-04-22)
parents ebf9e3bf4313
children 8e629a5d4882
line source
1 #!/bin/sh
2 #
3 # Common functions for TazPanel CGI and cmdline interface
4 #
5
6 # Get parameters with GET, POST and FILE functions
7 . /usr/bin/httpd_helper.sh
8
9 # I18n
10 . /usr/bin/gettext.sh
11 TEXTDOMAIN='tazpanel'
12 export TEXTDOMAIN
13
14 # We need a config file first
15 get_config() {
16 CONFIG="/etc/slitaz/tazpanel.conf"
17 [ -f data/tazpanel.conf ] && CONFIG="data/tazpanel.conf"
18 [ -f "$CONFIG" ] && . $CONFIG
19 [ ! -f "$PANEL/lib/libtazpanel" ] && \
20 echo "No config file or libtazpanel found: $CONFIG" && \
21 exit 1
22 }
23
24 # Syntax highlighting for config file and SHell scripts
25 # HTML entities: -e 's|&|\&amp;|g' -e 's|<|\&lt;|g' -e 's|>|\&gt;|g'
26 syntax_highlighter() {
27 case $1 in
28 conf)
29 sed -e s"#^\#\([^']*\)#<span class='conf-comment'>\0</span>#"g \
30 -e s"#^[A-Z]\([^']*\)=#<span class='conf-var'>\0</span>#"g \
31 -e s"#^[a-z]\([^']*\)#<span class='conf-var'>\0</span>#"g \
32 -e s"#\"\([^']*\)\"#<span class='conf-val'>\0</span>#"g ;;
33 sh)
34 sed -e s"#^\#\([^']*\)#<span class='sh-comment'>\0</span>#"g \
35 -e s"#\"\([^']*\)\"#<span class='sh-val'>\0</span>#"g ;;
36 diff)
37 sed -e 's|&|\&amp;|g' -e 's|<|\&lt;|g' -e 's|>|\&gt;|g' \
38 -e s"#^-\([^']*\).#<span class='diff-rm'>\0</span>#"g \
39 -e s"#^+\([^']*\).#<span class='diff-add'>\0</span>#"g \
40 -e s"#@@\([^']*\)@@#<span class='diff-at'>@@\1@@</span>#"g ;;
41 activity)
42 sed s"#^\([^']*:\)#<span class='activity-log''>\0</span>#"g ;;
43 esac
44 }
45
46 # Remove status and ESC char from tazpkg/tazlito commands output
47 filter_taztools_msgs() {
48 grep ^[a-zA-Z0-9] | sed s'/\[^Gm]*.//g' | awk '{
49 if (/\[ OK \]/) {
50 n=index($0,"[ OK ]")
51 s=""; for (i = n; i < 70; i++) s = s " "
52 printf "%s%s[ <span class=\"diff-add\">OK</span> ]\n",substr($0,1,n-1),s
53 }
54 else if (/\[ Failed \]/) {
55 n=index($0,"[ Failed ]")
56 s=""; for (i = n; i < 70; i++) s = s " "
57 printf "%s%s[ <span class=\"diff-rm\">Failed</span> ]\n",substr($0,1,n-1),s
58 }
59 else print
60 }'
61 }
62
63 # LOG activities
64 log() {
65 date=$(date "+%Y-%m-%d %H:%M")
66 filter_taztools_msgs | \
67 sed s"#[^']*#$date : \0#" >> $LOG_FILE
68 }
69
70 ok_status() {
71 echo "[<span class='diff-add'> OK </span>]"
72 }
73
74 # Network interface status
75 interface_status() {
76 if ifconfig | grep -A 1 $i | grep -q inet; then
77 ip=`ifconfig | grep -A 1 $i | grep inet | \
78 awk '{ print $2 }' | cut -d ":" -f 2`
79 echo "<td>connected</td><td>$ip</td>"
80 echo "<td><a href='/network.cgi?scan=$ip'>"
81 echo "<img src='$IMAGES/recharge.png' /></a></td>"
82 else
83 echo "<td>----</td><td>----</td><td></td>"
84 fi
85 }
86
87 # Catch network interface (used in summary and network main page)
88 list_network_interfaces() {
89 table_start
90 cat << EOT
91 <tr id="thead">
92 <td>`gettext "Interface"`</td>
93 <td>`gettext "Name"`</td>
94 <td>`gettext "Status"`</td>
95 <td>`gettext "IP Address"`</td>
96 <td>`gettext "Scan ports"`</td>
97 </tr>
98 EOT
99 for i in `ls /sys/class/net`
100 do
101 case $i in
102 eth*)
103 echo "<tr><td><a href='/network.cgi?eth'>
104 <img src='$IMAGES/ethernet.png' />$i</a></td>
105 <td>Ethernet</td> $(interface_status)</tr>" ;;
106 wlan*|ath*|ra*)
107 echo "<tr><td><a href='/network.cgi?wifi'>
108 <img src='$IMAGES/wireless.png' />$i</a></td>
109 <td>Wireless</td> $(interface_status)</tr>" ;;
110 lo)
111 echo "<tr><td><img src='$IMAGES/loopback.png' />$i</td>
112 <td>Loopback</td> $(interface_status)</tr>" ;;
113 *)
114 continue ;;
115 esac
116 done
117 table_end
118 }
119
120 #
121 # xHTML 5 (header and footer skel are from the style)
122 #
123
124 loading_msg() {
125 cat << EOT
126 <script type="text/javascript">
127 document.write('<div id="loading"><img src="/styles/default/images/loader.gif" />$LOADING_MSG</div>');
128 </script>
129 EOT
130 }
131
132 xhtml_header() {
133 cat ${PANEL}$HEADER | sed s/'- %TITLE%'/"$TITLE"/
134 if [ $DEBUG == "1" ]; then
135 local i
136 local j
137 local x
138 args=""
139 for x in GET POST COOKIE ; do
140 for i in $($x) ; do
141 if [ $($x $i count) -gt 1 ]; then
142 for j in $(seq 1 $($x $i count)); do
143 args="$args $x($i,$j)='$($x $i $j)'"
144 done
145 else
146 args="$args $x($i)='$($x $i)'"
147 fi
148 done
149 done
150 for i in $(FILE); do
151 for j in name size type tmpname ; do
152 args="$args FILE($i,$j)=$(FILE $i $j)"
153 done
154 done
155 cat << EOT
156 <pre class='debug'>
157 QUERY_STRING="$QUERY_STRING"$args
158 </pre>
159 EOT
160 fi
161 }
162
163 xhtml_footer() {
164 cat ${PANEL}$FOOTER
165 }
166
167 table_start() {
168 cat << EOT
169 <table>
170 <tbody>
171 EOT
172 }
173
174 table_end () {
175 cat << EOT
176 </tbody>
177 </table>
178 EOT
179
180 }
181
182 df_thead() {
183 cat << EOT
184 <thead>
185 <tr>
186 <td>$(gettext "Filesystem")</td>
187 <td>$(gettext "Size")</td>
188 <td>$(gettext "Available")</td>
189 <td>$(gettext "Used")</td>
190 <td>$(gettext "Mount point")</td>
191 </tr>
192 </thead>
193 EOT
194 }