diff options
| -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 c850bc9c..f92a2c81 100755 --- a/dhcp_wizard/Dhcp.pm +++ b/dhcp_wizard/Dhcp.pm @@ -47,12 +47,12 @@ my $o = { needed_rpm => [ 'dhcp-server' ], defaultimage => "/usr/share/wizards/dhcp_wizard/images/DHCP.png" }; - +$::Wizard_pix_up = "/usr/share/mcc/themes/default/dhcp_server-mdk.png"; $o->{pages} = { welcome => { name => N("DHCP Wizard") . "\n\n\n" . N("DHCP is a service that automatically assigns networking addresses to your workstations.") . "\n\n\n" . N("This wizard will help you configuring the DHCP services of your server."), no_back => 1, - next => 'interface' + next => 'interface', no_back => 1, }, interface => { name => N("Interface the dhcp server must listen to"), @@ -66,7 +66,7 @@ $o->{pages} = { data => [ { list => [ keys %{$wiz->{net}{itf}} ], val => \$o->{var}{interface} }, ], - next => 'ip_range' + next => 'ip_range', no_back => 1, }, 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 in your dhcp server please check the box (Pre-boot eXecution Environment, a protocol that allows computers to boot through the network)."), @@ -84,27 +84,27 @@ $o->{pages} = { { label => N("Gateway IP address:"), val => \$o->{var}{gateway} }, { label => N("Enable PXE:"), type => 'bool', val => \$o->{var}{pxe} }, ], - next => 'summary' + next => 'summary', }, dhcp_warning => { name => N("Warning") . "\n\n" . N("You are in dhcp, server may not work with your configuration."), ignore => 1, - next => 'ip_range' + next => 'ip_range', }, ip_range_error => { name => N("Error") . "\n\n" . N("The IP range specified is not correct."), ignore => 1, - next => 'ip_range' + next => 'ip_range', }, ip_range_warning => { name => N("Warning") . "\n\n" . N("The IP range specified is not in server address range."), ignore => 1, - next => 'summary' + next => 'summary', }, server_in_range => { name => N("Error") . "\n\n" . N("The IP of the server must not be in range."), ignore => 1, - next => 'ip_range' + 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:"), @@ -119,12 +119,12 @@ $o->{pages} = { { label => N("Enable PXE:"), fixed_val => \$o->{var}{pxeornot} }, ], post => \&do_it, - next => 'end' + next => 'end', }, end => { name => N("Congratulations") . "\n\n" . N("The wizard successfully configured the DHCP services."), end => 1, - next => 0 + next => 0, no_back => 1, }, error_end => { name => N("Failed"), |