diff options
Diffstat (limited to 'time_wizard/Ntp.pm')
| -rw-r--r-- | time_wizard/Ntp.pm | 46 |
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 }, |