From 424f21c103811b61abfb7475f201d8fc98f4def3 Mon Sep 17 00:00:00 2001 From: Pablo Saratxaga Date: Tue, 21 Jan 2003 12:29:06 +0000 Subject: English proofreading (first pass) --- perl-install/network/isdn.pm | 2 +- perl-install/network/network.pm | 8 ++++---- perl-install/network/shorewall.pm | 2 +- perl-install/network/tools.pm | 6 +++--- 4 files changed, 9 insertions(+), 9 deletions(-) (limited to 'perl-install/network') diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm index 43b7bf32c..62d23c628 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("European protocol (EDSS1)") : N("Europe protocol"), + { description => $::expert ? N("European protocol (EDSS1)") : N("European 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 } diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm index b7a212047..d156f257e 100644 --- a/perl-install/network/network.pm +++ b/perl-install/network/network.pm @@ -343,11 +343,11 @@ notation (for example, 1.2.3.4)."); return 0; } if ($intf->{WIRELESS_FREQ} !~ /[0-9.]*[kGM]/) { - $in->ask_warn('', N("Freq should have the suffix k, M or G (for example, \"2.46G\" for 2.46 GHz frequency), or add enough \'0\'.")); + $in->ask_warn('', N("Freq should have the suffix k, M or G (for example, \"2.46G\" for 2.46 GHz frequency), or add enough \'0\' (zeroes).")); return (1,6); } if ($intf->{WIRELESS_RATE} !~ /[0-9.]*[kGM]/) { - $in->ask_warn('', N("Rate should have the suffix k, M or G (for example, \"11M\" for 11M), or add enough \'0\'.")); + $in->ask_warn('', N("Rate should have the suffix k, M or G (for example, \"11M\" for 11M), or add enough \'0\' (zeroes).")); return (1,8); } }, @@ -370,7 +370,7 @@ sub configureNetworkNet { N("Please enter your host name. Your host name should be a fully-qualified host name, such as ``mybox.mylab.myco.com''. -You may also enter the IP address of the gateway if you have one"), +You may also enter the IP address of the gateway if you have one."), [ { label => N("Host name"), val => \$netc->{HOSTNAME} }, { label => N("DNS server"), val => \$netc->{dnsServer} }, { label => N("Gateway (e.g. %s)", $gateway_ex), val => \$netc->{GATEWAY} }, @@ -406,7 +406,7 @@ sub miscellaneous_choose { ], complete => sub { $u->{http_proxy} =~ m,^($|http://), or $in->ask_warn('', N("Proxy should be http://...")), return 1,0; - $u->{ftp_proxy} =~ m,^($|ftp://|http://), or $in->ask_warn('', N("Url should begin with 'ftp:' or 'http:'")), return 1,1; + $u->{ftp_proxy} =~ m,^($|ftp://|http://), or $in->ask_warn('', N("URL should begin with 'ftp:' or 'http:'")), return 1,1; 0; } ) or return if $::expert || $clicked; diff --git a/perl-install/network/shorewall.pm b/perl-install/network/shorewall.pm index a173c13f8..a1fcf5aba 100644 --- a/perl-install/network/shorewall.pm +++ b/perl-install/network/shorewall.pm @@ -24,7 +24,7 @@ sub check_iptables { }; !$existing_config || $in->ask_okcancel(N("Firewalling configuration detected!"), - N("Warning! An existing firewalling configuration has been detected. You may need some manual fix after installation.")); + N("Warning! An existing firewalling configuration has been detected. You may need some manual fixes after installation.")); } sub set_config_file { diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm index 17fb282f2..acaae8cad 100644 --- a/perl-install/network/tools.pm +++ b/perl-install/network/tools.pm @@ -85,9 +85,9 @@ sub ask_connect_now { sleep $s; $up = connected(); } - my $m = $up ? N("The system is now connected to Internet.") . - if_($::isInstall, N("For security reason, it will be disconnected now.")) : - N("The system doesn't seem to be connected to internet. + my $m = $up ? N("The system is now connected to the Internet.") . + if_($::isInstall, N("For security reasons, it will be disconnected now.")) : + N("The system doesn't seem to be connected to the Internet. Try to reconfigure your connection."); if ($::isWizard) { $::Wizard_no_previous = 1; -- cgit v1.2.1