diff options
Diffstat (limited to 'client_wizard')
| -rwxr-xr-x | client_wizard/Bind_client.pm | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/client_wizard/Bind_client.pm b/client_wizard/Bind_client.pm index 44b692e8..3a62c027 100755 --- a/client_wizard/Bind_client.pm +++ b/client_wizard/Bind_client.pm @@ -35,7 +35,7 @@ my $wiz_ip_server = $wiz->{net}->itf_get("IPADDR"); my $wiz_domain_name = $wiz->{net}->network_get("DOMAINNAME"); my $o = { - name => N('DNS Client Wizard'), + name => N("DNS Client Wizard"), var => { client_ip => '', client_name => '' @@ -44,7 +44,7 @@ my $o = { defaultimage => "$ENV{__WIZ_HOME__}client_wizard/images/DNS.png", init => sub { if (! -f "/var/named/$wiz_domain_name.db") { - return (0, N('You must first run the DNS server wizard')) + return (0, N("You must first run the DNS server wizard")) } 1 } @@ -52,49 +52,49 @@ my $o = { $o->{pages} = { welcome => { - name => N('DNS Client Wizard') . "\n\n" . N('A client of your local network is a machine connected to the network having its own name and IP number.') . "\n\n" . N('This wizard will help you in adding a new client in your local DNS.') . "\n\n" . N('The server will use the informations you enter here to make the name of the client available to other machines into your network.') . "\n\n" . N('Press next to begin, or Cancel to leave this wizard.'), + name => N("DNS Client Wizard") . "\n\n" . N("A client of your local network is a machine connected to the network having its own name and IP number.") . "\n\n" . N("This wizard will help you in adding a new client in your local DNS.") . "\n\n" . N("The server will use the informations you enter here to make the name of the client available to other machines into your network.") . "\n\n" . N("Press next to begin, or Cancel to leave this wizard."), post => sub { $wiz->check_dhcp }, no_back => 1, next => 'client_id' }, client_id => { - name => N('Client identification:') . "\n\n" . N('Your client on the network will be identified by name, as in clientname.company.net. Every machine on the network must have a (unique) IP address, in the usual dotted syntax.') . "\n\n" . N("(you don't need to type the domain after the name)") . "\n\n" . N('Note that the given IP number and client name should be unique in the network.'), + name => N("Client identification:") . "\n\n" . N("Your client on the network will be identified by name, as in clientname.company.net. Every machine on the network must have a (unique) IP address, in the usual dotted syntax.") . "\n\n" . N("(you don't need to type the domain after the name)") . "\n\n" . N("Note that the given IP number and client name should be unique in the network."), pre => sub { $o->{var}{client_ip} = ip(); $o->{var}{client_name} = name(); }, data => [ - { label => N('Name of the machine:'), val => \$o->{var}{client_name} }, - { label => N('IP number of the machine:'), val => \$o->{var}{client_ip} }, + { label => N("Name of the machine:"), val => \$o->{var}{client_name} }, + { label => N("IP number of the machine:"), val => \$o->{var}{client_ip} }, ], next => 'summary' }, dhcp_warning => { - name => N('Warning') . "\n\n" . N('You are in dhcp, server may not work with your configuration.'), + name => N("Warning") . "\n\n" . N("You are in dhcp, server may not work with your configuration."), ignore => 1, next => 'client_id' }, system_error => { - name => N('Error') . "\n\n" . N('System error, no configuration done'), + name => N("Error") . "\n\n" . N("System error, no configuration done"), ignore => 1, next => 'client_id' }, error => { - name => N('Error') . "\n\n" . N('This is not a valid address... press next to continue'), + name => N("Error") . "\n\n" . N("This is not a valid address... press next to continue"), ignore => 1, next => 'client_id' }, summary => { - name => N('Adding a new client to your network') . "\n\n" . N('The wizard collected the following parameters needed to add a client to your network:') . "\n\n" . N('To accept these values, and add your client, click the Next button or use the Back button to correct them.'), + name => N("Adding a new client to your network") . "\n\n" . N("The wizard collected the following parameters needed to add a client to your network:") . "\n\n" . N("To accept these values, and add your client, click the Next button or use the Back button to correct them."), data => [ - { label => N('Client name'), fixed_val => \$o->{var}{client_name} }, - { label => N('Client IP:'), fixed_val => \$o->{var}{client_ip} }, + { label => N("Client name"), fixed_val => \$o->{var}{client_name} }, + { label => N("Client IP:"), fixed_val => \$o->{var}{client_ip} }, ], post => \&do_it, next => 'end' }, end => { - name => N('Congratulationss') . "\n\n" . N('The wizard successfully added the client.'), + name => N("Congratulationss") . "\n\n" . N("The wizard successfully added the client."), end => 1, next => 0 }, |