tazpanel view lib/libtazpanel @ rev 525

Add "noheader" flag to get page without header/footer/panel "wrappers" (for pop-ups); strip, minify and gzip scripts and styles.
author Aleksej Bobylev <al.bobylev@gmail.com>
date Thu Aug 20 17:00:19 2015 +0300 (2015-08-20)
parents f8e0ae0ac1d9
children 4f619f973b88
line source
1 #!/bin/sh
2 #
3 # Common functions for TazPanel CGI and cmdline interface
4 #
5 # Copyright (C) 2011-2015 SliTaz GNU/Linux - BSD License
6 #
7
8 . /lib/libtaz.sh
9
10
11 # Redefine gettext functions
12
13 _() { local T="$1"; shift; printf "$(gettext "$T")" "$@"; echo; }
14 _n() { local T="$1"; shift; printf "$(gettext "$T")" "$@"; }
15
16
17 GUI_USER=nobody
18 [ "$HTTP_HOST" == "127.0.0.1:82" ] &&
19 for i in "$HTTP_COOKIE" "$QUERY_STRING" ; do
20 v="$(echo "$i" | sed '/guiuser=/!d;s/.*guiuser=\([A-Za-z0-9_]*\).*/\1/')"
21 [ "$v" ] || continue
22 busybox ps | sed '/d;/d;/127\.0\.0\.1:82/!d' | grep -q " $v " || continue
23 GUI_USER="$v"
24 done
25 [ "$(id -un)" == "${REMOTE_USER:=$GUI_USER}" ] || exec su -s /bin/sh -c "$(realpath $0) $@" $REMOTE_USER
26
27
28 # Get parameters with GET, POST, COOKIE and FILE functions
29
30 . /usr/lib/slitaz/httphelper
31
32
33 # I18n
34
35 . /etc/locale.conf
36 export TEXTDOMAIN='tazpanel' LANG LC_ALL
37
38
39 # We need a config file first
40
41 get_config() {
42 CONFIG='/etc/slitaz/tazpanel.conf'
43 if [ -f "$CONFIG" ]; then
44 . $CONFIG
45 else
46 echo "No config file found: $CONFIG"
47 exit 1
48 fi
49 }
50
51
52 # Display < > &
53
54 htmlize() {
55 sed -e 's|\&|\&amp;|g; s|<|\&lt;|g; s|>|\&gt;|g'
56 }
57
58
59 # Syntax highlighting for config file and SHell scripts
60
61 syntax_highlighter() {
62 case $1 in
63 conf)
64 htmlize | sed \
65 -e 's|^\([ \t]*[A-Za-z0-9_][A-Za-z0-9_]*\)\(="*.*\)|<span class="conf-var">\1</span><span class="conf-val">\2</span>|g' \
66 -e 's|^[ \t]*#.*|<span class="conf-comment">\0</span>|g' ;;
67 #-e s"#^\#\([^']*\)#<span class='conf-comment'>\0</span>#"g \
68 #-e s"#^[A-Z]\([^']*\)=#<span class='conf-var'>\0</span>#"g \
69 #-e s"#^[a-z]\([^']*\)#<span class='conf-var'>\0</span>#"g \
70 #-e s"#[\"']\([^']*\)[\"']#<span class='conf-val'>\0</span>#"g ;;
71 sh)
72 htmlize | sed \
73 -e 's|^\([ \t]*[A-Za-z0-9_][A-Za-z0-9_]*\)\(="*.*\)|<span class="sh-var">\1</span><span class="sh-val">\2</span>|g' \
74 -e 's|^#.*|<span class="sh-comment">\0</span>|g' ;;
75 #-e s"#^\#\([^']*\)#<span class='sh-comment'>\0</span>#"g \
76 #-e s"#\"\([^']*\)\"#<span class='sh-val'>\0</span>#"g ;;
77 diff)
78 htmlize | sed \
79 -e 's|^-.*|<span class="diff-rm">\0</span>|g' \
80 -e 's|^+.*|<span class="diff-add">\0</span>|g' \
81 -e 's|^@.*|<span class="diff-at">\0</span>|g' ;;
82 activity)
83 # realize lazy quantification
84 sed -e "s|: |ⓒ|; s|^\(.*\)ⓒ|<span class='activity-log'>\1:</span> |" ;;
85 kernel)
86 # line with "ⓒ": realize lazy quantification
87 htmlize | sed \
88 -e "s|\([^0-9]\)\(0x[0-9a-f]\+\)|\1<span class='kernel-hex'>\2</span>|g" \
89 -e "s|: |ⓒ|; s|^\(.*\)ⓒ|<span class='kernel-id'>\1:</span> |" \
90 -e "s|\(\[[^ ]\+\]\)|<span class='kernel-id2'>\0</span>|g" \
91 -e "s|Call Trace:|<span class='kernel-trace'>\0</span>|" ;;
92 lsusb)
93 htmlize | sed \
94 -e 's|^[^:]*:[ x0-9a-f^:]*$|<span class="lsusb-t">\0</span>|g' \
95 -e 's|^Bus.*$|<span class="lsusb-h">\0</span>|g' ;;
96 lspci)
97 htmlize | sed \
98 -e 's|^[0-9a-f].*$|<span class="lspci-t">\0</span>|g' \
99 -e 's|^ \([^:]*:\)| <span class="lspci-h">\1</span>|g' ;;
100 xlog)
101 htmlize | sed \
102 -e 's|^[^]]*]|<span class="xlog xlog-timestamp">\0</span>|' \
103 -e 's|(--)|<span class="xlog xlog-probed" title="probed">\0</span>|' \
104 -e 's|(\*\*)|<span class="xlog xlog-config" title="from config file">\0</span>|' \
105 -e 's|(==)|<span class="xlog xlog-default" title="default setting">\0</span>|' \
106 -e 's|(++)|<span class="xlog xlog-cmdline" title="from command line">\0</span>|' \
107 -e 's|(!!)|<span class="xlog xlog-notice" title="notice">\0</span>|' \
108 -e 's|(II)|<span class="xlog xlog-info" title="informational">\0</span>|' \
109 -e 's|(WW)|<span class="xlog xlog-warn" title="warning">\0</span>|' \
110 -e 's|(EE)|<span class="xlog xlog-error" title="error">\0</span>|' \
111 -e 's|(NI)|<span class="xlog xlog-ni" title="not implemented">\0</span>|' \
112 -e 's|(??)|<span class="xlog xlog-unknown" title="unknown">\0</span>|' \
113 ;;
114 esac
115 }
116
117
118 # Remove status and ESC char from tazpkg/tazlito commands output
119
120 filter_taztools_msgs() {
121 sed \
122 -e 's|\\[0m|</span>|g' \
123 -e 's|\\[0;39m|</span>|g' \
124 -e 's|\\[0*\([0-7]*\);\([0-7]*\)m|<span class="color\1 color\2">|g' \
125 -e ':a;s/^\(.\{0,69\}\)\(\\[[0-9]*G\[\)/\1 \2/;ta' \
126 -e ':b;s|^\([^\]*\)\\[\([0-9]*\)G|<span style="display:inline-block;width:\2ex">\1</span>|;tb' \
127 -e 's/\[^Gm]*.//g'
128 }
129
130
131 # LOG activities
132
133 log() {
134 date=$(date "+%F %R")
135 filter_taztools_msgs | sed "s|[^']*|$date : \0|" >> $LOG_FILE
136 }
137
138
139 ok_status() {
140 echo '[<span class="diff-add"> OK </span>]'
141 }
142
143
144 # Network interface status
145
146 interface_status() {
147 ip="----"
148 status="----"
149 scan=""
150 if ifconfig | grep -A1 $1 | grep -q inet; then
151 ip=$(ifconfig | grep -A1 $1 | grep inet | awk '{ print $2 }' | cut -d: -f2)
152 [ "$(cat /sys/class/net/$1/carrier)" == "1" ] &&
153 scan='<a data-icon="scan" href="network.cgi?scan='$ip'&amp;back=network.cgi">'$(_ 'Scan')'</a>'
154 fi
155 [ "$(cat /sys/class/net/$1/carrier)" == "1" ] &&
156 status="$(_ 'connected')" &&
157 speed="$(cat /sys/class/net/$1/speed 2> /dev/null)" &&
158 [ "$speed" ] && status="$status ${speed}M"
159 echo "<td>$status</td><td>$ip</td><td>$scan</td>"
160 }
161
162
163 # Catch network interface (used in summary and network main page)
164
165 list_network_interfaces() {
166 cat <<EOT
167 <table class="wide zebra center">
168 <thead>
169 <tr>
170 <td>$(_ 'Interface')</td>
171 <td>$(_ 'Name')</td>
172 <td>$(_ 'Status')</td>
173 <td>$(_ 'IP Address')</td>
174 <td>$(_ 'Scan ports')</td>
175 </tr>
176 </thead>
177 <tbody>
178 EOT
179 for i in $(ls /sys/class/net); do
180 case $i in
181 eth*)
182 echo '<tr><td><a data-icon="eth" href="network.cgi?eth">'$i'</a></td>
183 <td>Ethernet</td> '$(interface_status $i)'</tr>';;
184 wlan*|ath*|ra*)
185 echo '<tr><td><a data-icon="wifi" href="network.cgi?wifi">'$i'</a></td>
186 <td>Wireless</td> '$(interface_status $i)'</tr>';;
187 ppp*)
188 echo '<tr><td><a data-icon="removable" href="ppp.cgi">'$i'</a></td>
189 <td>Point to point</td> '$(interface_status $i)'</tr>';;
190 tap[0-9]*|tun[0-9]*)
191 echo '<tr><td><span data-icon="removable">'$i'</span></td>
192 <td>User space</td> '$(interface_status $i)'</tr>';;
193 lo)
194 echo '<tr><td><span data-icon="loopback">'$i'</span></td>
195 <td>Loopback</td> '$(interface_status $i)'</tr>';;
196 *)
197 continue ;;
198 esac
199 done
200 cat <<EOT
201 </tbody>
202 </table>
203 EOT
204 }
205
206
207 # Get the list of panel styles
208
209 list_styles() {
210 for style in $PANEL/styles/*; do
211 style=$(basename $style)
212 echo "<option value='$style'>$style</option>"
213 done
214 }
215
216
217 # Get the list of system locales
218
219 list_locales() {
220 for locale in $(find /usr/share/i18n/locales -type f -name "[a-z][a-z]_[A-Z][A-Z]")
221 do
222 echo "<option value=\"$locale\">$locale</option>"
223 done
224 }
225
226
227 # Get the list of console keymaps
228
229 list_keymaps() {
230 if [ -d /usr/share/kbd ]; then
231 # kbd-base
232 find /usr/share/kbd/keymaps/i386 -type f -name '*.map*' ! -path '*include*' | \
233 awk -F/ '{gsub(/.map.gz/, ""); printf "<option value=\"%s\">%s (%s)\n", $8, $8, $7}'
234 else
235 # kbd-busybox
236 ls /usr/share/kmap/*.kmap | \
237 sed 's|.*kmap/\(.*\).kmap|<option value="\1">\1|'
238 fi | sort
239 }
240
241
242 #
243 # xHTML 5 (header and footer skel are from the style)
244 #
245
246 loading_msg() {
247 [ -n "$(GET noheader)" ] && return
248 local MSG=${1:-$LOADING_MSG}
249 [ -z "$MSG" ] && MSG="$(_ 'Please wait')"
250 cat <<EOT
251 <script type="text/javascript">statusbar("$MSG", 1)</script>
252 EOT
253 }
254
255
256 xhtml_header() {
257 [ -n "$(GET noheader)" ] && return
258 SUBTITLE="$1"
259 . ${PANEL}$HEADER
260 cat <<EOT
261 <script type="text/javascript">
262 document.cookie = "guiuser=; expires=Thu, 01 Jan 1970 00:00:00 UTC";
263 document.cookie = "guiuser=$GUI_USER";
264 </script>
265 EOT
266 if [ "$DEBUG" -eq 1 ]; then
267 local i j x
268 args=''
269 for x in GET POST COOKIE; do
270 for i in $($x); do
271 if [ $($x $i count) -gt 1 ]; then
272 for j in $(seq 1 $($x $i count)); do
273 args="$args $x($i,$j)='$($x $i $j)'"
274 done
275 else
276 args="$args $x($i)='$($x $i)'"
277 fi
278 done
279 done
280 for i in $(FILE); do
281 for j in name size type tmpname; do
282 args="$args FILE($i,$j)=$(FILE $i $j)"
283 done
284 done
285 cat <<EOT
286 <pre class="debug">
287 QUERY_STRING="$QUERY_STRING"$args
288 </pre>
289 EOT
290 fi
291 }
292
293
294 xhtml_footer() {
295 [ -n "$(GET noheader)" ] && return
296 export TEXTDOMAIN='tazpkg'
297 . ${PANEL}$FOOTER
298 }
299
300
301 table_start() { echo '<table>'; }
302 table_end() { echo '</table>'; }
303
304
305 df_thead() {
306 cat <<EOT
307 <thead>
308 <tr>
309 <td>$(_ 'Disk')</td>
310 <td>$(_ 'Label')</td>
311 <td>$(_ 'Type')</td>
312 <td>$(_ 'Size')</td>
313 <td>$(_ 'Available')</td>
314 <td>$(_ 'Used')</td>
315 <td>$(_ 'Mount point')</td>
316 <td>UUID</td>
317 </tr>
318 </thead>
319 EOT
320 }
321
322
323 msg() {
324 msgtype="$1"; shift
325 case "$msgtype" in
326 tip) I='data-icon="msgtip"';;
327 warn|warning) I='data-icon="msgwarn"';;
328 err|error) I='data-icon="msgerr"';;
329 up) I='data-icon="msgup"';;
330 *) I='data-icon="msg"';;
331 esac
332 echo "<section class=\"box\"><span $I></span>$@</section>"
333 }
334
335
336 is_installed() {
337 [ -d "$INSTALLED/$1" ]
338 }
339
340
341 blk2h() {
342 if [ "$1" ]; then
343 echo $1
344 else
345 cat
346 fi | awk '{
347 n = $0/2
348 for (i = 1; n > 1024; i++)
349 n /= 1024
350 f = "%1.0f%c"
351 if (n < 100)
352 f = "%1.1f%c"
353 printf f,n,substr("KMGT", i, 1)
354 }'
355 }
356
357
358 # Show "Back" button
359
360 back_button() {
361 local URL="$1" default_caption="$(_ 'Back')"
362 #FIXME: can't encode data-icon
363 local caption="${2:-$default_caption}" icon="${3:-back}"
364
365 if [ -n "$1" ]; then
366 printf '<form action="%s" method="post"><button data-icon="%s">%s</button></form>' \
367 "$URL" "$icon" "$caption"
368 fi
369 }
370
371
372 # Show "Edit" button
373
374 edit_button() {
375 [ -w "$1" ] && cat <<EOT
376 <form action="index.cgi">
377 <input type="hidden" name="file" value="$1"/>
378 <button name="action" value="edit" data-icon="edit">${2:-$(_ 'Edit')}</button>
379 </form>
380 EOT
381 }
382
383 # Mark select option as checked
384
385 selected() {
386 [ "$1" == "$2" ] && echo -n 'selected'
387 }
388
389
390 check_root_tazpanel() {
391 if [ $(id -u) != '0' ]; then
392 msg err "$(_ 'You must be root to show this page.')"
393 xhtml_footer; exit 0
394 fi
395 }
396
397 # Get system database. NSS compatible.
398
399 getdb() {
400 getent $1 2>/dev/null || cat /etc/$1
401 }
402