summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2004-01-29 18:36:07 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2004-01-29 18:36:07 +0000
commitcc4ef5f7da30b3ce10c1736671ae62b997c349e4 (patch)
tree55f3f6b88fde108567b05a9e58521be72850e848 /perl-install
parent6c232a9bfae5a3d0c37ed70641f1acff1b553d28 (diff)
downloaddrakx-cc4ef5f7da30b3ce10c1736671ae62b997c349e4.tar
drakx-cc4ef5f7da30b3ce10c1736671ae62b997c349e4.tar.gz
drakx-cc4ef5f7da30b3ce10c1736671ae62b997c349e4.tar.bz2
drakx-cc4ef5f7da30b3ce10c1736671ae62b997c349e4.tar.xz
drakx-cc4ef5f7da30b3ce10c1736671ae62b997c349e4.zip
beautify ethernet cards name
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakconnect9
1 files changed, 9 insertions, 0 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index b82eb8c7b..e378da94b 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -196,6 +196,14 @@ sub manage {
my $config = { 'ethernet0' => { kind => 'eth0' },
}; # testing
+ #- duplicated from network::ethernet, to be factorized
+ @all_cards = network::ethernet::get_eth_cards();
+ foreach my $card (@all_cards) {
+ modules::remove_alias($card->[1]);
+ modules::add_alias($card->[0], $card->[1]);
+ }
+ my %name = map { $_->[0] => join(': ', $_->[0], $_->[2]) } @all_cards;
+
$window->{rwindow}->add(gtkpack_(Gtk2::VBox->new,
0, $interface_menu = gtksignal_connect(Gtk2::OptionMenu->new,
changed => sub {
@@ -226,6 +234,7 @@ sub manage {
each_index {
my ($name, $interface, $protocol) = ($_, $config->{$_}{kind}, $config->{$_}{protocol});
$gui->{$interface}{index} = $::i;
+ $interface =~ /eth/ and $config->{$name{$interface}} = $interface && delete $config->{$name};
build_tree($netc, $intf->{$interface} ||= {}, $name, $interface, $protocol);
build_notebook($netc, $intf->{$interface}, $gui->{$interface}, $apply_button, $name, $interface);
$notebook->append_page(gtkpack(Gtk2::VBox->new(0,0), $gui->{$interface}{notebook}));