diff options
author | Florent Villard <warly@mandriva.com> | 2003-09-05 11:42:20 +0000 |
---|---|---|
committer | Florent Villard <warly@mandriva.com> | 2003-09-05 11:42:20 +0000 |
commit | e4371f18753c98687f71de82810acc79428c51f9 (patch) | |
tree | 0fea71ac6b4e25072165c79f2c9e5e0d4ca3f28d /client_wizard | |
parent | 8dd32f86a6e97fa103be7155f5784c3dd3166308 (diff) | |
download | drakwizard-e4371f18753c98687f71de82810acc79428c51f9.tar drakwizard-e4371f18753c98687f71de82810acc79428c51f9.tar.gz drakwizard-e4371f18753c98687f71de82810acc79428c51f9.tar.bz2 drakwizard-e4371f18753c98687f71de82810acc79428c51f9.tar.xz drakwizard-e4371f18753c98687f71de82810acc79428c51f9.zip |
*** empty log message ***
Diffstat (limited to 'client_wizard')
-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})/; |