summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorStefan Siegel <siegel@linux-mandrake.com>2001-04-09 23:44:40 +0000
committerStefan Siegel <siegel@linux-mandrake.com>2001-04-09 23:44:40 +0000
commit072e169c0a1c631c60cf666d997ea5132c6b3d88 (patch)
tree05c8145696491f08ecebc20696959c205831be38 /perl-install
parent1b8758db1506d3935fdbc99ed78e340e889656fe (diff)
downloaddrakx-072e169c0a1c631c60cf666d997ea5132c6b3d88.tar
drakx-072e169c0a1c631c60cf666d997ea5132c6b3d88.tar.gz
drakx-072e169c0a1c631c60cf666d997ea5132c6b3d88.tar.bz2
drakx-072e169c0a1c631c60cf666d997ea5132c6b3d88.tar.xz
drakx-072e169c0a1c631c60cf666d997ea5132c6b3d88.zip
i18n fixes
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/tinyfirewall.pm14
1 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/tinyfirewall.pm b/perl-install/tinyfirewall.pm
index 5b0eb20db..7d3b87ae9 100644
--- a/perl-install/tinyfirewall.pm
+++ b/perl-install/tinyfirewall.pm
@@ -80,9 +80,9 @@ sub ReadConfig {
sub SaveConfig {
my $tmp_file = tmpnam();
open CONFIGFILE, "$config_file"
- or die "Can't open $config_file: $!\n";
+ or die _("Can't open %s: %s\n", $config_file, $!);
open TMPFILE, ">$tmp_file"
- or die "Can't open $tmp_file for writing: $!\n";
+ or die _("Can't open %s for writing: %s\n", $tmp_file, $!);
while (my $line = <CONFIGFILE>)
{
if ($line =~ m/^(.+)\s*\=\s*\"(.*)\"/)
@@ -178,13 +178,13 @@ my $popimap = sub {
[undef , undef, undef, undef, ["tcp", "20"],["tcp", "21"]],
[undef , undef, undef, undef, ["tcp", "25"]],
[undef , undef, undef, $popimap, ["tcp", "109"], ["tcp", "110"], ["tcp", "143"]],
- [undef , "No I don't need DHCP", "Yes I need DHCP", $dhcp],
- [undef , "No I don't need NTP", "Yes I need NTP", $ntp ],
- [undef , "Don't Save", "Save & Quit", $quit ]
+ [undef , _("No I don't need DHCP"), _("Yes I need DHCP"), $dhcp],
+ [undef , _("No I don't need NTP"), _("Yes I need NTP"), $ntp ],
+ [undef , _("Don't Save"), _("Save & Quit"), $quit ]
);
if (!Kernel22()) {
pop @struct; pop @struct; pop @struct;
- @struct = ( @struct, [undef , "Don't Save", "Save & Quit", $quit ] );
+ @struct = ( @struct, [undef , _("Don't Save"), _("Save & Quit"), $quit ] );
$messages[9]=$messages[11];
}
if ($in->standalone::pkgs_install(Kernel22() ? "ipchains" : "iptables", "Bastille")) {
@@ -209,7 +209,7 @@ my $popimap = sub {
[ $yes, $no ], or_( map { $_ && CheckService($_->[0], $_->[1]) } (@$l[4..6])) ? $yes : $no
)) {
map { $_ and Service($e=~/Yes/, $_->[0], $_->[1]) } (@{$struct[$i]}[4..6]);
- $struct[$i][3] and $struct[$i][3]->($e=~/Yes/ || $e eq "Save & Quit");
+ $struct[$i][3] and $struct[$i][3]->($e=~/Yes/ || $e eq _("Save & Quit"));
} else {
prev:
$i = $i-2 >= -1 ? $i-2 : -1;