diff options
Diffstat (limited to 'lib/network/connection_manager.pm')
| -rw-r--r-- | lib/network/connection_manager.pm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lib/network/connection_manager.pm b/lib/network/connection_manager.pm index cd9de78..a7bac80 100644 --- a/lib/network/connection_manager.pm +++ b/lib/network/connection_manager.pm @@ -216,6 +216,14 @@ sub select_network { update_on_status_change($droam); } +sub filter_networks { + my ($connection) = @_; + $_->{configured} = $connection->network_is_configured($_) foreach values %{$connection->{networks}}; + sort { + $b->{configured} <=> $a->{configured} || $b->{signal_strength} <=> $a->{signal_strength} || $a->{name} cmp $b->{name}; + } values %{$connection->{networks}}; +} + sub update_networks { my ($cmanager) = @_; @{$cmanager->{gui}{networks_list}{data}} = (); @@ -231,8 +239,7 @@ sub update_networks { my $interface = $cmanager->{connection}->get_interface; my $connected = exists $routes->{$interface}{network}; - my @networks = values %{$cmanager->{connection}{networks}}; - $cmanager->{filter_networks} and @networks = $cmanager->{filter_networks}(@networks); + my @networks = filter_networks($cmanager->{connection}); foreach my $network (@networks) { my $ap = $network->{ap}; push @{$cmanager->{gui}{networks_list}{data}}, [ |