| … | |
… | |
| 304 | my %tag = decode_tags $pkt; |
304 | my %tag = decode_tags $pkt; |
| 305 | |
305 | |
| 306 | my $ap = $db->{$a3}{ap}{$a2} ||= {}; |
306 | my $ap = $db->{$a3}{ap}{$a2} ||= {}; |
| 307 | $ap->{mode} = ($cf & 3) == 1 ? "AP" : "adhoc"; |
307 | $ap->{mode} = ($cf & 3) == 1 ? "AP" : "adhoc"; |
| 308 | |
308 | |
| 309 | # ESSID ' ' workaround for wep-nets(?) |
309 | # ESSID ' ' workaround for "closed-network feature" |
| 310 | $ap->{essid} = $tag{SSID} unless $ap->{essid} && $tag{SSID} eq " "; |
310 | $ap->{essid} = $tag{SSID} unless $ap->{essid} && $tag{SSID} eq " "; |
| 311 | $ap->{channel} = ord $tag{DS}; |
311 | $ap->{channel} = ord $tag{DS}; |
| 312 | $ap->{beacon}++; |
312 | $ap->{beacon}++; |
| 313 | |
313 | |
| 314 | activity $a3; |
314 | activity $a3; |
