(configure_net) remove some parameters according to specs

1 files 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]) {