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