tazpanel: 7ca14d55e705 network.cgi

tazpanel view network.cgi @ rev 463

Add prism.js syntax highlighter; now files can be edited "in place" without page reloading; allow ANY characters in the Wi-Fi password (bug 126); change web-app layout: main window isn't scrollable, with scrollable contents.

author	Aleksej Bobylev <al.bobylev@gmail.com>
date	Fri Apr 24 16:00:14 2015 +0300 (2015-04-24)
parents	169f1ccfb613
children	c23efdafb18d

line source

1 #!/bin/sh

2 #

3 # Network configuration CGI interface

4 #

6 #

9 # Common functions from libtazpanel

11 . lib/libtazpanel

12 get_config

13 header

15 TITLE=$(_ 'TazPanel - Network')

18 # Start a Wi-Fi connection

20 start_wifi() {

21 sed -i \

22 -e 's|^WIFI=.*|WIFI="yes"|' \

23 -e 's|^DHCP=.*|DHCP="yes"|' \

24 -e 's|^STATIC=.*|STATIC="no"|' /etc/network.conf

25 ifconfig $WIFI_INTERFACE up

26 iwconfig $WIFI_INTERFACE txpower auto

27 /etc/init.d/network.sh restart | log

29 # Sleep until connection established (max 5 seconds)

30 for i in $(seq 5); do

31 [ -n "$(iwconfig 2>/dev/null | fgrep Link)" ] && break

32 sleep 1

33 done

34 }

37 # Start an Ethernet connection

39 start_eth() {

40 case "$(GET staticip)" in

41 on) DHCP='no'; STATIC='yes';;

42 *) DHCP='yes'; STATIC='no';;

43 esac

45 /etc/init.d/network.sh stop | log

46 sleep 2

47 sed -i \

48 -e "s|^INTERFACE=.*|INTERFACE=\"$(GET iface)\"|" \

49 -e 's|^WIFI=.*|WIFI="no"|' \

50 -e "s|^DHCP=.*|DHCP=\"$DHCP\"|" \

51 -e "s|^STATIC=.*|STATIC=\"$STATIC\"|" \

52 -e "s|^IP=.*|IP=\"$(GET ip)\"|" \

53 -e "s|^NETMASK=.*|NETMASK=\"$(GET netmask)\"|" \

54 -e "s|^GATEWAY=.*|GATEWAY=\"$(GET gateway)\"|" \

55 -e "s|^DNS_SERVER=.*|DNS_SERVER=\"$(GET dns)\"|" \

56 /etc/network.conf

57 /etc/init.d/network.sh start | log

58 . /etc/network.conf

59 }

62 # Use /etc/wpa/wpa.conf as single database for known networks, passwords, etc.

63 # Translate this data to use in javascript.

65 parse_wpa_conf() {

66 awk '

67 BEGIN { print "networks = ["; begin_list = 1; network = 0; }

68 {

69 if ($0 == "network={") {

70 if (begin_list == 0) print ",";

71 begin_list = 0;

72 printf "{"; begin_obj = 1;

73 network = 1; next;

74 }

75 if (network == 1) {

76 if ($0 ~ "=") {

77 if (begin_obj == 0) printf ", ";

78 begin_obj = 0;

80 # split line into variable and value (note "=" can appear in the value)

81 split($0, a, "="); variable = a[1];

82 value = gensub(variable "=", "", "");

84 # escape html entities

85 value = gensub("\\\\", "\\\\", "g", value);

86 value = gensub("&", "\\&", "g", value);

87 value = gensub("<", "\\<", "g", value);

88 value = gensub(">", "\\>", "g", value);

89 value = gensub("\"", "\\\"", "g", value);

91 # if value was already quoted - remove \" from begin and end

92 if (substr(value, 1, 2) == "\\\"")

93 value = substr(value, 3, length(value) - 4);

95 # output in form: variable:"escaped value"

96 printf "%s:\"%s\"", variable, value;

97 }

98 }

99 if (network == 1 && $0 ~ "}") { printf "}"; network = 0; next; }

100 }

101 END {print "\n];"}

102 ' /etc/wpa/wpa.conf | sed 's|\t||g;'

103 }

104

105

106 # Waiting for network link up

107

108 wait_up() {

109 for i in $(seq 5); do

110 [ -z "$(cat /sys/class/net/*/operstate | fgrep up)"] && sleep 1

111 done

112 }

113

114

115 # Actions commands before page is displayed

116

117 case " $(GET) " in

118 *\ start\ *)

119 /etc/init.d/network.sh start | log

120 # Here we sleep a bit to let udhcp get the lease before reloading

121 # the page with status

122 wait_up ;;

123 *\ stop\ *)

124 /etc/init.d/network.sh stop | log ;;

125 *\ restart\ *)

126 /etc/init.d/network.sh restart | log

127 wait_up ;;

128 *\ start_wifi\ *)

129 start_wifi ;;

130 *\ start_eth\ *)

131 start_eth ;;

