diff options
Diffstat (limited to 'client_wizard/Bind_client.pm')
| -rwxr-xr-x | client_wizard/Bind_client.pm | 7 |
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})/; |