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.pm7
1 files changed, 3 insertions, 4 deletions
diff --git a/client_wizard/Bind_client.pm b/client_wizard/Bind_client.pm
index a29a6b23..fc7996f3 100755
--- a/client_wizard/Bind_client.pm
+++ b/client_wizard/Bind_client.pm
@@ -36,7 +36,8 @@ my $o = {
client_ip => '',
client_name => ''
},
- needed_rpm => [ ]
+ needed_rpm => [ ],
+ defaultimage => "$ENV{__WIZ_HOME__}client_wizard/images/DNS.png"
};
$o->{pages} = {
@@ -54,7 +55,6 @@ $o->{pages} = {
},
post => \&check,
data => [
- { label => '' },
{ label => N('Name of the machine:'), val => \$o->{var}{client_name} },
{ label => N('IP number of the machine:'), val => \$o->{var}{client_ip} },
],
@@ -79,7 +79,6 @@ $o->{pages} = {
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 => '' },
{ label => N('Client IP:'), fixed_val => \$o->{var}{client_ip} },
],
post => \&do_it,
@@ -146,7 +145,7 @@ sub test {
}
sub do_it {
- $::DEBUG and return;
+ $::testing and return;
my $date = `date`;
chomp($date);
my $wiz_ip_net = "$1.$2.$3.0" if $wiz_ip_server =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/;