diff options
Diffstat (limited to 'news_wizard')
| -rwxr-xr-x | news_wizard/Inn.pm | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/news_wizard/Inn.pm b/news_wizard/Inn.pm index 76ebf4e3..0f8088c8 100755 --- a/news_wizard/Inn.pm +++ b/news_wizard/Inn.pm @@ -41,59 +41,59 @@ my $o = { $o->{pages} = { welcome => { - name => N('Welcome to the News Wizard') . "\n\n" . N('This wizard will help you configuring the Internet News services for your network.'), + name => N("Welcome to the News Wizard") . "\n\n" . N("This wizard will help you configuring the Internet News services for your network."), no_back => 1, next => 'ask_news_server' }, ask_news_server => { - name => N('News Server') . "\n\n" . N('The news server name is the name of the host providing the Internet news to your network; the name is usually provided by your provider.') . "\n\n" . N('Internet host names must be in the form "host.domain.domaintype"; for example, if your provider is "provider.com", the internet news server is usually "news.provider.com".'), + name => N("News Server") . "\n\n" . N("The news server name is the name of the host providing the Internet news to your network; the name is usually provided by your provider.") . "\n\n" . N("Internet host names must be in the form "host.domain.domaintype"; for example, if your provider is "provider.com", the internet news server is usually "news.provider.com"."), pre => sub { $o->{var}{news_server} ||= get_server(); }, data => [ - { label => N('News Server Name:'), val => \$o->{var}{news_server} }, + { label => N("News Server Name:"), val => \$o->{var}{news_server} }, ], post => sub { $o->{var}{news_server} or 'error_in_news_server' }, next => 'ask_news_freq' }, ask_news_freq => { - name => N('Polling Period') . "\n\n" . N('Your server will regularly poll the News Server for obtaning the latest Internet News; the polling period set the interval between two consecutive polling.') . "\n\n" . N('Depending on the kind of internet connection you have, an appropriate polling period can change between 6 and 24 hours.'), + name => N("Polling Period") . "\n\n" . N("Your server will regularly poll the News Server for obtaning the latest Internet News; the polling period set the interval between two consecutive polling.") . "\n\n" . N("Depending on the kind of internet connection you have, an appropriate polling period can change between 6 and 24 hours."), pre => sub { $o->{var}{news_freq} ||= 24; }, data => [ - { label => N('Polling Period (Hours):'), val => \$o->{var}{news_freq} }, + { label => N("Polling Period (Hours):"), val => \$o->{var}{news_freq} }, ], post => \&check_valid_hours, next => 'summary' }, warning => { - name => N('Warning.'), + name => N("Warning."), ignore => 1, next => 'summary' }, error_in_news_server => { - name => N('Error.') . "\n\n" . N('The news server name is not correct'), + name => N("Error.") . "\n\n" . N("The news server name is not correct"), ignore => 1, next => 'ask_news_server' }, error_in_polling_time => { - name => N('Error.') . "\n\n" . N('The polling period is not correct'), + name => N("Error.") . "\n\n" . N("The polling period is not correct"), ignore => 1, next => 'ask_news_freq' }, summary => { - name => N('Configuring the Internet News') . "\n\n" . N('The wizard collected the following parameters -needed to configure your Internet News Service:') . "\n\n" . N('To accept these values, and configure your server, click the Next button or use the Back button to correct them.'), + name => N("Configuring the Internet News") . "\n\n" . N("The wizard collected the following parameters +needed to configure your Internet News Service:") . "\n\n" . N("To accept these values, and configure your server, click the Next button or use the Back button to correct them."), data => [ - { label => N('News Server:'), fixed_val => \$o->{var}{news_server} }, - { label => N('Polling Interval:'), fixed_val => \$o->{var}{news_freq} }, + { label => N("News Server:"), fixed_val => \$o->{var}{news_server} }, + { label => N("Polling Interval:"), fixed_val => \$o->{var}{news_freq} }, ], post => \&do_it, next => 'end' }, end => { - name => N('Congratulations') . "\n\n" . N('The wizard successfully configured your Internet News service of your server.'), + name => N("Congratulations") . "\n\n" . N("The wizard successfully configured your Internet News service of your server."), end => 1, next => 0 }, |