| … | |
… | |
| 168 | |
168 | |
| 169 | addstr "\naccess points\n"; |
169 | addstr "\naccess points\n"; |
| 170 | |
170 | |
| 171 | while (my ($k, $v) = each %{$bss->{ap}}) { |
171 | while (my ($k, $v) = each %{$bss->{ap}}) { |
| 172 | addstr " " . e2h($k) . "\n"; |
172 | addstr " " . e2h($k) . "\n"; |
| 173 | addstr " mode $v->{mode}, channel $v->{channel}, essid '$v->{essid}'\n"; |
173 | addstr " mode $v->{mode}; channel $v->{channel}; essid '$v->{essid}'; beacon frames $v->{beacon}\n"; |
| 174 | addstr " beacon frames received $v->{beacon}\n"; |
|
|
| 175 | } |
174 | } |
| 176 | |
175 | |
| 177 | addstr "\nstations\n"; |
176 | addstr "\nstations\n"; |
| 178 | |
177 | |
| 179 | while (my ($k, $v) = each %{$bss->{station}}) { |
178 | while (my ($k, $v) = each %{$bss->{station}}) { |
| … | |
… | |
| 194 | if ($_[0] eq KEY_LEFT or $_[0] eq "h") { |
193 | if ($_[0] eq KEY_LEFT or $_[0] eq "h") { |
| 195 | Event::unloop; |
194 | Event::unloop; |
| 196 | } elsif ($_[0] eq KEY_RIGHT or $_[0] eq "l") { |
195 | } elsif ($_[0] eq KEY_RIGHT or $_[0] eq "l") { |
| 197 | #$curmenu = sub { display_bss $k }; |
196 | #$curmenu = sub { display_bss $k }; |
| 198 | } |
197 | } |
| 199 | } for 1..3; |
198 | }; |
| 200 | } |
199 | } |
| 201 | } |
200 | } |
| 202 | |
201 | |
| 203 | sub activity { |
202 | sub activity { |
| 204 | $db->{$_[0]}->{ts} = time; |
203 | $db->{$_[0]}->{ts} = time; |
