drakx - Mageia Installer and base platform for many utilities

diff options

author	José Melo <mmodem@mandriva.org>	2010-03-14 07:10:23 +0000
committer	José Melo <mmodem@mandriva.org>	2010-03-14 07:10:23 +0000
commit	90f29503f6f39f7475d7c44e53d2bbb7bede511d (patch)
tree	7b5727054dff009f619b0555e0cc1a5eec83955b /perl-install/standalone/po/pt.po
parent	7bda85a1d7f1dbacabe76f2b385fe46089ddcba1 (diff)
download	drakx-90f29503f6f39f7475d7c44e53d2bbb7bede511d.tar drakx-90f29503f6f39f7475d7c44e53d2bbb7bede511d.tar.gz drakx-90f29503f6f39f7475d7c44e53d2bbb7bede511d.tar.bz2 drakx-90f29503f6f39f7475d7c44e53d2bbb7bede511d.tar.xz drakx-90f29503f6f39f7475d7c44e53d2bbb7bede511d.zip

update

Diffstat (limited to 'perl-install/standalone/po/pt.po')

-rw-r--r--

perl-install/standalone/po/pt.po

1 files changed, 35 insertions, 31 deletions

package network::netconnect; # $Id$ use strict; use common; use log; use detect_devices; use run_program; use modules; use any; use fs; use mouse; use network::network; use network::tools; use MDK::Common::Globals "network", qw($in); sub detect { my ($modules_conf, $auto_detect, $o_class) = @_; my %l = ( isdn => sub { require network::isdn; $auto_detect->{isdn} = network::isdn::detect_backend($modules_conf); }, lan => sub { # ethernet require network::ethernet; modules::load_category($modules_conf, network::ethernet::get_eth_categories()); $auto_detect->{lan} = { map { $_->[0] => $_->[1] } network::ethernet::get_eth_cards($modules_conf) }; }, adsl => sub { require network::adsl; $auto_detect->{adsl} = network::adsl::adsl_detect(); }, modem => sub { $auto_detect->{modem} = { map { $_->{description} || "$_->{MANUFACTURER}|$_->{DESCRIPTION} ($_->{device})" => $_ } detect_devices::getModem($modules_conf) }; }, ); $l{$_}->() foreach $o_class || keys %l; return; } sub init_globals { my ($in) = @_; MDK::Common::Globals::init(in => $in); } sub detect_timezone() { my %tmz2country = ( 'Europe/Paris' => N("France"), 'Europe/Amsterdam' => N("Netherlands"), 'Europe/Rome' => N("Italy"), 'Europe/Brussels' => N("Belgium"), 'America/New_York' => N("United States"), 'Europe/London' => N("United Kingdom") ); my %tm_parse = MDK::Common::System::getVarsFromSh("$::prefix/etc/sysconfig/clock"); my @country; foreach (keys %tmz2country) { if ($_ eq $tm_parse{ZONE}) { unshift @country, $tmz2country{$_}; } else { push @country, $tmz2country{$_} }; } \@country; } # load sub category's wizard pages into main wizard data structure sub get_subwizard { my ($wiz, $type) = @_; my %net_conf_callbacks = (adsl => sub { require network::adsl; &network::adsl::get_wizard }, #cable => sub { require network::ethernet; &network::ethernet::get_wizard }, #isdn => sub { require network::isdn; &network::isdn::get_wizard }, #lan => sub { require network::ethernet; &network::ethernet::get_wizard }, #modem => sub { require network::modem; &network::modem::get_wizard }, ); $net_conf_callbacks{$type}->($wiz); } # configuring all network devices sub real_main { my ($_prefix, $netcnx, $in, $modules_conf, $o_netc, $o_mouse, $o_intf, $o_first_time, $o_noauto) = @_; my $netc = $o_netc ||= {}; my $mouse = $o_mouse ||= {}; my $intf = $o_intf ||= {}; my $first_time = $o_first_time || 0; my ($network_configured, $cnx_type, $type, @all_cards, %eth_intf, %all_eth_intf); my (%connections, @connection_list, $is_wireless); my ($modem, $modem_name, $modem_conf_read, $modem_dyn_dns, $modem_dyn_ip); my ($adsl_type, @adsl_devices, $adsl_failed, $adsl_answer, %adsl_data, $adsl_data, $adsl_provider, $adsl_old_provider); my ($ntf_name, $gateway_ex, $up, $need_restart_network); my ($isdn, $isdn_name, $isdn_type, %isdn_cards, @isdn_dial_methods); my $my_isdn = join('', N("Manual choice"), " (", N("Internal ISDN card"), ")"); my ($module, $auto_ip, $protocol, $onboot, $needhostname, $hotplug, $track_network_id, @fields); # lan config my $success = 1; my $ethntf = {}; my $db_path = "/usr/share/apps/kppp/Provider"; my (%countries, @isp, $country, $provider, $old_provider); my $config = {}; eval(cat_("$::prefix/etc/sysconfig/drakconnect")); my %wireless_mode = (N("Ad-hoc") => "Ad-hoc", N("Managed") => "Managed", N("Master") => "Master", N("Repeater") => "Repeater", N("Secondary") => "Secondary", N("Auto") => "Auto", ); my %l10n_lan_protocols = ( static => N("Manual configuration"), dhcp => N("Automatic IP (BOOTP/DHCP)"), if_(0, dhcp_zeroconf => N("Automatic IP (BOOTP/DHCP/Zeroconf)"), ) ); my $_w = N("Protocol for the rest of the world"); my %isdn_protocols = ( 2 => N("European protocol (EDSS1)"), 3 => N("Protocol for the rest of the world\nNo D-Channel (leased lines)"), ); network::tools::remove_initscript(); init_globals($in); read_net_conf($netcnx, $netc, $intf); $netc->{autodetect} = {}; my $lan_detect = sub { detect($modules_conf, $netc->{autodetect}, 'lan'); require network::ethernet; modules::interactive::load_category($in, $modules_conf, network::ethernet::get_eth_categories(), !$::expert, 0); @all_cards = network::ethernet::get_eth_cards($modules_conf); %all_eth_intf = network::ethernet::get_eth_cards_names(@all_cards); #- needed not to loose GATEWAYDEV require list_modules; #- FIXME: check if useful %eth_intf = map { $_->[0] => join(': ', $_->[0], $_->[2]) } grep { to_bool($is_wireless) == c::isNetDeviceWirelessAware($_->[0]) } @all_cards; }; my $find_lan_module = sub { if (my $dev = find { $_->{device} eq $ethntf->{DEVICE} } detect_devices::pcmcia_probe()) { # PCMCIA case $module = $dev->{driver}; } elsif ($dev = find { $_->[0] eq $ethntf->{DEVICE} } @all_cards) { $module = $dev->[1]; } else { $module = "" } }; my $is_hotplug_blacklisted = sub { bool2yesno(member($module, qw(b44 forcedeth madwifi_pci)) || find { $_->{device} eq $ntf_name } detect_devices::pcmcia_probe()); }; my %adsl_devices = ( speedtouch => N("Alcatel speedtouch USB modem"), sagem => N("Sagem USB modem"), bewan => N("Bewan modem"), eci => N("ECI Hi-Focus modem"), # this one needs eci agreement ); my %adsl_types = ( dhcp => N("Dynamic Host Configuration Protocol (DHCP)"), manual => N("Manual TCP/IP configuration"), pptp => N("Point to Point Tunneling Protocol (PPTP)"), pppoe => N("PPP over Ethernet (PPPoE)"), pppoa => N("PPP over ATM (PPPoA)"), capi => N("DSL over CAPI"), ); my %encapsulations = ( 1 => N("Bridged Ethernet LLC"), 2 => N("Bridged Ethernet VC"), 3 => N("Routed IP LLC"), 4 => N("Routed IP VC"), 5 => N("PPPoA LLC"), 6 => N("PPPoA VC"), ); my %ppp_auth_methods = ( 0 => N("Script-based"), 1 => N("PAP"), 2 => N("Terminal-based"), 3 => N("CHAP"), 4 => N("PAP/CHAP"), ); my $offer_to_connect = sub { return "ask_connect_now" if $netc->{internet_cnx_choice} eq 'adsl' && !member($adsl_type, qw(manual dhcp)); return "ask_connect_now" if member($netc->{internet_cnx_choice}, qw(modem isdn isdn_external)); return "end"; }; my $after_start_on_boot_step = sub { if ($netc->{internet_cnx_choice} && exists $netc->{internet_cnx}{$netc->{internet_cnx_choice}}) { $netcnx->{type} = $netc->{internet_cnx}{$netc->{internet_cnx_choice}}{type}; } else { undef $netc->{NET_DEVICE}; } if ($netcnx->{type} eq 'adsl' && member($adsl_type, qw(manual dhcp)) && member($ntf_name, qw(sagem))) { #- we need to write sagem specific parameters and load corresponding modules/programs network::adsl::adsl_conf_backend($in, $modules_conf, $netcnx, $netc, $intf, $ntf_name, $adsl_type, $netcnx); } network::network::configureNetwork2($in, $modules_conf, $::prefix, $netc, $intf); $network_configured = 1; return "restart" if $need_restart_network && $::isStandalone && !$::expert; return $offer_to_connect->(); }; my $goto_start_on_boot_ifneeded = sub { return $after_start_on_boot_step->() if $netcnx->{type} eq "lan"; return "isdn_dial_on_boot" if $netcnx->{type} =~ /isdn/; return "network_on_boot"; }; my $save_cnx = sub { if (keys %$config) { require Data::Dumper; output("$::prefix/etc/sysconfig/drakconnect", Data::Dumper->Dump([ $config ], [ '$p' ])); } return $goto_start_on_boot_ifneeded->(); }; my $handle_multiple_cnx = sub { $need_restart_network = member($netcnx->{type}, qw(cable lan)) || $netcnx->{type} eq 'adsl' && member($adsl_type, qw(manual dhcp)); my $nb = keys %{$netc->{internet_cnx}}; if (1 < $nb) { return "multiple_internet_cnx"; } else { $netc->{internet_cnx_choice} = $nb == 1 ? (keys %{$netc->{internet_cnx}})[0] : $netcnx->{type}; return $save_cnx->(); } }; # main wizard: my $wiz; $wiz = { defaultimage => "drakconnect.png", name => N("Network & Internet Configuration"), pages => { welcome => { pre => sub { # keep b/c of translations in case they can be reused somewhere else: my @_a = (N("(detected on port %s)", 'toto'), #-PO: here, "(detected)" string will be appended to eg "ADSL connection" N("(detected %s)", 'toto'), N("(detected)")); my @connections = ([ N("Modem connection"), "modem" ], [ N("ISDN connection"), "isdn" ], [ N("ADSL connection"), "adsl" ], [ N("Cable connection"), "cable" ], [ N("LAN connection"), "lan" ], [ N("Wireless connection"), "lan" ], ); foreach (@connections) { my ($string, $type) = @$_; $connections{$string} = $type; } @connection_list = { val => \$cnx_type, type => 'list', list => [ map { $_->[0] } @connections ], }; }, if_(!$::isInstall, no_back => 1), name => N("Choose the connection you want to configure"), interactive_help_id => 'configureNetwork', data => \@connection_list, post => sub { $is_wireless = $cnx_type eq N("Wireless connection"); #- why read again the net_conf here? read_net_conf($netcnx, $netc, $intf) if $::isInstall; # :-( $type = $netcnx->{type} = $connections{$cnx_type}; if ($type eq 'cable') { $auto_ip = 1; return "lan"; } return $type; }, }, prepare_detection => { name => N("We are now going to configure the %s connection.\n\n\nPress \"%s\" to continue.", translate($type), N("Next")), post => $handle_multiple_cnx, }, hw_account => { name => N("Connection Configuration") . "\n\n" . N("Please fill or check the field below"), data => sub { [ (map { my ($dstruct, $field, $item) = @$_; $item->{val} = \$dstruct->{$field}; if__(exists $dstruct->{$field}, $item); } ([ $netcnx, "irq", { label => N("Card IRQ") } ], [ $netcnx, "mem", { label => N("Card mem (DMA)") } ], [ $netcnx, "io", { label => N("Card IO") } ], [ $netcnx, "io0", { label => N("Card IO_0") } ], [ $netcnx, "io1", { label => N("Card IO_1") } ], [ $isdn, "phone_in", { label => N("Your personal phone number") } ], [ $netc, "DOMAINNAME2", { label => N("Provider name (ex provider.net)") } ], [ $isdn, "phone_out", { label => N("Provider phone number") } ], [ $netc, "dnsServer2", { label => N("Provider DNS 1 (optional)") } ], [ $netc, "dnsServer3", { label => N("Provider DNS 2 (optional)") } ], [ $isdn, "dialing_mode", { label => N("Dialing mode"), list => ["auto", "manual"] } ], [ $isdn, "speed", { label => N("Connection speed"), list => ["64 Kb/s", "128 Kb/s"] } ], [ $netcnx, "huptimeout", { label => N("Connection timeout (in sec)") } ], #unused? ) ), ({ label => N("Account Login (user name)"), val => \$isdn->{login} }, { label => N("Account Password"), val => \$isdn->{passwd}, hidden => 1 }, ) ], }, post => sub { network::isdn::write_config($isdn); $netc->{$_} = 'ippp0' foreach 'NET_DEVICE', 'NET_INTERFACE'; $handle_multiple_cnx->(); }, }, isdn => { pre=> sub { detect($modules_conf, $netc->{autodetect}, 'isdn'); %isdn_cards = map { $_->{description} => $_ } @{$netc->{autodetect}{isdn}}; }, name => N("Select the network interface to configure:"), data => sub { [ { label => N("Net Device"), type => "list", val => \$isdn_name, allow_empty_list => 1, list => [ $my_isdn, N("External ISDN modem"), keys %isdn_cards ] } ] }, post => sub { # !intern_pci: # data => [ { val => \$isdn_type, type => "list", list => [ , ], } ], # post => sub { if ($isdn_name eq $my_isdn) { return "isdn_ask"; } elsif ($isdn_name eq N("External ISDN modem")) { detect($modules_conf, $netc->{autodetect}, 'modem'); $netcnx->{type} = $netc->{isdntype} = 'isdn_external'; $netcnx->{isdn_external}{device} = network::modem::first_modem($netc); network::isdn::read_config($netcnx->{isdn_external}); #- FIXME: seems to be specific to ZyXEL Adapter Omni.net/TA 128/Elite 2846i #- it doesn't even work with TA 128 modems #- http://bugs.mandrakelinux.com/query.php?bug=1033 $netcnx->{isdn_external}{special_command} = 'AT&F&O2B40'; require network::modem; $modem = $netcnx->{isdn_external}; return "modem"; } $netc->{isdntype} = 'isdn_internal'; # FIXME: some of these should be taken from isdn db $netcnx->{isdn_internal} = $isdn = { map { $_ => $isdn_cards{$isdn_name}{$_} } qw(description vendor id card_type driver type mem io io0 io1 irq firmware) }; if ($isdn->{id}) { log::explanations("found isdn card : $isdn->{description}; vendor : $isdn->{vendor}; id : $isdn->{id}; driver : $isdn->{driver}\n"); $isdn->{description} =~ s/\|/ -- /; } network::isdn::read_config($isdn); $isdn->{driver} = $isdn_cards{$isdn_name}{driver}; #- do not let config overwrite default driver #- let the user choose hisax or capidrv if both are available $isdn->{driver} ne "capidrv" && network::isdn::get_capi_card($isdn) and return "isdn_driver"; return "isdn_protocol"; }, }, isdn_ask => { pre => sub { %isdn_cards = network::isdn::get_cards(); }, name => N("Select a device!"), data => sub { [ { label => N("Net Device"), val => \$isdn_name, type => 'list', separator => '|', list => [ keys %isdn_cards ], allow_empty_list => 1 } ] }, pre2 => sub { my ($label) = @_; #- ISDN card already detected goto isdn_ask_step_3; isdn_ask_step_1: my $e = $in->ask_from_list_(N("ISDN Configuration"), $label . "\n" . N("What kind of card do you have?"), [ N_("ISA / PCMCIA"), N_("PCI"), N_("USB"), N_("I don't know") ] ) or return; isdn_ask_step_1b: if ($e =~ /PCI/) { $isdn->{card_type} = 'pci'; } elsif ($e =~ /USB/) { $isdn->{card_type} = 'usb'; } else { $in->ask_from_list_(N("ISDN Configuration"), N(" If you have an ISA card, the values on the next screen should be right.\n If you have a PCMCIA card, you have to know the \"irq\" and \"io\" of your card. "), [ N_("Continue"), N_("Abort") ]) eq 'Continue' or goto isdn_ask_step_1; $isdn->{card_type} = 'isa'; } isdn_ask_step_2: $e = $in->ask_from_listf(N("ISDN Configuration"), N("Which of the following is your ISDN card?"), sub { $_[0]{description} }, [ network::isdn::get_cards_by_type($isdn->{card_type}) ]) or goto($isdn->{card_type} =~ /usb|pci/ ? 'isdn_ask_step_1' : 'isdn_ask_step_1b'); $e->{$_} and $isdn->{$_} = $e->{$_} foreach qw(driver type mem io io0 io1 irq firmware); }, post => sub { $netcnx->{isdn_internal} = $isdn = $isdn_cards{$isdn_name}; return "isdn_protocol"; } }, isdn_driver => { pre => sub { $isdn_name = "capidrv"; }, name => N("A CAPI driver is available for this modem. This CAPI driver can offer more capabilities than the free driver (like sending faxes). Which driver do you want to use?"), data => sub { [ { label => N("Driver"), type => "list", val => \$isdn_name, list => [ $isdn->{driver}, "capidrv" ] } ] }, post => sub { $isdn->{driver} = $isdn_name; return "isdn_protocol"; } }, isdn_protocol => { name => N("ISDN Configuration") . "\n\n" . N("Which protocol do you want to use?"), data => [ { label => N("Protocol"), type => "list", val => \$isdn_type, list => [ keys %isdn_protocols ], format => sub { $isdn_protocols{$_[0]} } } ], post => sub { $isdn->{protocol} = $isdn_type; return "isdn_db", } }, isdn_db => { name => N("ISDN Configuration") . "\n\n" . N("Select your provider.\nIf it isn't listed, choose Unlisted."), data => sub { [ { label => N("Provider:"), type => "list", val => \$provider, separator => '|', list => [ N("Unlisted - edit manually"), network::isdn::read_providers_backend() ] } ]; }, post => sub { network::isdn::get_info_providers_backend($isdn, $netc, $provider); $isdn->{huptimeout} = 180; $isdn->{$_} ||= '' foreach qw(phone_in phone_out dialing_mode login passwd passwd2 idl speed); add2hash($netc, { dnsServer2 => '', dnsServer3 => '', DOMAINNAME2 => '' }); return "hw_account"; }, }, no_supported_winmodem => { name => N("Warning") . "\n\n" . N("Your modem isn't supported by the system. Take a look at http://www.linmodems.org"), end => 1, }, modem => { pre => sub { require network::modem; detect($modules_conf, $netc->{autodetect}, 'modem'); }, name => N("Select the modem to configure:"), data => sub { [ { label => N("Modem"), type => "list", val => \$modem_name, allow_empty_list => 1, list => [ keys %{$netc->{autodetect}{modem}}, N("Manual choice") ], } ], }, post => sub { $modem ||= $netcnx->{modem} ||= {};; return 'choose_serial_port' if $modem_name eq N("Manual choice"); $ntf_name = $netc->{autodetect}{modem}{$modem_name}{device} || $netc->{autodetect}{modem}{$modem_name}{description}; return "ppp_provider" if $ntf_name =~ m!^/dev/!; return "choose_serial_port" if !$ntf_name; my $type; my %pkgs2path = ( hcfpcimodem => "/usr/sbin/hcfpciconfig", hsflinmodem => "/usr/sbin/hsfconfig", ltmodem => "/etc/devfs/conf.d/ltmodem.conf", slmodem => "/usr/sbin/slmodemd", ); my %devices = (ltmodem => '/dev/ttyS14', hsflinmodem => '/dev/ttySHSF0', slmodem => '/dev/ttySL0' ); if (my $driver = $netc->{autodetect}{modem}{$modem_name}{driver}) { $driver =~ /^Hcf:/ and $type = "hcfmodem"; $driver =~ /^Hsf:/ and $type = "hsfmodem"; $driver =~ /^LT:/ and $type = "ltmodem"; #- we need a better agreement to use list_modules::category2modules('network/slmodem') member($driver, qw(slamr slusb)) and $type = "slmodem"; if ($type && (my $packages = $in->do_pkgs->check_kernel_module_packages("$type-kernel", if_(! -f $pkgs2path{$type}, $type)))) { if ($in->do_pkgs->install(@$packages)) { # start slmodemd when installing it (thus preventing the average user to have to restart # his machine in order to get a working connection): system("service slmodemd start") if $::isStandalone && $type eq 'slmodem'; } $modem->{device} = $devices{$type} || '/dev/modem'; return "ppp_provider"; } } return "no_supported_winmodem"; }, }, choose_serial_port => { name => N("Please choose which serial port your modem is connected to."), interactive_help_id => 'selectSerialPort', data => sub { [ { val => \$modem->{device}, format => \&mouse::serial_port2text, type => "list", list => [ grep { $_ ne $o_mouse->{device} } (mouse::serial_ports(), grep { -e $_ } '/dev/modem', '/dev/ttySL0', '/dev/ttyS14',) ] } ], }, post => sub { $ntf_name = $modem->{device}; return 'ppp_provider'; }, }, ppp_provider => { pre => sub { network::modem::ppp_read_conf($netcnx, $netc) if !$modem_conf_read; $modem_conf_read = 1; $in->do_pkgs->ensure_is_installed('kdenetwork-kppp-provider', $db_path); my $p_db_path = "$::prefix$db_path"; @isp = map { my $country = $_; map { s!$p_db_path/$country!!; s/%([0-9]{3})/chr(int($1))/eg; $countries{$country} ||= translate($country); join('', $countries{$country}, $_); } grep { !/.directory$/ } glob_("$p_db_path/$country/*") } map { s!$p_db_path/!!o; s!_! !g; $_ } glob_("$p_db_path/*"); $old_provider = $provider; }, name => N("Select your provider:"), data => sub { [ { label => N("Provider:"), type => "list", val => \$provider, separator => '/', list => [ N("Unlisted - edit manually"), @isp ] } ] }, post => sub { if ($provider ne N("Unlisted - edit manually")) { ($country, $provider) = split('/', $provider); $country = { reverse %countries }->{$country}; my %l = getVarsFromSh("$::prefix$db_path/$country/$provider"); if (defined $old_provider && $old_provider ne $provider) { $modem->{connection} = $l{Name}; $modem->{phone} = $l{Phonenumber}; $modem->{$_} = $l{$_} foreach qw(Authentication AutoName Domain Gateway IPAddr SubnetMask); ($modem->{dns1}, $modem->{dns2}) = split(',', $l{DNS}); } } return "ppp_account"; }, }, ppp_account => { pre => sub { $mouse ||= {}; $mouse->{device} ||= readlink "$::prefix/dev/mouse"; }, name => N("Dialup: account options"), data => sub { [ { label => N("Connection name"), val => \$modem->{connection} }, { label => N("Phone number"), val => \$modem->{phone} }, { label => N("Login ID"), val => \$modem->{login} }, { label => N("Password"), val => \$modem->{passwd}, hidden => 1 }, { label => N("Authentication"), val => \$modem->{Authentication}, list => [ sort keys %ppp_auth_methods ], format => sub { $ppp_auth_methods{$_[0]} } }, ], }, next => "ppp_ip", }, ppp_ip => { pre => sub { $modem_dyn_ip = sub { $modem->{auto_ip} eq N("Automatic") }; }, name => N("Dialup: IP parameters"), data => sub { [ { label => N("IP parameters"), type => "list", val => \$modem->{auto_ip}, list => [ N("Automatic"), N("Manual") ] }, { label => N("IP address"), val => \$modem->{IPAddr}, disabled => $modem_dyn_ip }, { label => N("Subnet mask"), val => \$modem->{SubnetMask}, disabled => $modem_dyn_ip }, ]; }, next => "ppp_dns", }, ppp_dns => { pre => sub { $modem_dyn_dns = sub { $modem->{auto_dns} eq N("Automatic") }; }, name => N("Dialup: DNS parameters"), data => sub { [ { label => N("DNS"), type => "list", val => \$modem->{auto_dns}, list => [ N("Automatic"), N("Manual") ] }, { label => N("Domain name"), val => \$modem->{domain}, disabled => $modem_dyn_dns }, { label => N("First DNS Server (optional)"), val => \$modem->{dns1}, disabled => $modem_dyn_dns }, { label => N("Second DNS Server (optional)"), val => \$modem->{dns2}, disabled => $modem_dyn_dns }, { text => N("Set hostname from IP"), val => \$modem->{AutoName}, type => 'bool', disabled => $modem_dyn_dns }, ]; }, next => "ppp_gateway", }, ppp_gateway => { name => N("Dialup: IP parameters"), data => sub { [ { label => N("Gateway"), type => "list", val => \$modem->{auto_gateway}, list => [ N("Automatic"), N("Manual") ] }, { label => N("Gateway IP address"), val => \$modem->{Gateway}, disabled => sub { $modem->{auto_gateway} eq N("Automatic") } }, ]; }, post => sub { network::modem::ppp_configure($in, $modem); $netc->{$_} = 'ppp0' foreach 'NET_DEVICE', 'NET_INTERFACE'; $handle_multiple_cnx->(); }, }, adsl => { pre => sub { get_subwizard($wiz, 'adsl'); $lan_detect->(); @adsl_devices = keys %eth_intf; detect($modules_conf, $netc->{autodetect}, 'adsl'); foreach my $modem (keys %adsl_devices) { push @adsl_devices, $modem if $netc->{autodetect}{adsl}{$modem}; } detect($modules_conf, $netc->{autodetect}, 'isdn'); if (my @isdn_modems = @{$netc->{autodetect}{isdn}}) { require network::isdn; %isdn_cards = map { $_->{description} => $_ } grep { $_->{driver} =~ /dsl/i } map { network::isdn::get_capi_card($_) } @isdn_modems; push @adsl_devices, keys %isdn_cards; } }, name => N("ADSL configuration") . "\n\n" . N("Select the network interface to configure:"), data => [ { label => N("Net Device"), type => "list", val => \$ntf_name, allow_empty_list => 1, list => \@adsl_devices, format => sub { $eth_intf{$_[0]} || $adsl_devices{$_[0]} || $_[0] } } ], post => sub { my %packages = ( 'eci' => [ 'eciadsl', 'missing' ], 'sagem' => [ 'eagle-usb', "/usr/sbin/eaglectrl" ], 'speedtouch' => [ 'speedtouch', "/usr/sbin/modem_run" ], ); return 'adsl_unsupported_eci' if $ntf_name eq 'eci'; # FIXME: check that the package installation succeeds, else retry or abort $in->do_pkgs->ensure_is_installed(@{$packages{$ntf_name}}) if $packages{$ntf_name}; if ($ntf_name eq 'speedtouch') { $in->do_pkgs->ensure_is_installed_if_available('speedtouch_mgmt', "/usr/share/speedtouch/mgmt.o"); return 'adsl_speedtouch_firmware' if ! -e "$::prefix/usr/share/speedtouch/mgmt.o"; } $netcnx->{bus} = $netc->{autodetect}{adsl}{bewan}{bus} if $ntf_name eq 'bewan'; if ($ntf_name eq 'bewan' && !$::testing) { if (my @unicorn_packages = $in->do_pkgs->check_kernel_module_packages('unicorn-kernel', 'unicorn')) { $in->do_pkgs->install(@unicorn_packages); } } if (exists($isdn_cards{$ntf_name})) { require network::isdn; $netcnx->{capi} = $isdn_cards{$ntf_name}; $adsl_type = "capi"; return 'adsl_account'; } return 'adsl_provider'; }, }, adsl_provider => { pre => sub { require network::adsl_consts; %adsl_data = %network::adsl_consts::adsl_data; $adsl_old_provider = $adsl_provider; }, name => N("Please choose your ADSL provider"), data => sub { [ { label => N("Provider:"), type => "list", val => \$adsl_provider, separator => '|', list => [ keys %adsl_data ] } ]; }, post => sub { $adsl_data = $adsl_data{$adsl_provider}; $adsl_type = 'pppoa' if member($ntf_name, qw(bewan speedtouch)); if ($adsl_provider ne $adsl_old_provider) { $netc->{$_} = $adsl_data->{$_} foreach qw(DOMAINNAME2 Encapsulation vpi vci); $adsl_type ||= $adsl_data->{method}; } 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($in, $file); } elsif ($adsl_answer eq N("Use my Windows partition")) { ($source, $adsl_failed) = network::tools::use_windows($file = 'alcaudsl.sys'); } return "adsl_no_firmawre" if $adsl_answer eq N("Do it later"); my $_b = $mounted && before_leaving { fs::umount('/mnt') }; 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: my $_msg = N("Firmware copy succeeded"); return $adsl_failed ? 'adsl_copy_firmware_failled' : 'adsl_provider'; }, }, adsl_copy_firmware_failled => { name => sub { $adsl_failed }, next => 'adsl_provider', }, "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_provider", }, adsl_protocol => { pre => sub { # preselect right protocol for ethernet though connections: if (!exists $adsl_devices{$ntf_name}) { $ethntf = $intf->{$ntf_name} ||= { DEVICE => $ntf_name }; $adsl_type ||= $ethntf->{BOOTPROTO} || "dhcp"; #- pppoa shouldn't be selected by default for ethernet devices, fallback on pppoe $adsl_type = "pppoe" if $adsl_type eq "pppoa"; } }, name => N("Connect to the Internet") . "\n\n" . N("The most common way to connect with adsl is pppoe. Some connections use PPTP, a few use DHCP. If you don't know, choose 'use PPPoE'"), data => [ { text => N("ADSL connection type:"), val => \$adsl_type, type => "list", list => [ sort { $adsl_types{$a} cmp $adsl_types{$b} } keys %adsl_types ], format => sub { $adsl_types{$_[0]} }, }, ], post => sub { $netcnx->{type} = 'adsl'; # blacklist bogus driver, enable ifplugd support else: $find_lan_module->(); $ethntf->{MII_NOT_SUPPORTED} ||= $is_hotplug_blacklisted->(); if ($ntf_name eq "sagem" && member($adsl_type, qw(manual dhcp))) { #- "fctStartAdsl -i" builds ifcfg-ethX from ifcfg-sagem and echoes ethX #- it auto-detects dhcp/static modes thanks to encapsulation setting $ethntf = $intf->{sagem} ||= {}; $ethntf->{DEVICE} = "`/usr/sbin/fctStartAdsl -i`"; $ethntf->{MII_NOT_SUPPORTED} = "yes"; } # process static/dhcp ethernet devices: if (exists($intf->{$ntf_name}) && member($adsl_type, qw(manual dhcp))) { $ethntf->{TYPE} = "ADSL"; $auto_ip = $adsl_type eq 'dhcp'; return 'lan_intf'; } return 'adsl_account'; }, }, adsl_account => { pre => sub { network::adsl::adsl_probe_info($netcnx, $netc, $adsl_type, $ntf_name); $netc->{NET_DEVICE} = member($adsl_type, 'pppoe', 'pptp') ? $ntf_name : 'ppp0'; $netc->{NET_INTERFACE} = 'ppp0'; }, name => N("Connection Configuration") . "\n\n" . N("Please fill or check the field below"), data => sub { [ if_(0, { label => N("Provider name (ex provider.net)"), val => \$netc->{DOMAINNAME2} }), { label => N("First DNS Server (optional)"), val => \$netc->{dnsServer2} }, { label => N("Second DNS Server (optional)"), val => \$netc->{dnsServer3} }, { label => N("Account Login (user name)"), val => \$netcnx->{login} }, { label => N("Account Password"), val => \$netcnx->{passwd}, hidden => 1 }, if_($adsl_type ne "capi", { label => N("Virtual Path ID (VPI):"), val => \$netc->{vpi}, advanced => 1 },


context:
space:
mode: