diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-05-28 08:21:15 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-05-28 08:21:15 +0000 |
commit | 7db099c14da7fde27be0cd6dbe0bf79183420a4f (patch) | |
tree | 646b1d606c8f0c60d18d54b43861e099a93c21cd /perl-install/standalone/net_monitor | |
parent | bb5d5f6f9a104490f1d4497a091d3ed9adac0ca2 (diff) | |
download | drakx-7db099c14da7fde27be0cd6dbe0bf79183420a4f.tar drakx-7db099c14da7fde27be0cd6dbe0bf79183420a4f.tar.gz drakx-7db099c14da7fde27be0cd6dbe0bf79183420a4f.tar.bz2 drakx-7db099c14da7fde27be0cd6dbe0bf79183420a4f.tar.xz drakx-7db099c14da7fde27be0cd6dbe0bf79183420a4f.zip |
merge fixes from HEAD
Diffstat (limited to 'perl-install/standalone/net_monitor')
-rwxr-xr-x | perl-install/standalone/net_monitor | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor index 7e323fb19..3863e0197 100755 --- a/perl-install/standalone/net_monitor +++ b/perl-install/standalone/net_monitor @@ -25,6 +25,7 @@ use lib qw(/usr/lib/libDrakX); use strict; use standalone; #- warning, standalone must be loaded very first, for 'explanations' +use c; use interactive; use ugtk2 qw(:helpers :wrappers :create); use common; @@ -281,12 +282,15 @@ sub get_val() { $a =~ s/^.*?\n.*?\n//; $a =~ s/^\s*lo:.*?\n//; my @line = split(/\n/, $a); + my @interfaces = c::get_netdevices(); map { s/\s*(\w*)://; my $intf = $1; - $monitor->{$intf}{val} = [split()]; - $monitor->{$intf}{intf} = $intf; - $intf; + if (member($intf, @interfaces)) { + $monitor->{$intf}{val} = [ split() ]; + $monitor->{$intf}{intf} = $intf; + $intf; + } else { () } } @line; } |