From c1fa0851a4438123458b616181148848fef73050 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 12 Mar 2004 09:45:28 +0000 Subject: (configure_net) remove some parameters according to specs --- perl-install/standalone/drakconnect | 24 +++--------------------- 1 file changed, 3 insertions(+), 21 deletions(-) diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index e77d8c5f8..1cd2b7721 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -920,33 +920,15 @@ Please run \"Internet access\" in control center.")); require network::adsl; network::adsl::adsl_probe_info($cnx, $netc, $intf); } - my @conf_data = ([ N("Card IRQ"), \$cnx->{irq} ], - [ N("Card mem (DMA)"), \$cnx->{mem} ], - [ N("Card IO"), \$cnx->{io} ], - [ N("Card IO_0"), \$cnx->{io0} ], - [ N("Card IO_1"), \$cnx->{io1} ], - [ N("Your personal phone number"), \$cnx->{phone_in} ], + my @conf_data = ( [ N("Provider name (ex provider.net)"), \$netc->{DOMAINNAME2} ], [ N("Provider phone number"), \$cnx->{phone_out} ], + [ N("Domain name"), \$cnx->{domain} ], [ N("Provider dns 1 (optional)"), \$netc->{dnsServer2} ], [ N("Provider dns 2 (optional)"), \$netc->{dnsServer3} ], - [ N("Account Login (user name)"), \$cnx->{login} ], - [ N("Account Password"), \$cnx->{passwd} ], - [ N("Dialing mode"), \$cnx->{dialing_mode}, [ "auto", "manual" ] ], - [ N("Gateway"), \$netc->{GATEWAY} ], - [ N("Connection name"), \$cnx->{connection} ], - [ N("Phone number"), \$cnx->{phone} ], - [ N("Login ID"), \$cnx->{login} ], - [ N("Password"), \$cnx->{passwd} ], - [ N("Authentication"), \$cnx->{auth}, [ N("PAP"), N("Terminal-based"), N("Script-based"), N("CHAP"), N("PAP/CHAP") ] ], - [ N("Domain name"), \$cnx->{domain} ], [ N("First DNS Server (optional)"), \$cnx->{dns1} ], [ N("Second DNS Server (optional)"), \$cnx->{dns2} ], - [ N("Ethernet Card"), \$netc->{NET_DEVICE}, [ detect_devices::getNet(), $extra_netdevice ] ], - [ N("DHCP Client"), \$netcnx->{dhcp_client}, ["dhcp-client", "dhcpcd", "dhcpxd"] ], - [ N("Connection speed"), \$cnx->{speed}, ["64 Kb/s", "128 Kb/s"] ], - [ N("Connection timeout (in sec)"), \$cnx->{huptimeout} ] -); + ); my @infos; foreach (@conf_data) { if (!$mask[$i]) { -- cgit v1.2.1