From 176b066d32a17cac382c33bc8f90a9231dcf31e3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 27 May 2004 07:25:06 +0000
Subject: (get_val) reuse c::get_netdevices() and thus skip bogus sit0

---
 perl-install/standalone/net_monitor | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'perl-install/standalone')

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;
 }
 
-- 
cgit v1.2.1