tazpanel annotate lib/libtazpanel @ rev 81
Use httpd_helper parser (GET)
author | Pascal Bellard <pascal.bellard@slitaz.org> |
---|---|
date | Wed Apr 13 16:41:02 2011 +0200 (2011-04-13) |
parents | 7ac8e561d0a5 |
children | 783e2405d384 |
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 |
pascal@81 | 7 . /usr/bin/httpd_helper.sh |
pascal@81 | 8 |
pankso@40 | 9 # Include gettext helper script. |
pankso@40 | 10 . /usr/bin/gettext.sh |
pankso@40 | 11 |
pankso@40 | 12 # Export package name for gettext. |
pankso@40 | 13 TEXTDOMAIN='tazpanel' |
pankso@40 | 14 export TEXTDOMAIN |
pankso@40 | 15 |
pankso@15 | 16 # We need a config file first |
pankso@15 | 17 get_config() { |
pankso@15 | 18 CONFIG="/etc/slitaz/tazpanel.conf" |
pankso@15 | 19 [ -f $CONFIG ] && . $CONFIG |
pankso@15 | 20 [ -f tazpanel.conf ] && . tazpanel.conf |
pankso@15 | 21 [ ! -f $PANEL/lib/libtazpanel ] && \ |
pankso@15 | 22 echo "No config file or libtazpanel found: $CONFIG" && \ |
pankso@15 | 23 exit 1 |
pankso@15 | 24 } |
pankso@15 | 25 |
pankso@74 | 26 # Syntax highlighting for config file and SHell scripts |
pankso@76 | 27 # HTML entities: -e 's|&|\&|g' -e 's|<|\<|g' -e 's|>|\>|g' |
pankso@74 | 28 syntax_highlighter() { |
pankso@74 | 29 case $1 in |
pankso@74 | 30 conf) |
pankso@74 | 31 sed -e s"#^\#\([^']*\)#<span class='conf-comment'>\0</span>#"g \ |
pankso@74 | 32 -e s"#^[A-Z]\([^']*\)=#<span class='conf-var'>\0</span>#"g \ |
pankso@74 | 33 -e s"#^[a-z]\([^']*\)#<span class='conf-var'>\0</span>#"g \ |
pankso@74 | 34 -e s"#\"\([^']*\)\"#<span class='conf-val'>\0</span>#"g ;; |
pankso@75 | 35 sh) |
pankso@75 | 36 sed -e s"#^\#\([^']*\)#<span class='sh-comment'>\0</span>#"g \ |
pankso@75 | 37 -e s"#\"\([^']*\)\"#<span class='sh-val'>\0</span>#"g |
pankso@74 | 38 esac |
pankso@53 | 39 } |
pankso@53 | 40 |
pankso@51 | 41 # LOG activities |
pankso@51 | 42 log() { |
pankso@51 | 43 grep ^[a-zA-Z0-9] | sed s'/\.*\]//' >> $LOG_FILE |
pankso@51 | 44 } |
pankso@51 | 45 |
pankso@40 | 46 # Network interface status |
pankso@40 | 47 interface_status() { |
pankso@40 | 48 if ifconfig | grep -A 1 $i | grep -q inet; then |
pankso@40 | 49 ip=`ifconfig | grep -A 1 $i | grep inet | \ |
pankso@40 | 50 awk '{ print $2 }' | cut -d ":" -f 2` |
pankso@40 | 51 echo "<td>connected</td><td>$ip</td>" |
pankso@40 | 52 else |
pankso@40 | 53 echo "<td>----</td><td>----</td>" |
pankso@40 | 54 fi |
pankso@40 | 55 } |
pankso@40 | 56 |
pankso@40 | 57 # Catch network interface (used in summary and network main page) |
pankso@40 | 58 list_network_interfaces() { |
pankso@40 | 59 table_start |
pankso@40 | 60 cat << EOT |
pankso@40 | 61 <tr id="thead"> |
pankso@40 | 62 <td>`gettext "Interface"`</td> |
pankso@40 | 63 <td>`gettext "Name"`</td> |
pankso@40 | 64 <td>`gettext "Status"`</td> |
pankso@40 | 65 <td>`gettext "IP Address"`</td> |
pankso@40 | 66 </tr> |
pankso@40 | 67 EOT |
pankso@40 | 68 for i in `ls /sys/class/net` |
pankso@40 | 69 do |
pankso@40 | 70 case $i in |
pankso@40 | 71 eth*) |
pankso@41 | 72 echo "<tr><td><a href='/network.cgi?eth'> |
pankso@41 | 73 <img src='$IMAGES/ethernet.png' />$i</a></td> |
pankso@40 | 74 <td>Ethernet</td> `interface_status`</tr>" ;; |
pankso@40 | 75 wlan*|ath*|ra*) |
pankso@41 | 76 echo "<tr><td><a href='/network.cgi?wifi'> |
pankso@41 | 77 <img src='$IMAGES/wireless.png' />$i</a></td> |
pankso@40 | 78 <td>Wireless</td> `interface_status`</tr>" ;; |
pankso@40 | 79 lo) |
pankso@40 | 80 echo "<tr><td><img src='$IMAGES/loopback.png' />$i</td> |
pankso@40 | 81 <td>Loopback</td> `interface_status`</tr>" ;; |
pankso@40 | 82 *) |
pankso@40 | 83 continue ;; |
pankso@40 | 84 esac |
pankso@40 | 85 done |
pankso@40 | 86 table_end |
pankso@40 | 87 } |
pankso@40 | 88 |
pankso@15 | 89 # |
pankso@15 | 90 # xHTML 5 (header and footer skel are from the style) |
pankso@15 | 91 # |
pankso@15 | 92 |
pankso@44 | 93 loading_msg() { |
pankso@44 | 94 cat << EOT |
pankso@44 | 95 <script type="text/javascript"> |
pankso@44 | 96 document.write('<div id="loading"><img src="/styles/default/images/loader.gif" />$LOADING_MSG</div>'); |
pankso@44 | 97 </script> |
pankso@44 | 98 EOT |
pankso@44 | 99 } |
pankso@44 | 100 |
pankso@15 | 101 xhtml_header() { |
pankso@32 | 102 cat ${PANEL}$HEADER | sed s/'- %TITLE%'/"$TITLE"/ |
pankso@67 | 103 if [ $DEBUG == "1" ]; then |
pascal@81 | 104 local i |
pascal@81 | 105 local j |
pascal@81 | 106 local x |
pascal@81 | 107 args="" |
pascal@81 | 108 for x in GET POST COOKIE ; do |
pascal@81 | 109 for i in $($x) ; do |
pascal@81 | 110 if [ $($x $i count) -gt 1 ]; then |
pascal@81 | 111 for j in $(seq 1 $($x $i count)); do |
pascal@81 | 112 args="$args $x($i,$j)='$($x $i $j)'" |
pascal@81 | 113 done |
pascal@81 | 114 else |
pascal@81 | 115 args="$args $x($i)='$($x $i)'" |
pascal@81 | 116 fi |
pascal@81 | 117 done |
pascal@81 | 118 done |
pascal@81 | 119 for i in $(FILE); do |
pascal@81 | 120 for j in name size type tmpname ; do |
pascal@81 | 121 args="$args FILE($i,$j)=$(FILE $i $j)" |
pascal@81 | 122 done |
pascal@81 | 123 done |
pankso@70 | 124 cat << EOT |
pankso@70 | 125 <pre class='debug'> |
pascal@81 | 126 QUERY_STRING="$QUERY_STRING"$args |
pankso@70 | 127 </pre> |
pankso@70 | 128 EOT |
pankso@67 | 129 fi |
pankso@15 | 130 } |
pankso@15 | 131 |
pankso@15 | 132 xhtml_footer() { |
pankso@32 | 133 cat ${PANEL}$FOOTER |
pankso@15 | 134 } |
pankso@15 | 135 |
pankso@15 | 136 table_start() { |
pankso@15 | 137 cat << EOT |
pankso@15 | 138 <table> |
pankso@15 | 139 <tbody> |
pankso@15 | 140 EOT |
pankso@15 | 141 } |
pankso@15 | 142 |
pankso@15 | 143 table_end () { |
pankso@15 | 144 cat << EOT |
pankso@15 | 145 </tbody> |
pankso@15 | 146 </table> |
pankso@15 | 147 EOT |
pankso@45 | 148 |
pankso@15 | 149 } |