refresh networks list when switching from non-roaming to roaming (to get wpa_supplicant network IDs)

1 files changed, 10 insertions, 0 deletions

diff --git a/lib/network/connection/wireless.pm b/lib/network/connection/wireless.pm
index 52eb667..bdac4af 100644
--- a/lib/network/connection/wireless.pm
+++ b/lib/network/connection/wireless.pm
@@ -276,6 +276,15 @@ sub get_networks {
     $self->{networks};
 }
 
+sub refresh_roaming_ids {
+    my ($self) = @_;
+    #- needed when switching from non-roaming to roaming
+    #- to get wpa_supplicant network IDs
+    get_networks($self) if
+        $self->{control}{roaming} &&
+        !any { defined $_->{id} } values %{$self->{networks}};
+}
+
 sub guess_network {
     my ($_self) = @_;
     #- FIXME: try to find the AP matching $self->{ifcfg}{WIRELESS_ESSID};
@@ -488,6 +497,7 @@ sub connect {
     $self->SUPER::connect;
 
     if ($self->{control}{roaming}) {
+        refresh_roaming_ids($self);
         my $network = $self->get_selected_network;
         if ($network && defined $network->{id}) {
             eval { $net->{monitor}->select_network($network->{id}) };