diff options
Diffstat (limited to 'dhcp_wizard/Dhcp.pm')
| -rwxr-xr-x | dhcp_wizard/Dhcp.pm | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/dhcp_wizard/Dhcp.pm b/dhcp_wizard/Dhcp.pm index 441ba0fa..43857a6e 100755 --- a/dhcp_wizard/Dhcp.pm +++ b/dhcp_wizard/Dhcp.pm @@ -61,16 +61,16 @@ $o->{pages} = { next => 'ip_range' }, ip_range => { - name => N("Range of addresses used by dhcp") . "\n\n\n" . N("Select the range of addresses assigned to the workstations by the DHCP service; unless you have special needs, you can safely accept the proposed values. (ie: 192.168.100.20 192.168.100.40)") . "\n\n" . N("If You want to enable PXE for your dhcp server please check the box."), - pre => sub { + name => N("Range of addresses used by dhcp") . "\n\n\n" . N("Select the range of addresses assigned to the workstations by the DHCP service; unless you have special needs, you can safely accept the proposed values. (ie: 192.168.100.20 192.168.100.40)") . "\n\n" . N("If You want to enable PXE in your dhcp server please check the box (Pre-boot eXecution Environment, a protocol that allow computers to boot through the network)."), + pre => sub { $o->{var}{ip1} ||= compute_range(); $o->{var}{ip2} ||= compute_range2(); }, post => \&check, data => [ - { label => N("Lowest IP Address:"), val => \$o->{var}{ip1} }, - { label => N("Highest IP Address:"), val => \$o->{var}{ip2} }, - { label => N("Gateway IP Address:"), val => \$o->{var}{gateway} }, + { label => N("Lowest IP address:"), val => \$o->{var}{ip1} }, + { label => N("Highest IP address:"), val => \$o->{var}{ip2} }, + { label => N("Gateway IP address:"), val => \$o->{var}{gateway} }, { label => N("Enable PXE:"), type => 'bool', val => \$o->{var}{pxe} }, ], next => 'summary' @@ -106,14 +106,14 @@ $o->{pages} = { next => 'ip_range' }, summary => { - name => N("Configuring the DHCP Server") . "\n\n" . N("The wizard collected the following parameters needed to configure your DHCP service:"), + name => N("Configuring the DHCP server") . "\n\n" . N("The wizard collected the following parameters needed to configure your DHCP service:"), pre => sub { $o->{var}{pxeornot} = $o->{var}{pxe} ? N("enabled") : N("disabled"); }, data => [ - { label => N("Lowest IP Address:"), fixed_val => \$o->{var}{ip1} }, - { label => N("Highest IP Address:"), fixed_val => \$o->{var}{ip2} }, - { label => N("Gateway IP Address:"), fixed_val => \$o->{var}{gateway} }, + { label => N("Lowest IP address:"), fixed_val => \$o->{var}{ip1} }, + { label => N("Highest IP address:"), fixed_val => \$o->{var}{ip2} }, + { label => N("Gateway IP address:"), fixed_val => \$o->{var}{gateway} }, { label => N("Interface:"), fixed_val => \$o->{var}{einterface} }, { label => N("Enable PXE:"), fixed_val => \$o->{var}{pxeornot} }, ], @@ -121,7 +121,7 @@ $o->{pages} = { next => 'end' }, end => { - name => N("Congratulations") . "\n\n" . N("The wizard successfully configured the DHCP services of your server."), + name => N("Congratulations") . "\n\n" . N("The wizard successfully configured the DHCP services."), end => 1, next => 0 }, |