132 *\ host\ *)

133 get_hostname="$(GET host)"

134 echo $(_ 'Changed hostname: %s' $get_hostname) | log

135 echo "$get_hostname" > /etc/hostname ;;

136 esac

137

138 case " $(POST) " in

139 *\ connect_wifi\ *)

140 # Connect to a Wi-Fi network

141 /etc/init.d/network.sh stop | log

142 password="$(POST password)"

143

144 # Escape special characters to use with sed substitutions

145 password="$(echo -n "$password" | sed 's|\\|\\\\|g; s|&|\\\&|g' | sed "s|'|'\"'\"'|g")"

146

147 sed -i \

148 -e "s|^WIFI_ESSID=.*|WIFI_ESSID=\"$(POST essid)\"|" \

149 -e "s|^WIFI_BSSID=.*|WIFI_BSSID=\"$(POST bssid)\"|" \

150 -e "s|^WIFI_KEY_TYPE=.*|WIFI_KEY_TYPE=\"$(POST keyType)\"|" \

151 -e "s|^WIFI_KEY=.*|WIFI_KEY='$password'|" \

152 -e "s|^WIFI_EAP_METHOD=.*|WIFI_EAP_METHOD=\"$(POST eap)\"|" \

153 -e "s|^WIFI_CA_CERT=.*|WIFI_CA_CERT=\"$(POST caCert)\"|" \

154 -e "s|^WIFI_CLIENT_CERT=.*|WIFI_CLIENT_CERT=\"$(POST clientCert)\"|" \

155 -e "s|^WIFI_IDENTITY=.*|WIFI_IDENTITY=\"$(POST identity)\"|" \

156 -e "s|^WIFI_ANONYMOUS_IDENTITY=.*|WIFI_ANONYMOUS_IDENTITY=\"$(POST anonymousIdentity)\"|" \

157 -e "s|^WIFI_PHASE2=.*|WIFI_PHASE2=\"$(POST phase2)\"|" \

158 /etc/network.conf

159 . /etc/network.conf

160 start_wifi

161 ;;

162 esac

163

164

165 # Get values only now since they could have been modified by actions.

166

167 . /etc/network.conf

168

169

170

171

172

173 #

174 # Main Commands for pages

175 #

176

177 case " $(GET) " in

178

179 *\ scan\ *)

180 # Scan open ports

181 scan=$(GET scan); back=$(GET back)

182 xhtml_header

183 LOADING_MSG=$(_ 'Scanning open ports...'); loading_msg

184

185 cat <<EOT

186 <section>

187 <header>

188 $(_ 'Port scanning for %s' $scan)

189 $(back_button "$back" "$(_ 'Network')" "")

190 </header>

191 <pre>$(pscan -b $scan)</pre>

192 </section>

193 EOT

194 ;;

195

196

197 *\ eth\ *)

198 # Wired connections settings

199 xhtml_header

200

201 PAR1="size=\"20\" required"; PAR="$PAR1 pattern=\"\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\""

202

203 case "$STATIC" in

204 yes) use_static='checked';;

205 *) use_static='';;

206 esac

207

208 stop_disabled=''; start_disabled=''

209 if cat /sys/class/net/eth*/operstate | fgrep -q up; then

210 start_disabled='disabled'

211 else

212 stop_disabled='disabled'

213 fi

214

215 cat <<EOT

216 <h2>$(_ 'Ethernet connection')</h2>

217 EOT

218 [ -w /etc/network.conf ] && cat <<EOT

