summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--client_wizard/client.wiz26
-rw-r--r--client_wizard/scripts/Clientconf.pm9
2 files changed, 28 insertions, 7 deletions
diff --git a/client_wizard/client.wiz b/client_wizard/client.wiz
index 13611bc3..65475c8d 100644
--- a/client_wizard/client.wiz
+++ b/client_wizard/client.wiz
@@ -3,11 +3,11 @@
<Wizard
name="general"
- libScript="__WIZ_HOME__/common/scripts/functions.sh"
+ libScript="/home/logarno/soft/wizard_perl/test/common/scripts/functions.sh"
wizardTitle="DNS Wizard (add client)"
imagePosition="top"
- defaultImage="__WIZ_HOME__/client_wizard/images/DNS"
- perlModule="__WIZ_HOME__/client_wizard/scripts/Clientconf.pm"
+ defaultImage="/home/logarno/soft/wizard_perl/test/client_wizard/images/DNS"
+ perlModule="/home/logarno/soft/wizard_perl/test/client_wizard/scripts/Clientconf.pm"
rpm="bind"
>
@@ -30,6 +30,7 @@
nextFinish="false"
canBack="true"
canCancel="true"
+ func="check"
>
<Target
@@ -45,7 +46,7 @@
</Target>
<Target
- targetName="error_need_net"
+ targetName="error_dhcp"
jumpIndex="2"
>
</Target>
@@ -77,6 +78,21 @@
>
</Info>
</Page>
+ <Page
+ helpURL="file:/usr/share/doc/mandrake/${LANG}/ref.html/wiz-web.html"
+ name="error_dhcp"
+ jumpPage="CLIENT"
+ executionLevel="NORMAL"
+ nextFinish="false"
+ canBack="true"
+ canCancel="true"
+ >
+
+ <Info
+ helpText="Warning\nYou are in dhcp, server may not work with your configuration."
+ >
+ </Info>
+ </Page>
<Page
helpURL="file:/usr/share/doc/mandrake/${LANG}/ref.html/wiz.html"
@@ -195,7 +211,7 @@
<Page
helpURL="file:/usr/share/doc/mandrake/${LANG}/ref.html/wiz.html"
name="error_need_net"
- subWizard="__WIZ_HOME__/server_wizard/server.wiz"
+ subWizard="/home/logarno/soft/wizard_perl/test/server_wizard/server.wiz"
executionLevel="NORMAL"
nextFinish="false"
canBack="false"
diff --git a/client_wizard/scripts/Clientconf.pm b/client_wizard/scripts/Clientconf.pm
index 44a72482..f2454dba 100644
--- a/client_wizard/scripts/Clientconf.pm
+++ b/client_wizard/scripts/Clientconf.pm
@@ -1,8 +1,8 @@
#!/usr/bin/perl
package Clientconf;
-require "__WIZ_HOME__/common/scripts/Vareqval.pm";
-require "__WIZ_HOME__/common/scripts/DrakconnectConf.pm";
+require "/home/logarno/soft/wizard_perl/test/common/scripts/Vareqval.pm";
+require "/home/logarno/soft/wizard_perl/test/common/scripts/DrakconnectConf.pm";
use MDK::Common;
use strict;
use standalone;
@@ -19,6 +19,11 @@ sub ip {
$wiz_ip_server;
}
+sub check {
+ $> and return 1;
+ $o->is_dhcp() and return 2;
+ 0;
+}
sub up_serial {
my ($file) = @_;