diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/netconnect.pm | 85 |
1 files changed, 69 insertions, 16 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 2b63b024d..b9afb72a5 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -89,7 +89,7 @@ sub get_subwizard { my ($network_configured, $direct_net_install, $cnx_type, $type, $interface, @cards, @all_cards, @devices); my (%connections, %rconnections, @connection_list); my ($modem, $modem_name, $modem_conf_read, $modem_dyn_dns, $modem_dyn_ip); - my ($adsl_type, $adsl_device, @adsl_devices); + my ($adsl_type, $adsl_device, @adsl_devices, $adsl_failed, $adsl_answer); my ($ntf_name, $ipadr, $netadr, $gateway_ex, $up, $isdn, $isdn_type, $need_restart_network); my ($module, $text, $auto_ip, $net_device, $onboot, $needhostname, $hotplug, $track_network_id, @fields); # lan config my $success = 1; @@ -537,11 +537,72 @@ killall pppd return 'adsl_unsupported_eci' if $adsl_device eq 'eci'; $netconnect::need_restart_network = member($adsl_device, qw(speedtouch eci)); $in->do_pkgs->install($packages{$adsl_device}) if $packages{$adsl_device}; + if ($adsl_device eq 'speedtouch' && !$::testing) { + $in->do_pkgs->what_provides("speedtouch_mgmt") and + $in->do_pkgs->ensure_is_installed('speedtouch_mgmt', '/usr/share/speedtouch/mgmt.o', 'auto'); + return 'adsl_speedtouch_firmware' if ! -e "$prefix/usr/share/speedtouch/mgmt.o"; + } return 'adsl_protocol'; }, }, + adsl_speedtouch_firmware => + { + name => N("You need the Alcatel microcode. +You can provide it now via a floppy or your windows partition, +or skip and do it later."), + data => [ { label => "", val => \$adsl_answer, type => "list", + list => [ N("Use a floppy"), N("Use my Windows partition"), N("Do it later") ], } + ], + post => sub { + my $destination = "$prefix/usr/share/speedtouch/"; + my ($file, $source, $mounted); + if ($adsl_answer eq N("Use a floppy")) { + $mounted = 1; + $file = 'mgmt.o'; + ($source, $adsl_failed) = network::tools::use_floppy($file); + } elsif ($adsl_answer eq N("Use my Windows partition")) { + $file = 'alcaudsl.sys'; + ($source, $adsl_failed) = network::tools::use_windows(); + } + return "adsl_no_firmawre" if $adsl_answer eq N("Do it later"); + + my $_b = before_leaving { fs::umount('/mnt') } if $mounted; + if (!$adsl_failed) { + if (-e "$source/$file") { + cp_af("$source/$file", $destination) if !$::testing; + } else { + $adsl_failed = N("Firmware copy failed, file %s not found", $file); + } + } + log::explanations($adsl_failed || "Firmware copy $file in $destination succeeded"); + -e "$destination/alcaudsl.sys" and rename "$destination/alcaudsl.sys", "$destination/mgmt.o"; + + # kept translations b/c we may want to reuse it later: + N("Firmware copy succeeded"); + return $adsl_failed ? 'adsl_copy_firmware_failled' : 'adsl_protocol'; + }, + }, + + + adsl_copy_firmware_failled => + { + name => sub { $adsl_failed }, + next => 'adsl_protocol', + }, + + + "adsl_no_firmawre" => + { + name => N("You need the Alcatel microcode. +Download it at: +%s +and copy the mgmt.o in /usr/share/speedtouch", 'http://prdownloads.sourceforge.net/speedtouch/speedtouch-20011007.tar.bz2'), + next => "adsl_protocol", + }, + + adsl_protocol => { name => N("Connect to the Internet") . "\n\n" . @@ -677,6 +738,12 @@ notation (for example, 1.2.3.4).")), $ethntf->{MII_NOT_SUPPORTED} = bool2yesno(!$hotplug); $ethntf->{HWADDR} = $track_network_id or delete $ethntf->{HWADDR}; $in->do_pkgs->install($netcnx->{dhcp_client}) if $auto_ip; + write_cnx_script($netc, "cable", qq( +/sbin/ifup $netc->{NET_DEVICE} +), + qq( +/sbin/ifdown $netc->{NET_DEVICE} +), $netcnx->{type}) if $netcnx->{type} eq 'cable'; return is_wireless_intf($module) ? "wireless" : "static_hostname"; }, @@ -781,7 +848,6 @@ I cannot set up this connection type.")), return; static_hostname => { pre => sub { - $netc->{dnsServer} ||= dns($intf->{IPADDR}); $gateway_ex = gateway($intf->{IPADDR}); #- $netc->{GATEWAY} ||= gateway($intf->{IPADDR}); @@ -815,20 +881,6 @@ You may also enter the IP address of the gateway if you have one."), $in->ask_warn(N("Error"), N("Gateway address should be in format 1.2.3.4")); return 1; } - }, - #post => $handle_multiple_cnx, - next => "zeroconf", - }, - - dhcp_hostname => - { - }, - - zeroconf => - { - name => N("Enter a Zeroconf host name which will be the one that your machine will get back to other machines on the network:"), - data => [ { label => N("Zeroconf Host name"), val => \$netc->{ZEROCONF_HOSTNAME} } ], - complete => sub { if ($netc->{ZEROCONF_HOSTNAME} =~ /\./) { $in->ask_warn(N("Error"), N("Zeroconf host name must not contain a .")); return 1; @@ -837,6 +889,7 @@ You may also enter the IP address of the gateway if you have one."), post => $handle_multiple_cnx, }, + multiple_internet_cnx => { name => N("You have configured multiple ways to connect to the Internet.\nChoose the one you want to use.\n\n") . if_(!$::isStandalone, "You may want to configure some profiles after the installation, in the Mandrake Control Center"), |