slitaz-base-files annotate rootfs/lib/libtaz.sh @ rev 139
Add libtaz and httphelper man a like documentation
author | Christophe Lincoln <pankso@slitaz.org> |
---|---|
date | Tue Apr 24 10:26:35 2012 +0200 (2012-04-24) |
parents | 7dd241a1171b |
children | c730eba1e4ab |
rev | line source |
---|---|
pankso@125 | 1 #!/bin/sh |
pankso@125 | 2 # |
pankso@125 | 3 # SliTaz Base functions used from boot scripts to end user tools. Use |
pankso@125 | 4 # gettext and not echo for messages. Keep output suitable for GTK boxes |
pankso@125 | 5 # and Ncurses dialog. LibTaz should not depend on any configuration file. |
pankso@139 | 6 # No bloated code here, function must be used by at least 3-4 tools. |
pankso@139 | 7 # |
pankso@139 | 8 # Documentation: man libtaz or /usr/share/doc/slitaz/libtaz.txt |
pankso@125 | 9 # |
pankso@125 | 10 # Copyright (C) 2012 SliTaz GNU/Linux - BSD License |
pankso@125 | 11 # |
pankso@125 | 12 |
pankso@125 | 13 # Internationalization. |
pankso@125 | 14 . /usr/bin/gettext.sh |
pankso@125 | 15 TEXTDOMAIN='slitaz-base' |
pankso@125 | 16 export TEXTDOMAIN |
pankso@125 | 17 |
pankso@125 | 18 # Internal variables. |
pankso@125 | 19 okmsg="$(gettext "Done")" |
pankso@125 | 20 ermsg="$(gettext "Failed")" |
pankso@125 | 21 okcolor=32 |
pankso@125 | 22 ercolor=31 |
pankso@125 | 23 |
pankso@137 | 24 # Parse cmdline options and store values in a variable. |
pankso@125 | 25 for opt in "$@" |
pankso@125 | 26 do |
pankso@125 | 27 case "$opt" in |
pankso@137 | 28 --*=*) export ${opt#--} ;; |
pankso@137 | 29 --*) export ${opt#--}="yes" ;; |
pankso@125 | 30 esac |
pankso@125 | 31 done |
pankso@131 | 32 [ "$HTTP_REFERER" ] && output="html" |
pankso@125 | 33 |
pankso@125 | 34 # Return command status. Default to colored console output. |
pankso@125 | 35 status() { |
pankso@125 | 36 local check=$? |
pankso@131 | 37 case $output in |
pankso@131 | 38 raw|gtk) |
pankso@131 | 39 done=" $okmsg" |
pankso@131 | 40 error=" $ermsg" ;; |
pankso@131 | 41 html) |
pankso@131 | 42 done=" <span class='done'>$okmsg</span>" |
pankso@131 | 43 error=" <span class='error'>$ermsg</span>" ;; |
pankso@136 | 44 *) |
pankso@136 | 45 cols=$(stty -a -F /dev/stdin | head -n 1 | cut -d ";" -f 3 | awk '{print $2}') |
pankso@131 | 46 local scol=$(($cols - 10)) |
pankso@131 | 47 done="\\033[${scol}G[ \\033[1;${okcolor}m${okmsg}\\033[0;39m ]" |
pankso@131 | 48 error="\\033[${scol}G[ \\033[1;${ercolor}m${ermsg}\\033[0;39m ]" ;; |
pankso@131 | 49 esac |
pankso@125 | 50 if [ $check = 0 ]; then |
pankso@125 | 51 echo -e "$done" |
pankso@125 | 52 else |
pankso@125 | 53 echo -e "$error" |
pankso@125 | 54 fi |
pankso@125 | 55 } |
pankso@125 | 56 |
pankso@125 | 57 # Line separator. |
pankso@125 | 58 separator() { |
pankso@132 | 59 local sepchar="=" |
pankso@132 | 60 [ "$HTTP_REFERER" ] && local sepchar="<hr />" |
pankso@132 | 61 case $output in |
pankso@132 | 62 raw|gtk) local sepchar="-" && local cols="8" ;; |
pankso@132 | 63 html) local sepchar="<hr />" ;; |
pankso@136 | 64 *) local cols=$(stty -a -F /dev/stdin | head -n 1 | cut -d ";" -f 3 | awk '{print $2}') ;; |
pankso@132 | 65 esac |
pankso@125 | 66 for c in $(seq 1 $cols); do |
pankso@131 | 67 echo -n "$sepchar" |
pankso@125 | 68 done && echo "" |
pankso@125 | 69 } |
pankso@125 | 70 |
pankso@125 | 71 # Display a bold message. GTK Yad: Works only in --text="" |
pankso@125 | 72 boldify() { |
pankso@125 | 73 case $output in |
pankso@125 | 74 raw) echo "$1" ;; |
pankso@125 | 75 gtk) echo "<b>$1</b>" ;; |
pankso@125 | 76 html) echo "<strong>$1</strong>" ;; |
pankso@125 | 77 *) echo -e "\\033[1m${1}\\033[0m" ;; |
pankso@125 | 78 esac |
pankso@125 | 79 } |
pankso@125 | 80 |
pankso@125 | 81 # Check if user is logged as root. |
pankso@125 | 82 check_root() { |
pankso@125 | 83 if [ $(id -u) != 0 ]; then |
pankso@125 | 84 gettext "You must be root to execute:" && echo " $(basename $0) $@" |
pankso@125 | 85 exit 1 |
pankso@125 | 86 fi |
pankso@125 | 87 } |