summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2000-09-22 11:49:09 +0000
committerdamien <damien@mandriva.com>2000-09-22 11:49:09 +0000
commit2aa86cb598d7fd827b4bcb23ef059b97d6d22501 (patch)
treec9deffdbf41ab922df64826aa665625bfd8bcae0 /perl-install
parent13ff0f7a5bc6f25bea8c85a83de230c4b1ed0afc (diff)
downloaddrakx-backup-do-not-use-2aa86cb598d7fd827b4bcb23ef059b97d6d22501.tar
drakx-backup-do-not-use-2aa86cb598d7fd827b4bcb23ef059b97d6d22501.tar.gz
drakx-backup-do-not-use-2aa86cb598d7fd827b4bcb23ef059b97d6d22501.tar.bz2
drakx-backup-do-not-use-2aa86cb598d7fd827b4bcb23ef059b97d6d22501.tar.xz
drakx-backup-do-not-use-2aa86cb598d7fd827b4bcb23ef059b97d6d22501.zip
stc
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ChangeLog8
-rw-r--r--perl-install/network.pm22
2 files changed, 24 insertions, 6 deletions
diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index 9f26dbe8f..1635d5472 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -1,3 +1,11 @@
+2000-09-22 dam's <damien@mandrakesoft.com>
+
+ * netconnect.pm (get_net_device): added get_net_device to know
+ which interface has been used to configure the internet connection.
+
+ * network.pm (configureNetworkIntf): changed label to warn people
+ about already configured eth cards.
+
2000-09-22 François Pons <fpons@mandrakesoft.com>
* install_gtk.pm: added Desktop themes.
diff --git a/perl-install/network.pm b/perl-install/network.pm
index c7b88e420..b28482edc 100644
--- a/perl-install/network.pm
+++ b/perl-install/network.pm
@@ -253,7 +253,7 @@ sub configureNetwork {
my $intf2 = findIntf($intf ||= {}, $_);
add2hash($intf2, $last);
add2hash($intf2, { NETMASK => '255.255.255.0' });
- configureNetworkIntf($in, $intf2) or last;
+ configureNetworkIntf($in, $intf2, $netc->{net_device}, 0) or last;
$netc ||= {};
$last = $intf2;
@@ -279,17 +279,27 @@ such as ``mybox.mylab.myco.com''."),
sub configureNetworkIntf {
- my ($in, $intf) = @_;
+ my ($in, $intf, $net_device, $skip) = @_;
+ my $text;
+ if ($net_device eq $intf->{DEVICE}) {
+ $skip and return 1;
+ $text = _("WARNING : This device has been previously configured to connect to the Internet.
+Simply press Cancel to keep this device configured.
+Modifying the fields below and clicking on OK will override this configuration.");
+ }
+ else {
+ $text = _("Please enter the IP configuration for this machine.
+Each item should be entered as an IP address in dotted-decimal
+notation (for example, 1.2.3.4).");
+ }
my $pump = $intf->{BOOTPROTO} =~ /^(dhcp|bootp)$/;
delete $intf->{NETWORK};
delete $intf->{BROADCAST};
my @fields = qw(IPADDR NETMASK);
$::isStandalone or $in->set_help('configureNetworkIP');
$in->ask_from_entries_ref(_("Configuring network device %s", $intf->{DEVICE}),
-($::isStandalone ? '' : _("Configuring network device %s", $intf->{DEVICE}) . "\n\n") .
-_("Please enter the IP configuration for this machine.
-Each item should be entered as an IP address in dotted-decimal
-notation (for example, 1.2.3.4)."),
+ ($::isStandalone ? '' : _("Configuring network device %s", $intf->{DEVICE}) . "\n\n") .
+ $text,
[ _("IP address"), _("Netmask"), _("Automatic IP") ],
[ \$intf->{IPADDR}, \$intf->{NETMASK}, { val => \$pump, type => "bool", text => _("(bootp/dhcp)") } ],
complete => sub {