tazpanel annotate lib/libtazpanel @ rev 561

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