summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/net_monitor
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-10-16 17:37:45 +0000
committerOlivier Blin <oblin@mandriva.org>2004-10-16 17:37:45 +0000
commit59c52202ce716b3fbad8cb9977aaa566bf96d132 (patch)
treea1922048d53ea2f2cf8a2f1997ae002656361891 /perl-install/standalone/net_monitor
parentd215cdfa3162fe2c60f2ae779326775d397ab18b (diff)
downloaddrakx-59c52202ce716b3fbad8cb9977aaa566bf96d132.tar
drakx-59c52202ce716b3fbad8cb9977aaa566bf96d132.tar.gz
drakx-59c52202ce716b3fbad8cb9977aaa566bf96d132.tar.bz2
drakx-59c52202ce716b3fbad8cb9977aaa566bf96d132.tar.xz
drakx-59c52202ce716b3fbad8cb9977aaa566bf96d132.zip
(update) do not re-select the default interface every 5 seconds
Diffstat (limited to 'perl-install/standalone/net_monitor')
-rwxr-xr-xperl-install/standalone/net_monitor13
1 files changed, 8 insertions, 5 deletions
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index a7cc437d5..8c0d70cfb 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -450,11 +450,14 @@ sub update() {
my $intf = $_;
$notebook->remove_page($monitor->{$intf}{page}) unless member($intf,@intfs);
}
- for (my $num_p = 0; $num_p < $notebook->get_n_pages; $num_p++) {
- if ($notebook->get_tab_label_text($notebook->get_nth_page($num_p)) eq $default_intf) {
- $notebook->set_current_page($num_p);
- last;
- }
+ if (@intfs && !@interfaces) {
+ #- select the default interface at start
+ for (my $num_p = 0; $num_p < $notebook->get_n_pages; $num_p++) {
+ if ($notebook->get_tab_label_text($notebook->get_nth_page($num_p)) eq $default_intf) {
+ $notebook->set_current_page($num_p);
+ last;
+ }
+ }
}
@interfaces = @intfs;
if ($isconnected != -2 && $isconnected != -1 && !$during_connection) {