summaryrefslogtreecommitdiffstats
path: root/perl-install/network/drakfirewall.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network/drakfirewall.pm')
-rw-r--r--perl-install/network/drakfirewall.pm24
1 files changed, 12 insertions, 12 deletions
diff --git a/perl-install/network/drakfirewall.pm b/perl-install/network/drakfirewall.pm
index 55e4af694..7e1e225aa 100644
--- a/perl-install/network/drakfirewall.pm
+++ b/perl-install/network/drakfirewall.pm
@@ -9,12 +9,12 @@ use common;
my @all_servers =
(
{
- name => _("Web Server"),
+ name => N("Web Server"),
pkg => 'apache apache-mod_perl boa',
ports => '80/tcp 443/tcp',
},
{
- name => _("Domain Name Server"),
+ name => N("Domain Name Server"),
pkg => 'bind',
ports => '53/tcp 53/udp',
},
@@ -29,12 +29,12 @@ my @all_servers =
ports => '20/tcp 21/tcp',
},
{
- name => _("Mail Server"),
+ name => N("Mail Server"),
pkg => 'sendmail postfix qmail',
ports => '25/tcp',
},
{
- name => _("POP and IMAP Server"),
+ name => N("POP and IMAP Server"),
pkg => 'imap courier-imap-pop',
ports => '109/tcp 110/tcp 143/tcp',
},
@@ -108,7 +108,7 @@ sub get_ports {
sub set_ports {
my ($disabled, $ports) = @_;
- my $shorewall = network::shorewall::read() || network::shorewall::default_interfaces() or die _("No network card");
+ my $shorewall = network::shorewall::read() || network::shorewall::default_interfaces() or die N("No network card");
$shorewall->{disabled} = $disabled;
$shorewall->{ports} = $$ports;
@@ -126,13 +126,13 @@ sub get_conf {
} elsif (my $shorewall = network::shorewall::read()) {
$shorewall->{disabled}, from_ports(\$shorewall->{ports});
} else {
- $in->ask_okcancel('', _("drakfirewall configurator
+ $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
specialized MandrakeSecurity Firewall distribution."), 1) or return;
- $in->ask_okcancel('', _("drakfirewall configurator
+ $in->ask_okcancel('', N("drakfirewall configurator
Make sure you have configured your Network/Internet access with
drakconnect before going any further."), 1) or return;
@@ -149,14 +149,14 @@ sub choose {
my @l = grep { $_->{on} || !$_->{hide} } @all_servers;
$in->ask_from_({
- messages => _("Which services would you like to allow the Internet to connect to?"),
- advanced_messages => _("You can enter miscellaneous ports.
+ messages => N("Which services would you like to allow the Internet to connect to?"),
+ advanced_messages => N("You can enter miscellaneous ports.
Valid examples are: 139/tcp 139/udp.
Have a look at /etc/services for information."),
callbacks => {
complete => sub {
if (my $invalid_port = check_ports_syntax($unlisted)) {
- $in->ask_warn('', _("Invalid port given: %s.
+ $in->ask_warn('', N("Invalid port given: %s.
The proper format is \"port/tcp\" or \"port/udp\",
where port is between 1 and 65535.", $invalid_port));
return 1;
@@ -164,9 +164,9 @@ where port is between 1 and 65535.", $invalid_port));
},
}},
[
- { text => _("Everything (no firewall)"), val => \$disabled, type => 'bool' },
+ { text => N("Everything (no firewall)"), val => \$disabled, type => 'bool' },
(map { { text => $_->{name}, val => \$_->{on}, type => 'bool', disabled => sub { $disabled } } } @l),
- { label => _("Other ports"), val => \$unlisted, advanced => 1, disabled => sub { $disabled } }
+ { label => N("Other ports"), val => \$unlisted, advanced => 1, disabled => sub { $disabled } }
]) or return;
$disabled, to_ports([ grep { $_->{on} } @l ], $unlisted);