summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-07-04 15:18:25 +0000
committerdamien <damien@mandriva.com>2001-07-04 15:18:25 +0000
commitccab685a69ee364a01b6c1334aee826c225dd67e (patch)
tree58bfe61a0ac963b603fdf12d55fdff747d77a296 /perl-install/network/netconnect.pm
parenta8483a396eb30e0ec2f545be31d90483ea244d47 (diff)
downloaddrakx-backup-do-not-use-ccab685a69ee364a01b6c1334aee826c225dd67e.tar
drakx-backup-do-not-use-ccab685a69ee364a01b6c1334aee826c225dd67e.tar.gz
drakx-backup-do-not-use-ccab685a69ee364a01b6c1334aee826c225dd67e.tar.bz2
drakx-backup-do-not-use-ccab685a69ee364a01b6c1334aee826c225dd67e.tar.xz
drakx-backup-do-not-use-ccab685a69ee364a01b6c1334aee826c225dd67e.zip
corrected
Diffstat (limited to 'perl-install/network/netconnect.pm')
-rw-r--r--perl-install/network/netconnect.pm107
1 files changed, 5 insertions, 102 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 8447df8d8..ae1d2abcf 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -88,98 +88,10 @@ sub main {
($prefix, my $netcnx, my $netc, my $mouse, $in, my $intf, $install, my $first_time, my $direct_fr) = @_;
$netc->{minus_one}=0; #When one configure an eth in dhcp without gateway
$::isInstall and $in->set_help('configureNetwork');
- my $continue = !(!$::expert && values %$intf > 0 && $first_time);
$::isStandalone and read_net_conf($netcnx, $netc); # REDONDANCE with intro. FIXME
$netc->{NET_DEVICE}=$netcnx->{NET_DEVICE} if $netcnx->{NET_DEVICE}; # REDONDANCE with read_conf. FIXME
$netc->{NET_INTERFACE}=$netcnx->{NET_INTERFACE} if $netcnx->{NET_INTERFACE}; # REDONDANCE with read_conf. FIXME
network::read_all_conf($prefix, $netc ||= {}, $intf ||= {});
-# $in->set_help('') unless $::isStandalone;
-
-#use network::adsl;
-#use network::ethernet;
-#use network::isdn;
-#use network::modem;
-
- my $configure_modem = sub {
- require network::modem;
- network::modem::configure($netcnx, $mouse, $netc);
- };
-
- my $configure_isdn = sub {
- require network::isdn;
- network::isdn::configure($netcnx, $netc);
- };
- my $configure_adsl = sub {
- require network::adsl;
- network::adsl::configure($netcnx, $netc);
- };
- my $configure_cable = sub {
- $::isInstall and $in->set_help('configureNetworkCable');
- $netcnx->{type}='cable';
- # $netcnx->{cable}={};
- # $in->ask_from_entries_ref(_("Cable connection"),
- # _("Please enter your host name if you know it.
- # Some DHCP servers require the hostname to work.
- # Your host name should be a fully-qualified host name,
- # such as ``mybox.mylab.myco.com''."),
- # [_("Host name:")], [ \$netcnx->{cable}{hostname} ]);
- if ($::expert) {
- #- dhcpcd, etc are program names; no need to translate them.
- my @m=(
- { description => "dhcpcd",
- c => 1},
- { description => "dhcpxd",
- c => 3},
- { description => "dhcp-client",
- c => 4},
- );
- if (my $f = $in->ask_from_listf(_("Connect to the Internet"),
- _("Which dhcp client do you want to use?
-Default is dhcpcd"),
- sub { $_[0]{description} },
- \@m )) {
- $f->{c}==1 and $netcnx->{dhcp_client}="dhcpcd" and $install->(qw(dhcpcd));
- $f->{c}==3 and $netcnx->{dhcp_client}="dhcpxd" and $install->(qw(dhcpxd));
- $f->{c}==4 and $netcnx->{dhcp_client}="dhcp-client" and $install->(qw(dhcp-client));
- }
- } else {
- $install->(qw(dhcpcd));
- }
- go_ethernet($netc, $intf, 'dhcp', '', '', $first_time);
- };
- my $configure_lan = sub {
- $::isInstall and $in->set_help('configureNetworkIP');
- network::configureNetwork($prefix, $netc, $in, $intf, $first_time) or return;
- network::configureNetwork2($in, $prefix, $netc, $intf, $install);
- if ($::isStandalone and $in->ask_yesorno(_("Network configuration"),
- _("Do you want to restart the network"), 1)) {
- run_program::rooted($prefix, "/etc/rc.d/init.d/network stop");
- if (!run_program::rooted($prefix, "/etc/rc.d/init.d/network start")) {
- $in->ask_okcancel(_("Network Configuration"), _("A problem occured while restarting the network: \n\n%s", `/etc/rc.d/init.d/network start`), 0) or return;
- }
- }
- $netc->{NETWORKING} = "yes";
- if ($netc->{GATEWAY}) {
- $netcnx->{type}='lan';
- $netcnx->{NET_DEVICE} = $netc->{NET_DEVICE} = '';
- $netcnx->{NET_INTERFACE} = 'lan';#$netc->{NET_INTERFACE};
- }
- output "$prefix$connect_file",
- qq(
-#!/bin/bash
-/etc/rc.d/init.d/network restart
-);
- output "$prefix$disconnect_file",
- qq(
-#!/bin/bash
-/etc/rc.d/init.d/network stop
-/sbin/ifup lo
-);
- chmod 0755, "$prefix$disconnect_file";
- chmod 0755, "$prefix$connect_file";
- $::isStandalone and modules::write_conf($prefix);
- 1;
- };
modules::mergein_conf("$prefix/etc/modules.conf");
@@ -239,15 +151,6 @@ ifdown eth0
my $i=0;
map { defined $set_default or do { $_->[1] and $set_default=$i; }; $i++; } @l;
foreach (keys %{$netc->{autodetect}}) { print "plop $_\n" };
-# my $e = $in->ask_from_listf(_("Network Configuration Wizard"),
-# _("How do you want to connect to the Internet?"), sub { translate($_[0][0]) . if_($_[0][1], " - " . _ ($_[0][2], $_[0][1])) }, \@l , $l[$set_default]
-# ) or goto step_1;
-
-# my @l2 = map {
-#{
-# label => $_[0][0] . if_($_[0][1], " - " . _ ($_[0][2], $_[0][1])),
-# val => $_[0][3], type => 'bool'}
-# } @l;
my $e = $in->ask_from_entries_refH(_("Network Configuration Wizard"),
_("Choose"),
[
@@ -259,11 +162,11 @@ ifdown eth0
# load_conf ($netcnx, $netc, $intf);
- $conf{modem} and do { $configure_modem->() or goto step_2 };
- $conf{isdn} and do { $configure_isdn->() or goto step_2 };
- $conf{adsl} and do { $configure_adsl->() or goto step_2 };
- $conf{cable} and do { $configure_cable->() or goto step_2 };
- $conf{lan} and do { $configure_lan->() or goto step_2 };
+ $conf{modem} and do { require network::modem; network::modem::configure($netcnx, $mouse, $netc) or goto step_2 };
+ $conf{isdn} and do { require network::isdn; network::isdn::configure($netcnx, $netc) or goto step_2 };
+ $conf{adsl} and do { require network::adsl; network::adsl::configure($netcnx, $netc, $intf, $first_time) or goto step_2 };
+ $conf{cable} and do { require network::ethernet; network::ethernet::configure_cable($netcnx, $netc, $intf, $first_time) or goto step_2 };
+ $conf{lan} and do { require network::ethernet; network::ethernet::configure_lan($netcnx, $netc, $intf, $first_time) or goto step_2 };
step_3: