summaryrefslogtreecommitdiffstats
path: root/perl-install
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
parenta8483a396eb30e0ec2f545be31d90483ea244d47 (diff)
downloaddrakx-ccab685a69ee364a01b6c1334aee826c225dd67e.tar
drakx-ccab685a69ee364a01b6c1334aee826c225dd67e.tar.gz
drakx-ccab685a69ee364a01b6c1334aee826c225dd67e.tar.bz2
drakx-ccab685a69ee364a01b6c1334aee826c225dd67e.tar.xz
drakx-ccab685a69ee364a01b6c1334aee826c225dd67e.zip
corrected
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/adsl.pm1
-rw-r--r--perl-install/network/ethernet.pm72
-rw-r--r--perl-install/network/netconnect.pm107
-rw-r--r--perl-install/network/tools.pm2
-rwxr-xr-xperl-install/standalone/draknet2
5 files changed, 80 insertions, 104 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index 53b4a440c..2583cbd29 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -11,6 +11,7 @@ use vars qw(@ISA @EXPORT);
@EXPORT = qw(adsl_ask_info adsl_detect adsl_conf adsl_conf_backend);
sub configure{
+ my ($netcnx, $netc, $intf, $first_time) = @_;
$::isInstall and $in->set_help('configureNetworkADSL');
conf_adsl_step1:
my $type = $in->ask_from_list_(_("Connect to the Internet"),
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index c03d64e9a..5417520b8 100644
--- a/perl-install/network/ethernet.pm
+++ b/perl-install/network/ethernet.pm
@@ -10,6 +10,78 @@ use vars qw(@ISA @EXPORT);
@ISA = qw(Exporter);
@EXPORT = qw(conf_network_card conf_network_card_backend go_ethernet);
+sub configure_cable {
+ my ($netcnx, $netc, $intf, $first_time) = @_;
+ $::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) {
+ 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);
+}
+
+sub configure_lan {
+ my ($netcnx, $netc, $intf, $first_time) = @_;
+ $::isInstall and $in->set_help('configureNetworkIP');
+ require Data::Dumper;
+ print "plop :" . Data::Dumper->Dump([\$in], ['$in']) . "\n";
+ 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;
+}
+
sub conf_network_card {
my ($netc, $intf, $type, $ipadr, $netadr) = @_;
#-type =static or dhcp
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:
diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 5f064ee73..8234c8143 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -1,6 +1,6 @@
package network::tools;
-use common qw(:common :file)
+use common qw(:common :file);
use run_program;
use vars qw(@ISA @EXPORT);
diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet
index c2671dde4..374a0e423 100755
--- a/perl-install/standalone/draknet
+++ b/perl-install/standalone/draknet
@@ -333,7 +333,7 @@ Gtk->main;
Gtk->exit(0);
dd:
-netconnect::intro('', $netcnx, $in, sub { $in->standalone::pkgs_install(@_) });
+network::netconnect::intro('', $netcnx, $in, sub { $in->standalone::pkgs_install(@_) });
$in->exit(0);