summaryrefslogtreecommitdiffstats
path: root/perl-install/install/share/po/ja.po
diff options
context:
space:
mode:
authorYuri Chornoivan <yurchor@ukr.net>2017-09-30 21:36:34 +0300
committerYuri Chornoivan <yurchor@ukr.net>2017-09-30 21:36:34 +0300
commitf1d4153dbf617a5ca6dc4a04eced1c39853ce394 (patch)
treea3547afc4b2060de825914d9b3d6fd25e24fd46c /perl-install/install/share/po/ja.po
parentf46f22f33e287aeec9abb138dfe299eba54acf3b (diff)
downloaddrakx-f1d4153dbf617a5ca6dc4a04eced1c39853ce394.tar
drakx-f1d4153dbf617a5ca6dc4a04eced1c39853ce394.tar.gz
drakx-f1d4153dbf617a5ca6dc4a04eced1c39853ce394.tar.bz2
drakx-f1d4153dbf617a5ca6dc4a04eced1c39853ce394.tar.xz
drakx-f1d4153dbf617a5ca6dc4a04eced1c39853ce394.zip
Update Japanese translation from Tx
Diffstat (limited to 'perl-install/install/share/po/ja.po')
-rw-r--r--perl-install/install/share/po/ja.po2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install/share/po/ja.po b/perl-install/install/share/po/ja.po
index 492d4b1b6..472119333 100644
--- a/perl-install/install/share/po/ja.po
+++ b/perl-install/install/share/po/ja.po
@@ -11,7 +11,7 @@ msgstr ""
"Project-Id-Version: Mageia\n"
"Report-Msgid-Bugs-To: \n"
"POT-Creation-Date: 2016-06-22 02:36+0200\n"
-"PO-Revision-Date: 2017-09-20 13:53+0000\n"
+"PO-Revision-Date: 2017-09-28 13:38+0000\n"
"Last-Translator: Masanori Kakura <kakurasan@gmail.com>\n"
"Language-Team: Japanese (http://www.transifex.com/MageiaLinux/mageia/"
"language/ja/)\n"
generated by cgit v1.2.1 (git 2.21.0) at 2024-06-30 01:53:55 +0000
/iptables -t nat -nL`) > 8; }; } sub set_config_file { my ($file, @l) = @_; my $done; substInFile { if (!$done && (/^#LAST LINE/ || eof)) { $_ = join('', map { join("\t", @$_) . "\n" } @l) . $_; $done = 1; } else { $_ = '' if /^[^#]/; } } "$::prefix/etc/shorewall/$file"; } sub get_config_file { my ($file) = @_; map { [ split ' ' ] } grep { !/^#/ } cat_("$::prefix/etc/shorewall/$file"); } sub get_ifcfg_interface() { my $net = {}; network::network::read_net_conf($net); network::tools::get_default_gateway_interface($net); } sub get_shorewall_interface() { #- read shorewall configuration first foreach (get_config_file('interfaces')) { $_->[0] eq 'net' and return $_->[1]; } #- else try to find the best interface available my $default_dev = get_ifcfg_interface(); $default_dev =~ /^ippp/ && "ippp+" || $default_dev =~ /^ppp/ && "ppp+" || $default_dev; } our $ask_shorewall_interface_label = N_("Please enter the name of the interface connected to the internet. Examples: ppp+ for modem or DSL connections, eth0, or eth1 for cable connection, ippp+ for a isdn connection. "); sub shorewall_interface_choices { my ($refval) = @_; my $modules_conf = modules::any_conf->read; my @all_cards = network::ethernet::get_eth_cards($modules_conf); my %net_devices = network::ethernet::get_eth_cards_names(@all_cards); put_in_hash(\%net_devices, { 'ppp+' => 'ppp+', 'ippp+' => 'ippp+' }); [ { label => N("Net Device"), val => $refval, list => [ sort keys %net_devices ], format => sub { $net_devices{$_[0]} || $_[0] }, not_edit => 0 } ]; } sub read_default_interfaces { my ($conf, $o_in) = @_; my $interface = get_shorewall_interface(); $o_in and $o_in->ask_from('', translate($ask_shorewall_interface_label), shorewall_interface_choices(\$interface)); set_net_interface($conf, $interface); } sub set_net_interface { my ($conf, $interface) = @_; $conf->{net_interface} = $interface; #- keep all other interfaces (but alias interfaces) in local zone $conf->{loc_interface} = [ grep { !/:/ && $_ ne $interface } detect_devices::getNet() ]; } sub read { my ($o_in) = @_; my @rules = get_config_file('rules'); my %conf = (disabled => !glob_("$::prefix/etc/rc3.d/S*shorewall"), ports => join(' ', map { my $e = $_; map { "$_/$e->[3]" } split(',', $e->[4]); } grep { $_->[0] eq 'ACCEPT' && $_->[1] eq 'net' } @rules), ); $conf{redirects}{$_->[3]}{$_->[2]} = $_->[4] foreach grep { $_->[0] eq 'REDIRECT' } @rules; if (my ($e) = get_config_file('masq')) { $conf{masq_subnet} = $e->[1]; } read_default_interfaces(\%conf, $o_in); $conf{net_interface} && \%conf; } sub ports_by_proto { my ($ports) = @_; my %ports_by_proto; foreach (split ' ', $ports) { m!^(\d+(?::\d+)?)/(udp|tcp|icmp)$! or die "bad port $_\n"; push @{$ports_by_proto{$2}}, $1; } \%ports_by_proto; } sub write { my ($conf) = @_; my $default_intf = get_ifcfg_interface(); my $use_pptp = $default_intf =~ /^ppp/ && cat_("$::prefix/etc/ppp/peers/$default_intf") =~ /pptp/; my $ports_by_proto = ports_by_proto($conf->{ports}); my $interface_settings = sub { my ($zone, $interface) = @_; [ $zone, $interface, 'detect', if_(detect_devices::is_bridge_interface($interface), 'routeback') ]; }; set_config_file("zones", [ 'net', 'Net', 'Internet zone' ], if_($conf->{loc_interface}[0], [ 'loc', 'Local', 'Local' ]), ); set_config_file('interfaces', $interface_settings->('net', $conf->{net_interface}), (map { $interface_settings->('loc', $_) } @{$conf->{loc_interface} || []}), ); set_config_file('policy', if_($conf->{loc_interface}[0], [ 'loc', 'net', 'ACCEPT' ], [ 'loc', 'fw', 'ACCEPT' ], [ 'fw', 'loc', 'ACCEPT' ]), [ 'fw', 'net', 'ACCEPT' ], [ 'net', 'all', 'DROP', 'info' ], [ 'all', 'all', 'REJECT', 'info' ], ); set_config_file('rules', if_($use_pptp, [ 'ACCEPT', 'fw', 'loc:10.0.0.138', 'tcp', '1723' ]), if_($use_pptp, [ 'ACCEPT', 'fw', 'loc:10.0.0.138', 'gre' ]), (map_each { [ 'ACCEPT', 'net', 'fw', $::a, join(',', @$::b), '-' ] } %$ports_by_proto), (map { map_each { [ 'REDIRECT', 'loc', $::a, $_, $::b, '-' ] } %{$conf->{redirects}{$_}}; } keys %{$conf->{redirects}}), ); set_config_file('masq', if_($conf->{masq_subnet}, [ $conf->{net_interface}, $conf->{masq_subnet} ])); require services;