lib/network/signal_strength.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

package network::signal_strength;

use lib qw(/usr/lib/libDrakX);   # helps perl_checker
use common;
use ugtk2;

my %pixbufs;

sub get_strength_icon {
    my ($network) = @_;
    my $approx = 20 + min(80, int($network->{signal_strength}/20)*20);
    return $pixbufs{$approx} ||= ugtk2::gtkcreate_pixbuf('wifi-' . sprintf('%03d', $approx));
}

1;