summaryrefslogtreecommitdiffstats
path: root/client_wizard/Bind_client.pm
diff options
context:
space:
mode:
Diffstat (limited to 'client_wizard/Bind_client.pm')
-rwxr-xr-xclient_wizard/Bind_client.pm25
1 files changed, 15 insertions, 10 deletions
diff --git a/client_wizard/Bind_client.pm b/client_wizard/Bind_client.pm
index 799d38f7..932155ca 100755
--- a/client_wizard/Bind_client.pm
+++ b/client_wizard/Bind_client.pm
@@ -38,8 +38,14 @@ my $o = {
client_ip => '',
client_name => ''
},
- needed_rpm => [ ],
- defaultimage => "$ENV{__WIZ_HOME__}client_wizard/images/DNS.png"
+ needed_rpm => [ ],
+ 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'))
+ }
+ 1
+ }
};
$o->{pages} = {
@@ -62,18 +68,18 @@ $o->{pages} = {
next => 'summary'
},
dhcp_warning => {
- name => N('Warning'),
- data => [ { label => 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'),
- data => [ { label => 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'),
- data => [ { label => 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 => {
@@ -86,8 +92,7 @@ $o->{pages} = {
next => 'end'
},
end => {
- name => N('Congratulations'),
- data => [ { label => N('The wizard successfully added the client.') } ],
+ name => N('Congratulations') . "\n\n" . N('The wizard successfully added the client.'),
end => 1,
next => 0
},