summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network')
-rw-r--r--perl-install/network/isdn.pm2
-rw-r--r--perl-install/network/network.pm8
-rw-r--r--perl-install/network/shorewall.pm2
-rw-r--r--perl-install/network/tools.pm6
4 files changed, 9 insertions, 9 deletions
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;