219 <p>$(_ "Here you can configure a wired connection using DHCP to \

220 automatically get a random IP or configure a static/fixed IP")</p>

221

222 <section>

223 <header>$(_ 'Configuration')</header>

224 <form id="conf">

225 <input type="hidden" name="eth"/>

226 <div>

227 <table>

228 <tr><td>$(_ 'Interface')</td>

229 <td><select name="iface" value="$INTERFACE" style="width:100%">

230 $(cd /sys/class/net; ls -1 | awk -viface="$INTERFACE" '{

231 sel = ($0 == iface) ? " selected":""

232 printf "<option value=\"%s\"%s>%s", $0, sel, $0

233 }')

234 </select></td>

235 </tr>

236 <tr><td>$(_ 'Static IP')</td>

237 <td><label><input type="checkbox" name="staticip" id="staticip" $use_static/>

238 $(_ 'Use static IP')</td>

239 </tr>

240 <tr id="st1"><td>$(_ 'IP address')</td>

241 <td><input type="text" name="ip" value="$IP" $PAR/></td>

242 </tr>

243 <tr id="st2"><td>$(_ 'Netmask')</td>

244 <td><input type="text" name="netmask" value="$NETMASK" $PAR/></td>

245 </tr>

246 <tr id="st3"><td>$(_ 'Gateway')</td>

247 <td><input type="text" name="gateway" value="$GATEWAY" $PAR/></td>

248 </tr>

249 <tr id="st4"><td>$(_ 'DNS server')</td>

250 <td><input type="text" name="dns" value="$DNS_SERVER" $PAR/></td>

251 </tr>

252 </table>

253 </div>

254 </form>

255 <footer><!--

256 --><button form="conf" type="submit" name="start_eth" data-icon="start" $start_disabled>$(_ 'Start' )</button><!--

257 --><button form="conf" type="submit" name="stop" data-icon="stop" $stop_disabled >$(_ 'Stop' )</button><!--

258 --></footer>

259 </section>

260

261 <script type="text/javascript">

262 function static_change() {

263 staticip = document.getElementById('staticip').checked;

264 for (i = 1; i < 5; i++) {

265 document.getElementById('st' + i).style.display = staticip ? '' : 'none';

266 }

267 }

268

269 document.getElementById('staticip').onchange = static_change;

270 static_change();

271 </script>

272 EOT

273 cat <<EOT

274 <section>

275 <header>

276 $(_ 'Configuration file')

277 EOT

278 [ -w /etc/network.conf ] && cat <<EOT

279 <form action="index.cgi">

280 <input type="hidden" name="file" value="/etc/network.conf"/>

281 <button name="action" value="edit" data-icon="edit">$(_ 'Edit')</button>

282 </form>

283 EOT

284 cat <<EOT

285 </header>

286 <div>$(_ "These values are the ethernet settings in the main /etc/network.conf configuration file")</div>

287 <pre>$(awk '{if($1 !~ "WIFI" && $1 !~ "#" && $1 != ""){print $0}}' /etc/network.conf | syntax_highlighter conf)</pre>

288 </section>

289 EOT

290 ;;

291

292

293

294 *\ wifi_list\ *)

295 # Catch ESSIDs and format output.

296 # We get the list of networks by Cell and without spaces.

297

298 HIDDEN="$(_ '(hidden)')"

299

300 cat <<EOT

301 <table class="wide center zebra">

302 <thead>

303 <tr>

304 <td>$(_ 'Name')</td>

305 <td>$(_ 'Signal level')</td>

306 <td>$(_ 'Channel')</td>

307 <td>$(_ 'Encryption')</td>

308 <td>$(_ 'Status')</td>

309 </tr>

310 </thead>

311 <tbody>

312 EOT

313 if [ -d /sys/class/net/$WIFI_INTERFACE/wireless ]; then

314 ifconfig $WIFI_INTERFACE up

315 for i in $(iwlist $WIFI_INTERFACE scan | sed '/Cell /!d;s/.*Cell $[^ ]*$.*/Cell.\1/')

316 do

317 SCAN=$(iwlist $WIFI_INTERFACE scan last | sed "/$i/,/Cell/!d" | sed '$d')

318

319 BSSID=$(echo "$SCAN" | sed -n 's|.*Address: $[^ ]*$.*|\1|p')

320

321 CHANNEL=$(echo "$SCAN" | sed -n 's|.*Channel[:=]$[^ ]*$.*|\1|p')

322

323 QUALITY=$(echo "$SCAN" | sed -n 's|.*Quality[:=]$[^ ]*$.*|\1|p')

324 QUALITY_ICON="lvl$(( 5*${QUALITY:-0} ))" # lvl0 .. lvl4, lvl5

325 LEVEL=$(echo "$SCAN" | sed -n 's|.*Signal level[:=]$[^ ]*$.*|\1|p; s|-|−|')

326

327 ENCRYPTION=$(echo "$SCAN" | sed -n 's|.*Encryption key[:=]$[^ ]*$.*|\1|p') # on/off

328

329 ESSID=$(echo "$SCAN" | sed -n 's|.*ESSID:"$[^"]*$.*|\1|p')

330

331 # WPA Type - Group Cipher - Pairwise Ciphers - Authentication Suites

332 # {WPA|WPA2}-{TKIP|CCMP}-{TKIP|CCMP|TKIP CCMP}-{PSK|802.1x}

333 #CAPABILITIES="$(echo "$SCAN" | grep -e 'IE: .*WPA*' -A3 | cut -d: -f2 | sed -e 's|^ ||' -e '/WPA2/s|.*|=WPA2|' -e '/WPA /s|.*|=WPA|' -e '/--/d' | tr '\n' '-' | tr '=' '\n' | sed -e '/^$/d' -e 's|-$||')"

334

335 # Authentication type

336 AUTH="$(echo "$SCAN" | sed -n 's|.*Authentication Suites[^:]*: *$.*$|\1|p')"

337 if [ -n "$(echo -n $AUTH | fgrep PSK)" ]; then

338 # WPA-Personal. Authentication using password (PSK = pre-shared key)

339 WIFI_KEY_TYPE='WPA'

340 elif [ -n "$(echo -n $AUTH | fgrep 802.1x)" ]; then

341 # WPA-Enterprise. Authentication using username, password, certificates...

342 WIFI_KEY_TYPE='EAP'

343 else

344 WIFI_KEY_TYPE='NONE'

345 fi