tazpanel annotate lib/libtazpanel @ rev 161
Add report creation (to help debbuging)
| author | Christophe Lincoln <pankso@slitaz.org> |
|---|---|
| date | Thu Apr 21 17:21:12 2011 +0200 (2011-04-21) |
| parents | ed55f0e369b3 |
| children | ebf9e3bf4313 |
| 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@109 | 9 # I18n |
| pankso@40 | 10 . /usr/bin/gettext.sh |
| pankso@40 | 11 TEXTDOMAIN='tazpanel' |
| pankso@40 | 12 export TEXTDOMAIN |
| pankso@40 | 13 |
| pankso@15 | 14 # We need a config file first |
| pankso@15 | 15 get_config() { |
| pankso@15 | 16 CONFIG="/etc/slitaz/tazpanel.conf" |
| pankso@116 | 17 [ -f data/tazpanel.conf ] && CONFIG="data/tazpanel.conf" |
| pankso@110 | 18 [ -f "$CONFIG" ] && . $CONFIG |
| pankso@110 | 19 [ ! -f "$PANEL/lib/libtazpanel" ] && \ |
| pankso@15 | 20 echo "No config file or libtazpanel found: $CONFIG" && \ |
| pankso@15 | 21 exit 1 |
| pankso@15 | 22 } |
| pankso@15 | 23 |
| pankso@74 | 24 # Syntax highlighting for config file and SHell scripts |
| pankso@76 | 25 # HTML entities: -e 's|&|\&|g' -e 's|<|\<|g' -e 's|>|\>|g' |
| pankso@74 | 26 syntax_highlighter() { |
| pankso@74 | 27 case $1 in |
| pankso@74 | 28 conf) |
| pankso@74 | 29 sed -e s"#^\#\([^']*\)#<span class='conf-comment'>\0</span>#"g \ |
| pankso@74 | 30 -e s"#^[A-Z]\([^']*\)=#<span class='conf-var'>\0</span>#"g \ |
| pankso@74 | 31 -e s"#^[a-z]\([^']*\)#<span class='conf-var'>\0</span>#"g \ |
| pankso@74 | 32 -e s"#\"\([^']*\)\"#<span class='conf-val'>\0</span>#"g ;; |
| pankso@75 | 33 sh) |
| pankso@75 | 34 sed -e s"#^\#\([^']*\)#<span class='sh-comment'>\0</span>#"g \ |
| pascal@91 | 35 -e s"#\"\([^']*\)\"#<span class='sh-val'>\0</span>#"g ;; |
| pascal@91 | 36 diff) |
| pankso@94 | 37 sed -e 's|&|\&|g' -e 's|<|\<|g' -e 's|>|\>|g' \ |
| pankso@120 | 38 -e s"#^-\([^']*\).#<span class='diff-rm'>\0</span>#"g \ |
| pankso@120 | 39 -e s"#^+\([^']*\).#<span class='diff-add'>\0</span>#"g \ |
| pankso@120 | 40 -e s"#@@\([^']*\)@@#<span class='diff-at'>@@\1@@</span>#"g ;; |
| pankso@120 | 41 activity) |
| pankso@120 | 42 sed s"#^\([^']*:\)#<span class='activity-log''>\0</span>#"g ;; |
| pankso@74 | 43 esac |
| pankso@53 | 44 } |
| pankso@53 | 45 |
| pascal@99 | 46 # Remove status and ESC char from tazpkg/tazlito commands output |
| pascal@99 | 47 filter_taztools_msgs() { |
| pankso@151 | 48 grep ^[a-zA-Z0-9] | sed \ |
| pankso@151 | 49 -e s'/\[^Gm]*.//g' \ |
| pankso@151 | 50 -e s'@OK@<span class="diff-add">OK</span>@' |
| pascal@99 | 51 } |
| pascal@99 | 52 |
| pankso@51 | 53 # LOG activities |
| pankso@51 | 54 log() { |
| pankso@96 | 55 date=$(date "+%Y-%m-%d %H:%M") |
| pascal@99 | 56 filter_taztools_msgs | \ |
| pankso@94 | 57 sed s"#[^']*#$date : \0#" >> $LOG_FILE |
| pankso@51 | 58 } |
| pankso@51 | 59 |
| pankso@161 | 60 ok_status() { |
| pankso@161 | 61 echo "[<span class='diff-add'> OK </span>]" |
| pankso@161 | 62 } |
| pankso@161 | 63 |
| pankso@40 | 64 # Network interface status |
| pankso@40 | 65 interface_status() { |
| pankso@40 | 66 if ifconfig | grep -A 1 $i | grep -q inet; then |
| pankso@40 | 67 ip=`ifconfig | grep -A 1 $i | grep inet | \ |
| pankso@40 | 68 awk '{ print $2 }' | cut -d ":" -f 2` |
| pankso@40 | 69 echo "<td>connected</td><td>$ip</td>" |
| pascal@136 | 70 echo "<td><a href='/network.cgi?scan=$ip'>" |
| pankso@148 | 71 echo "<img src='$IMAGES/recharge.png' /></a></td>" |
| pankso@40 | 72 else |
| pascal@136 | 73 echo "<td>----</td><td>----</td><td></td>" |
| pankso@40 | 74 fi |
| pankso@40 | 75 } |
| pankso@40 | 76 |
| pankso@40 | 77 # Catch network interface (used in summary and network main page) |
| pankso@40 | 78 list_network_interfaces() { |
| pankso@40 | 79 table_start |
| pankso@40 | 80 cat << EOT |
| pankso@40 | 81 <tr id="thead"> |
| pankso@40 | 82 <td>`gettext "Interface"`</td> |
| pankso@40 | 83 <td>`gettext "Name"`</td> |
| pankso@40 | 84 <td>`gettext "Status"`</td> |
| pankso@40 | 85 <td>`gettext "IP Address"`</td> |
| pankso@148 | 86 <td>`gettext "Scan ports"`</td> |
| pankso@40 | 87 </tr> |
| pankso@40 | 88 EOT |
| pankso@40 | 89 for i in `ls /sys/class/net` |
| pankso@40 | 90 do |
| pankso@40 | 91 case $i in |
| pankso@40 | 92 eth*) |
| pankso@41 | 93 echo "<tr><td><a href='/network.cgi?eth'> |
| pankso@41 | 94 <img src='$IMAGES/ethernet.png' />$i</a></td> |
| pankso@148 | 95 <td>Ethernet</td> $(interface_status)</tr>" ;; |
| pankso@40 | 96 wlan*|ath*|ra*) |
| pankso@41 | 97 echo "<tr><td><a href='/network.cgi?wifi'> |
| pankso@41 | 98 <img src='$IMAGES/wireless.png' />$i</a></td> |
| pankso@148 | 99 <td>Wireless</td> $(interface_status)</tr>" ;; |
| pankso@40 | 100 lo) |
| pankso@40 | 101 echo "<tr><td><img src='$IMAGES/loopback.png' />$i</td> |
| pankso@148 | 102 <td>Loopback</td> $(interface_status)</tr>" ;; |
| pankso@40 | 103 *) |
| pankso@40 | 104 continue ;; |
| pankso@40 | 105 esac |
| pankso@40 | 106 done |
| pankso@40 | 107 table_end |
| pankso@40 | 108 } |
| pankso@40 | 109 |
| pankso@15 | 110 # |
| pankso@15 | 111 # xHTML 5 (header and footer skel are from the style) |
| pankso@15 | 112 # |
| pankso@15 | 113 |
| pankso@44 | 114 loading_msg() { |
| pankso@44 | 115 cat << EOT |
| pankso@44 | 116 <script type="text/javascript"> |
| pankso@44 | 117 document.write('<div id="loading"><img src="/styles/default/images/loader.gif" />$LOADING_MSG</div>'); |
| pankso@44 | 118 </script> |
| pankso@44 | 119 EOT |
| pankso@44 | 120 } |
| pankso@44 | 121 |
| pankso@15 | 122 xhtml_header() { |
| pankso@32 | 123 cat ${PANEL}$HEADER | sed s/'- %TITLE%'/"$TITLE"/ |
| pankso@67 | 124 if [ $DEBUG == "1" ]; then |
| pascal@81 | 125 local i |
| pascal@81 | 126 local j |
| pascal@81 | 127 local x |
| pascal@81 | 128 args="" |
| pascal@81 | 129 for x in GET POST COOKIE ; do |
| pascal@81 | 130 for i in $($x) ; do |
| pascal@81 | 131 if [ $($x $i count) -gt 1 ]; then |
| pascal@81 | 132 for j in $(seq 1 $($x $i count)); do |
| pascal@81 | 133 args="$args $x($i,$j)='$($x $i $j)'" |
| pascal@81 | 134 done |
| pascal@81 | 135 else |
| pascal@81 | 136 args="$args $x($i)='$($x $i)'" |
| pascal@81 | 137 fi |
| pascal@81 | 138 done |
| pascal@81 | 139 done |
| pascal@81 | 140 for i in $(FILE); do |
| pascal@81 | 141 for j in name size type tmpname ; do |
| pascal@81 | 142 args="$args FILE($i,$j)=$(FILE $i $j)" |
| pascal@81 | 143 done |
| pascal@81 | 144 done |
| pankso@70 | 145 cat << EOT |
| pankso@70 | 146 <pre class='debug'> |
| pascal@81 | 147 QUERY_STRING="$QUERY_STRING"$args |
| pankso@70 | 148 </pre> |
| pankso@70 | 149 EOT |
| pankso@67 | 150 fi |
| pankso@15 | 151 } |
| pankso@15 | 152 |
| pankso@15 | 153 xhtml_footer() { |
| pankso@32 | 154 cat ${PANEL}$FOOTER |
| pankso@15 | 155 } |
| pankso@15 | 156 |
| pankso@15 | 157 table_start() { |
| pankso@15 | 158 cat << EOT |
| pankso@15 | 159 <table> |
| pankso@15 | 160 <tbody> |
| pankso@15 | 161 EOT |
| pankso@15 | 162 } |
| pankso@15 | 163 |
| pankso@15 | 164 table_end () { |
| pankso@15 | 165 cat << EOT |
| pankso@15 | 166 </tbody> |
| pankso@15 | 167 </table> |
| pankso@15 | 168 EOT |
| pankso@45 | 169 |
| pankso@15 | 170 } |
| pankso@153 | 171 |
| pankso@153 | 172 df_thead() { |
| pankso@153 | 173 cat << EOT |
| pankso@153 | 174 <thead> |
| pankso@153 | 175 <tr> |
| pankso@153 | 176 <td>$(gettext "Filesystem")</td> |
| pankso@153 | 177 <td>$(gettext "Size")</td> |
| pankso@153 | 178 <td>$(gettext "Available")</td> |
| pankso@153 | 179 <td>$(gettext "Used")</td> |
| pankso@153 | 180 <td>$(gettext "Mount point")</td> |
| pankso@153 | 181 </tr> |
| pankso@153 | 182 </thead> |
| pankso@153 | 183 EOT |
| pankso@153 | 184 } |