From ea4c697a82a940663e139edb6116756beaf2d082 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 3 Aug 2007 14:25:28 +0000 Subject: allow to filter networks --- lib/network/drakroam.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lib/network/drakroam.pm b/lib/network/drakroam.pm index 73dff01..4bf01a6 100755 --- a/lib/network/drakroam.pm +++ b/lib/network/drakroam.pm @@ -115,7 +115,10 @@ sub update_networks { my $interface = $droam->{connection}->get_interface; my $connected = exists $routes->{$interface}{network}; - while (my ($ap, $network) = each(%{$droam->{connection}{networks}})) { + my @networks = values %{$droam->{connection}{networks}}; + $droam->{filter_networks} and @networks = $droam->{filter_networks}(@networks); + foreach my $network (@networks) { + my $ap = $network->{ap}; push @{$droam->{gui}{networks_list}{data}}, [ $ap || $network->{name}, $network->{current} ? $connected ? $droam->{gui}{pixbufs}{state}{connected} : $droam->{gui}{pixbufs}{state}{refresh} : undef, -- cgit v1.2.1