summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakroam
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakroam')
-rwxr-xr-xperl-install/standalone/drakroam7
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,