diff options
Diffstat (limited to 'perl-install/network')
-rw-r--r-- | perl-install/network/drakfirewall.pm | 2 | ||||
-rw-r--r-- | perl-install/network/ethernet.pm | 4 | ||||
-rw-r--r-- | perl-install/network/isdn.pm | 4 | ||||
-rw-r--r-- | perl-install/network/netconnect.pm | 4 |
4 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/network/drakfirewall.pm b/perl-install/network/drakfirewall.pm index 084a656fd..ad2c6205e 100644 --- a/perl-install/network/drakfirewall.pm +++ b/perl-install/network/drakfirewall.pm @@ -128,7 +128,7 @@ sub get_conf { $in->ask_okcancel('', N("drakfirewall configurator This configures a personal firewall for this Mandrake Linux machine. -For a powerful dedicated firewall solution, please look to the +For a powerful and dedicated firewall solution, please look to the specialized MandrakeSecurity Firewall distribution."), 1) or return; $in->ask_okcancel('', N("drakfirewall configurator diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm index 22bb7b9ec..ca468125d 100644 --- a/perl-install/network/ethernet.pm +++ b/perl-install/network/ethernet.pm @@ -29,7 +29,7 @@ sub configure_cable { ); if (my $f = $in->ask_from_listf(N("Connect to the Internet"), N("Which dhcp client do you want to use? -Default is dhcp-client"), +Default is dhcp-client."), sub { $_[0]{description} }, \@m)) { $f->{c} == 3 and $netcnx->{dhcp_client} = "dhcpcd" and $in->do_pkgs->install(qw(dhcpcd)); @@ -84,7 +84,7 @@ I cannot set up this connection type.")) and return; @all_cards == 1 and $interface = $all_cards[0][0]; while (!$interface) { $interface = $in->ask_from_list(N("Choose the network interface"), - N("Please choose which network adapter you want to use to connect to Internet"), + N("Please choose which network adapter you want to use to connect to Internet."), [ map { $_->[0] . ($_->[1] ? " (using module $_->[1])" : "") } @all_cards ] ) or return; } diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm index 2577fa46b..43b7bf32c 100644 --- a/perl-install/network/isdn.pm +++ b/perl-install/network/isdn.pm @@ -234,7 +234,7 @@ sub isdn_ask_info { sub isdn_ask_protocol { my @toto = ( - { description => $::expert ? N("Europe protocol (EDSS1)") : N("Europe protocol"), + { description => $::expert ? N("European protocol (EDSS1)") : N("Europe protocol"), protokol => 2 }, { description => $::expert ? N("Protocol for the rest of the world\nNo D-Channel (leased lines)") : N("Protocol for the rest of the world"), protokol => 3 } @@ -275,7 +275,7 @@ If you have a PCMCIA card, you have to know the \"irq\" and \"io\" of your card. isdn_ask_step_2: $e = $in->ask_from_listf(N("ISDN Configuration"), - N("Which is your ISDN card?"), + N("Which of the following is your ISDN card?"), sub { $_[0]{description} }, [ grep { $_->{card} eq $isdn->{card_type} } @isdndata ]) or goto isdn_ask_step_1; $e->{$_} and $isdn->{$_} = $e->{$_} foreach qw(driver type mem io io0 io1 irq firmware); diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index b02c5b05e..328c9437b 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -25,10 +25,10 @@ sub intro { read_net_conf($prefix, $netcnx, $netc); if (!$::isWizard) { if (connected()) { - $text = N("You are currently connected to internet.") . (-e $disconnect_file ? N("\nYou can disconnect or reconfigure your connection.") : N("\nYou can reconfigure your connection.")); + $text = N("You are currently connected to the Internet.") . (-e $disconnect_file ? N("\nYou can disconnect or reconfigure your connection.") : N("\nYou can reconfigure your connection.")); $connected = 1; } else { - $text = N("You are not currently connected to Internet.") . (-e $connect_file ? N("\nYou can connect to Internet or reconfigure your connection.") : N("\nYou can reconfigure your connection.")); + $text = N("You are not currently connected to the Internet.") . (-e $connect_file ? N("\nYou can connect to the Internet or reconfigure your connection.") : N("\nYou can reconfigure your connection.")); $connected = 0; } my @l = ( |