summaryrefslogtreecommitdiffstats
path: root/time_wizard/Ntp.pm
diff options
context:
space:
mode:
Diffstat (limited to 'time_wizard/Ntp.pm')
-rw-r--r--time_wizard/Ntp.pm46
1 files changed, 23 insertions, 23 deletions
diff --git a/time_wizard/Ntp.pm b/time_wizard/Ntp.pm
index 0cf2cf9a..53988573 100644
--- a/time_wizard/Ntp.pm
+++ b/time_wizard/Ntp.pm
@@ -31,7 +31,7 @@ require MDK::Wizard::Wizcommon;
my $wiz = new MDK::Wizard::Wizcommon;
my $o = {
- name => N('Time wizard'),
+ name => N("Time wizard"),
var => {
varserver1 => '',
varserver2 => '',
@@ -57,8 +57,8 @@ my %ntp_servers = (
);
my %actions = (
- try_again => N('Try again'),
- save_quit => N('Save config without test')
+ try_again => N("Try again"),
+ save_quit => N("Save config without test")
);
my %country;
@@ -79,31 +79,31 @@ if (-d '/usr/share/zoneinfo') {
$o->{pages} = {
welcome => {
- name => N('This wizard will help you to set the time of your server synchronized with an external time server.') . "\n\n" . N('Thus your server will be the local time server for your network.') . "\n\n" . N('press next to begin, or cancel to leave this wizard'),
+ name => N("This wizard will help you to set the time of your server synchronized with an external time server.") . "\n\n" . N("Thus your server will be the local time server for your network.") . "\n\n" . N("press next to begin, or cancel to leave this wizard"),
no_back => 1,
next => 'config'
},
config => {
- name => N('Time Servers') . "\n\n" . N('Select a primary and secondary server from the list.') . "\n\n" . N('(we recommand you to use pool.ntp.org twice as this server randomly points to available time servers)'),
+ name => N("Time Servers") . "\n\n" . N("Select a primary and secondary server from the list.") . "\n\n" . N("(we recommand you to use pool.ntp.org twice as this server randomly points to available time servers)"),
pre => sub {
$o->{var}{varserver1} ||= 'pool.ntp.org';
$o->{var}{varserver2} ||= 'pool.ntp.org';
},
data => [
- { label => N('Primary Time Server:'), val => \$o->{var}{varserver1}, list => [ keys %ntp_servers ], format => sub { $ntp_servers{$_[0]} } },
- { label => N('Secondary Time Server:'), val => \$o->{var}{varserver2}, list => [ keys %ntp_servers ], format => sub { $ntp_servers{$_[0]} } },
+ { label => N("Primary Time Server:"), val => \$o->{var}{varserver1}, list => [ keys %ntp_servers ], format => sub { $ntp_servers{$_[0]} } },
+ { label => N("Secondary Time Server:"), val => \$o->{var}{varserver2}, list => [ keys %ntp_servers ], format => sub { $ntp_servers{$_[0]} } },
],
next => 'choose_region'
},
choose_region => {
- name => N('Choose a timezone'),
+ name => N("Choose a timezone"),
pre => sub {
my (undef, $region, $country) = get_timezone();
$o->{var}{wiz_region} ||= $region;
$o->{var}{wiz_country} ||= $country
},
data => [
- { label => N('Choose a region:'), val => \$o->{var}{wiz_region}, list => [ keys %country ] },
+ { label => N("Choose a region:"), val => \$o->{var}{wiz_region}, list => [ keys %country ] },
],
post => sub {
'choose_country' if ref $country{$o->{var}{wiz_region}}
@@ -111,36 +111,36 @@ $o->{pages} = {
next => 'test_server'
},
choose_country => {
- name => N('Choose a timezone'),
+ name => N("Choose a timezone"),
pre => sub {
@country = ref $country{$o->{var}{wiz_region}} ? @{$country{$o->{var}{wiz_region}}} : ()
},
data => [
- { label => N('Choose a country:'), val => \$o->{var}{wiz_country}, fixed_list => \@country },
+ { label => N("Choose a country:"), val => \$o->{var}{wiz_country}, fixed_list => \@country },
],
next => 'test_server'
},
test_server => {
- name => N('Testing the time servers availability') . "\n\n" . N('If the time server is not immediately available (network or other reason), there will be about a 30 second delay.') . "\n\n" . N('Press next to start the time servers test.'),
+ name => N("Testing the time servers availability") . "\n\n" . N("If the time server is not immediately available (network or other reason), there will be about a 30 second delay.") . "\n\n" . N("Press next to start the time servers test."),
pre => sub {
$o->{var}{wiz_timezone} = $o->{var}{wiz_region} . (ref $country{$o->{var}{wiz_region}} ? "/$o->{var}{wiz_country}" : "");
},
post => \&test,
data => [
- { label => N('Primary Time Server:'), fixed_val => \$o->{var}{varserver1} },
- { label => N('Secondary Time Server:'), fixed_val => \$o->{var}{varserver2} },
- { label => N('Time zone:'), fixed_val => \$o->{var}{wiz_timezone} },
+ { label => N("Primary Time Server:"), fixed_val => \$o->{var}{varserver1} },
+ { label => N("Secondary Time Server:"), fixed_val => \$o->{var}{varserver2} },
+ { label => N("Time zone:"), fixed_val => \$o->{var}{wiz_timezone} },
],
next => 'end'
},
warning => {
- name => N('Warning.'),
+ name => N("Warning."),
data => [ { label => N('') } ],
ignore => 1,
next => 'summary'
},
server_not_responding => {
- name => N('Warming.'),
+ name => N("Warming."),
post => sub {
if ($o->{var}{action} eq 'save_quit') {
do_it();
@@ -150,17 +150,17 @@ $o->{pages} = {
}
},
data => [
- { label => N('The time servers are not responding. The causes could be:') },
- { label => N('- non existent time servers') },
- { label => N('- no outside network') },
- { label => N('- other reasons...') },
- { label => N('- You can try again to contact time servers, or save configuration without actually setting time.') },
+ { label => N("The time servers are not responding. The causes could be:") },
+ { label => N("- non existent time servers") },
+ { label => N("- no outside network") },
+ { label => N("- other reasons...") },
+ { label => N("- You can try again to contact time servers, or save configuration without actually setting time.") },
{ val => \$o->{var}{action}, list => [ keys %actions ], format => sub { $actions{$_[0]} } },
],
next => 'config'
},
end => {
- name => N('Time server configuration saved') . "\n\n" . N('Your server can now act as a time server for your local network.'),
+ name => N("Time server configuration saved") . "\n\n" . N("Your server can now act as a time server for your local network."),
end => 1,
next => 0
},