| @@ -23,6 +23,7 @@ |
| 23 | 23 | lat => $lat, |
| 24 | 24 | lon => $lon, |
| 25 | 25 | chan => $n->{channel}, |
| 26 | wep => ($n->{wep} && $n->{wep} eq 'true') ? 1 : 0, |
| 26 | 27 | }; |
| 27 | 28 | } |
| 28 | 29 | } |
| @@ -34,7 +35,7 @@ |
| 34 | 35 | $ssid =~ s/&/&/g; |
| 35 | 36 | $ssid =~ s/</</g; |
| 36 | 37 | $ssid =~ s/"/"/g; |
| 37 | | printf qq{ <net bssid="%s" ssid="%s" lat="%.6f" lng="%.6f" chan="%s"/>\n}, |
| 38 | | $b, $ssid, $n->{lat}, $n->{lon}, $n->{chan}; |
| 38 | printf qq{ <net bssid="%s" ssid="%s" lat="%.6f" lng="%.6f" chan="%s" wep="%d"/>\n}, |
| 39 | $b, $ssid, $n->{lat}, $n->{lon}, $n->{chan}, $n->{wep}; |
| 39 | 40 | } |
| 40 | 41 | print "</nets>\n"; |
