tazpanel annotate lib/libtazpanel @ rev 364

Add TAZPANEL_DAEMON support
author Pascal Bellard <pascal.bellard@slitaz.org>
date Sat Jun 29 17:06:39 2013 +0200 (2013-06-29)
parents df2865290e55
children d1f4f991fb1d
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 #
pankso@15 5
pascal@81 6 # Get parameters with GET, POST and FILE functions
mojo@310 7 . /usr/lib/slitaz/httphelper
pascal@81 8
al@307 9 # Disk usage warnings in percents
al@307 10 DU_WARN="70"
al@307 11 DU_CRIT="90"
al@307 12
pankso@109 13 # I18n
pankso@286 14 . /etc/locale.conf
pankso@40 15 . /usr/bin/gettext.sh
pankso@40 16 TEXTDOMAIN='tazpanel'
pankso@286 17 export TEXTDOMAIN LANG LC_ALL
pankso@40 18
pankso@15 19 # We need a config file first
pankso@15 20 get_config() {
pankso@15 21 CONFIG="/etc/slitaz/tazpanel.conf"
pankso@116 22 [ -f data/tazpanel.conf ] && CONFIG="data/tazpanel.conf"
pankso@110 23 [ -f "$CONFIG" ] && . $CONFIG
pankso@110 24 [ ! -f "$PANEL/lib/libtazpanel" ] && \
pankso@15 25 echo "No config file or libtazpanel found: $CONFIG" && \
pankso@15 26 exit 1
pankso@15 27 }
pankso@15 28
al@303 29 # Display < > &
al@303 30 htmlize() {
al@303 31 sed -e 's|\&|\&amp;|g; s|<|\&lt;|g; s|>|\&gt;|g'
al@303 32 }
al@303 33
pankso@74 34 # Syntax highlighting for config file and SHell scripts
pankso@74 35 syntax_highlighter() {
pankso@74 36 case $1 in
pankso@74 37 conf)
al@303 38 htmlize | sed \
slaxemulator@177 39 -e s"#^\#\([^']*\)#<span class='conf-comment'>\0</span>#"g \
pankso@74 40 -e s"#^[A-Z]\([^']*\)=#<span class='conf-var'>\0</span>#"g \
pankso@74 41 -e s"#^[a-z]\([^']*\)#<span class='conf-var'>\0</span>#"g \
pankso@74 42 -e s"#\"\([^']*\)\"#<span class='conf-val'>\0</span>#"g ;;
pankso@75 43 sh)
al@303 44 htmlize | sed \
pascal@176 45 -e s"#^\#\([^']*\)#<span class='sh-comment'>\0</span>#"g \
pascal@91 46 -e s"#\"\([^']*\)\"#<span class='sh-val'>\0</span>#"g ;;
pascal@91 47 diff)
al@303 48 htmlize | sed \
pascal@171 49 -e s"#^-\(.*\).#<span class='diff-rm'>\0</span>#"g \
pascal@171 50 -e s"#^+\(.*\).#<span class='diff-add'>\0</span>#"g \
pascal@171 51 -e s"#@@\(.*\)@@#<span class='diff-at'>@@\1@@</span>#"g ;;
pankso@120 52 activity)
al@303 53 sed -e s"#^\([^']*:\)#<span class='activity-log'>\0</span>#"g ;;
al@303 54 kernel)
al@303 55 htmlize | sed \
al@303 56 -e "s|\([^0-9]\)\(0x[0-9a-f]\+\)|\1<span class='kernel-hex'>\2</span>|g" \
al@303 57 -e "s|^\([^(,\[]\+: \)|<span class='kernel-id'>\0</span>|g" \
al@303 58 -e "s|\(\[[^ ]\+\]\)|<span class='kernel-id2'>\0</span>|g" ;;
al@363 59 lsusb)
al@363 60 htmlize | sed \
al@363 61 -e 's|^[^:]*:[ x0-9a-f^:]*$|<span class="lsusb-t">\0</span>|g' \
al@363 62 -e 's|^Bus.*$|<span class="lsusb-h">\0</span>|g' ;;
al@363 63 lspci)
al@363 64 htmlize | sed \
al@363 65 -e 's|^[0-9a-f].*$|<span class="lspci-t">\0</span>|g' \
al@363 66 -e 's|^ \([^:]*:\)| <span class="lspci-h">\1</span>|g' ;;
al@303 67
pankso@74 68 esac
pankso@53 69 }
pankso@53 70
pascal@99 71 # Remove status and ESC char from tazpkg/tazlito commands output
pascal@99 72 filter_taztools_msgs() {
pascal@168 73 sed -e s'/\[^Gm]*.//g' \
pascal@167 74 -e ':a;s/^\(.\{1,68\}\)\(\[ [A-Za-z]* \]\)/\1 \2/;ta' \
pascal@167 75 -e 's#\[ OK \]#[ <span class="diff-add">OK</span> ]#' \
pascal@167 76 -e 's#\[ Failed \]#[ <span class="diff-rm">Failed</span> ]#'
pascal@99 77 }
pascal@99 78
pankso@51 79 # LOG activities
pankso@51 80 log() {
pankso@96 81 date=$(date "+%Y-%m-%d %H:%M")
pascal@99 82 filter_taztools_msgs | \
pankso@94 83 sed s"#[^']*#$date : \0#" >> $LOG_FILE
pankso@51 84 }
pankso@51 85
pankso@161 86 ok_status() {
pankso@161 87 echo "[<span class='diff-add'> OK </span>]"
pankso@161 88 }
pankso@161 89
pankso@40 90 # Network interface status
pankso@40 91 interface_status() {
pankso@40 92 if ifconfig | grep -A 1 $i | grep -q inet; then
pankso@40 93 ip=`ifconfig | grep -A 1 $i | grep inet | \
pankso@40 94 awk '{ print $2 }' | cut -d ":" -f 2`
al@303 95 echo "<td>$(gettext 'connected')</td><td>$ip</td>"
pascal@136 96 echo "<td><a href='/network.cgi?scan=$ip'>"
pankso@148 97 echo "<img src='$IMAGES/recharge.png' /></a></td>"
pankso@40 98 else
pascal@136 99 echo "<td>----</td><td>----</td><td></td>"
pankso@40 100 fi
pankso@40 101 }
pankso@40 102
pankso@40 103 # Catch network interface (used in summary and network main page)
pankso@40 104 list_network_interfaces() {
pankso@40 105 cat << EOT
al@311 106 <table class="zebra outbox">
al@303 107 <thead>
al@303 108 <tr>
al@303 109 <td>$(gettext 'Interface')</td>
al@303 110 <td>$(gettext 'Name')</td>
al@303 111 <td>$(gettext 'Status')</td>
al@303 112 <td>$(gettext 'IP Address')</td>
al@303 113 <td>$(gettext 'Scan ports')</td>
al@303 114 </tr>
al@303 115 </thead>
al@303 116 <tbody>
pankso@40 117 EOT
pankso@40 118 for i in `ls /sys/class/net`
pankso@40 119 do
pankso@40 120 case $i in
pankso@40 121 eth*)
al@303 122 echo " <tr><td><a href='/network.cgi?eth'>
pankso@41 123 <img src='$IMAGES/ethernet.png' />$i</a></td>
pankso@148 124 <td>Ethernet</td> $(interface_status)</tr>" ;;
pankso@40 125 wlan*|ath*|ra*)
al@303 126 echo " <tr><td><a href='/network.cgi?wifi'>
pankso@41 127 <img src='$IMAGES/wireless.png' />$i</a></td>
pankso@148 128 <td>Wireless</td> $(interface_status)</tr>" ;;
pankso@40 129 lo)
al@303 130 echo " <tr><td><img src='$IMAGES/loopback.png' />$i</td>
pankso@148 131 <td>Loopback</td> $(interface_status)</tr>" ;;
pankso@40 132 *)
pankso@40 133 continue ;;
pankso@40 134 esac
pankso@40 135 done
al@303 136 cat << EOT
al@303 137 </tbody>
al@303 138 </table>
al@303 139 EOT
pankso@40 140 }
pankso@40 141
slaxemulator@232 142 # Get the list of panel styles
slaxemulator@232 143 list_styles() {
slaxemulator@232 144 for style in $PANEL/styles/*
slaxemulator@232 145 do
slaxemulator@232 146 style=$(basename $style)
slaxemulator@232 147 echo "<option value='$style'>$style</option>"
slaxemulator@232 148 done
slaxemulator@232 149 }
slaxemulator@232 150
slaxemulator@232 151 # Get the list of system locales
slaxemulator@232 152 list_locales() {
slaxemulator@232 153 for locale in $(find /usr/share/i18n/locales -type f -name "[a-z][a-z]_[A-Z][A-Z]")
slaxemulator@232 154 do
slaxemulator@232 155 echo "<option value='$locale'>$locale</option>"
slaxemulator@232 156 done
slaxemulator@232 157 }
slaxemulator@232 158
slaxemulator@232 159 # Get the list of console keymaps
slaxemulator@232 160 list_keymaps() {
slaxemulator@232 161 for keymap in /usr/share/kmap/*.kmap
slaxemulator@232 162 do
slaxemulator@232 163 basename $keymap .kmap | sed "s|.*|<option value='&'>&</option>|"
slaxemulator@232 164 done
slaxemulator@232 165 }
slaxemulator@232 166
pankso@15 167 #
pankso@15 168 # xHTML 5 (header and footer skel are from the style)
pankso@15 169 #
pankso@15 170
pankso@44 171 loading_msg() {
pankso@44 172 cat << EOT
pankso@44 173 <script type="text/javascript">
pankso@44 174 document.write('<div id="loading"><img src="/styles/default/images/loader.gif" />$LOADING_MSG</div>');
pankso@44 175 </script>
pankso@44 176 EOT
pankso@44 177 }
pankso@44 178
pankso@15 179 xhtml_header() {
al@292 180 . ${PANEL}$HEADER
pankso@67 181 if [ $DEBUG == "1" ]; then
pascal@81 182 local i
pascal@81 183 local j
pascal@81 184 local x
pascal@81 185 args=""
pascal@81 186 for x in GET POST COOKIE ; do
pascal@81 187 for i in $($x) ; do
pascal@81 188 if [ $($x $i count) -gt 1 ]; then
pascal@81 189 for j in $(seq 1 $($x $i count)); do
pascal@81 190 args="$args $x($i,$j)='$($x $i $j)'"
pascal@81 191 done
pascal@81 192 else
pascal@81 193 args="$args $x($i)='$($x $i)'"
pascal@81 194 fi
pascal@81 195 done
pascal@81 196 done
pascal@81 197 for i in $(FILE); do
pascal@81 198 for j in name size type tmpname ; do
pascal@81 199 args="$args FILE($i,$j)=$(FILE $i $j)"
pascal@81 200 done
pascal@81 201 done
pankso@70 202 cat << EOT
pankso@70 203 <pre class='debug'>
pascal@81 204 QUERY_STRING="$QUERY_STRING"$args
pankso@70 205 </pre>
pankso@70 206 EOT
pankso@67 207 fi
pankso@15 208 }
pankso@15 209
pankso@15 210 xhtml_footer() {
al@292 211 . ${PANEL}$FOOTER
pankso@15 212 }
pankso@15 213
pankso@15 214 table_start() {
al@303 215 echo '<table>'
pankso@15 216 }
pankso@15 217
pankso@282 218 table_end() {
al@303 219 echo '</table>'
pankso@15 220 }
pankso@153 221
pankso@153 222 df_thead() {
pankso@153 223 cat << EOT
pankso@153 224 <thead>
pankso@153 225 <tr>
al@303 226 <td>$(gettext 'Disk')</td>
al@303 227 <td>$(gettext 'Label')</td>
al@303 228 <td>$(gettext 'Type')</td>
al@303 229 <td>$(gettext 'Size')</td>
al@303 230 <td>$(gettext 'Available')</td>
al@303 231 <td>$(gettext 'Used')</td>
al@303 232 <td>$(gettext 'Mount point')</td>
pascal@343 233 <td>UUID</td>
pankso@153 234 </tr>
pankso@153 235 </thead>
pankso@153 236 EOT
pankso@153 237 }
al@318 238
al@318 239 msg() {
al@318 240 msgtype="$1"; shift
al@318 241 case "$msgtype" in
al@318 242 tip) MSG_ICON="$IMAGES/msg-tip.png" ;;
al@318 243 warn|warning) MSG_ICON="$IMAGES/msg-warn.png" ;;
al@318 244 err|error) MSG_ICON="$IMAGES/msg-err.png" ;;
al@318 245 up) MSG_ICON="$IMAGES/msg-up.png" ;;
al@318 246 *) MSG_ICON="$IMAGES/msg.png" ;;
al@318 247 esac
al@318 248 cat << EOT
al@318 249 <section class="box" style="width:50%;margin:0.5em auto;">
al@318 250 <image src="$MSG_ICON" alt="$msgtype" class="float-left" />
al@318 251 $@
al@318 252 </section>
al@318 253 EOT
al@318 254 }
al@318 255
al@318 256 is_installed() {
al@318 257 [ -d "$INSTALLED/$1" ]
al@318 258 }
pascal@364 259
pascal@364 260 blk2h() {
pascal@364 261 echo $1 | awk '{
pascal@364 262 n = $0/2
pascal@364 263 for (i = 1; n > 1024; i++)
pascal@364 264 n /= 1024
pascal@364 265 f = "%1.0f%c"
pascal@364 266 if (n < 1000)
pascal@364 267 f = "%1.1f%c"
pascal@364 268 printf f,n,substr("KMGT", i, 1)
pascal@364 269 }'
pascal@364 270 }