diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakroam | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/standalone/drakroam b/perl-install/standalone/drakroam index 97890d73b..2ae88bf2d 100755 --- a/perl-install/standalone/drakroam +++ b/perl-install/standalone/drakroam @@ -60,7 +60,7 @@ my $has_roaming; my %pixbufs = ( - state => { map { $_ => gtkcreate_pixbuf($_) } qw(connected disconnected) }, + state => { map { $_ => gtkcreate_pixbuf($_)->scale_simple(24, 24, 'hyper') } qw(connected refresh disconnected) }, link_level => { map { $_ => gtkcreate_pixbuf('wifi-' . sprintf('%03d', $_) . '.png')->scale_simple(24, 24, 'hyper'); } qw(20 40 60 80 100) }, @@ -71,10 +71,13 @@ sub update_networks() { ($wireless_networks, $has_roaming) = network::monitor::list_wireless($monitor, $wireless_device); @{$wireless_list->{data}} = (); + my $routes = network::tools::get_routes(); + my $connected = exists $routes->{$wireless_device}{network}; + while (my ($ap, $network) = each(%$wireless_networks)) { push @{$wireless_list->{data}}, [ $ap, - $network->{current} ? $pixbufs{state}{connected} : undef, + $network->{current} ? $connected ? $pixbufs{state}{connected} : $pixbufs{state}{refresh} : undef, $network->{essid} || $net->{wireless}{$ap}{WIRELESS_ESSID} || $ap, $pixbufs{link_level}{$network->{approx_level}}, $network->{flags} ? $pixbufs{keyring} : undef, |