summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakconnect
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-02-27 13:26:36 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-02-27 13:26:36 +0000
commitee90af4458c61141f5850784c806a29074cb941f (patch)
tree89bbf5243d2c8f239cdbe9597efcee9b89188a27 /perl-install/standalone/drakconnect
parent0ae3e05d2a0084dc96a30dae10ed18027a152d26 (diff)
downloaddrakx-backup-do-not-use-ee90af4458c61141f5850784c806a29074cb941f.tar
drakx-backup-do-not-use-ee90af4458c61141f5850784c806a29074cb941f.tar.gz
drakx-backup-do-not-use-ee90af4458c61141f5850784c806a29074cb941f.tar.bz2
drakx-backup-do-not-use-ee90af4458c61141f5850784c806a29074cb941f.tar.xz
drakx-backup-do-not-use-ee90af4458c61141f5850784c806a29074cb941f.zip
- better check /sbin/ifconfig is executable rather than simply exists
- fix lan configuration window filling ...
Diffstat (limited to 'perl-install/standalone/drakconnect')
-rwxr-xr-xperl-install/standalone/drakconnect6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 360bd1895..741bfc523 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -311,14 +311,14 @@ $in->exit(0);
sub build_list {
foreach my $i (0..$#all_cards) {
my ($ip, $state);
- if (-e "/sbin/ifconfig") {
+ if (-x "/sbin/ifconfig") {
local $_ = `LC_ALL=C LANG=C LANGUAGE=C LC_MESSAGES=C /sbin/ifconfig "eth$i"`;
/inet addr\:$ip_regexp/;
- $ip = if_($1 && $2 && $3, "$1.$2.$3.$4");
+ $ip = if_($1 && $2 && $3, "$1.$2.$3.$4");
$_ = `LC_ALL=C LANG=C LANGUAGE=C LC_MESSAGES=C /sbin/ifconfig`;
$state = /eth$i/ ? "up" : "down";
} else {
- $ip = $intf->{"eth$_"}{IPADDR};
+ $ip = $intf->{"eth$i"}{IPADDR};
$state = "n/a";
}
$tree_model->append_set(undef, [ map_index { $::i => $_ } (gtkcreate_pixbuf("eth_card_mini2.png"), "eth$i", $ip , $intf->{"eth$i"}{BOOTPROTO}, $all_cards[$i][1], $state) ])->free;