summaryrefslogtreecommitdiffstats
path: root/client_wizard
diff options
context:
space:
mode:
Diffstat (limited to 'client_wizard')
-rw-r--r--client_wizard/client.wiz4
-rw-r--r--client_wizard/scripts/Clientconf.pm11
2 files changed, 13 insertions, 2 deletions
diff --git a/client_wizard/client.wiz b/client_wizard/client.wiz
index 560ce447..cc640354 100644
--- a/client_wizard/client.wiz
+++ b/client_wizard/client.wiz
@@ -4,7 +4,7 @@
<Wizard
name="general"
libScript="__WIZ_HOME__/common/scripts/functions.sh"
- wizardTitle="Client wizard"
+ wizardTitle="DNS client wizard"
imagePosition="top"
defaultImage="__WIZ_HOME__/client_wizard/images/DNS"
perlModule="__WIZ_HOME__/client_wizard/scripts/Clientconf.pm"
@@ -126,6 +126,7 @@
name="wiz_client_name"
variableName="wiz_client_name"
helpText="Name of the machine:"
+ fillfunc="name"
editable="true"
>
</Freetext>
@@ -134,6 +135,7 @@
name="wiz_client_ip"
variableName="wiz_client_ip"
helpText="IP number of the machine:"
+ fillfunc="ip"
editable="true"
>
</Freetext>
diff --git a/client_wizard/scripts/Clientconf.pm b/client_wizard/scripts/Clientconf.pm
index 6c567a16..44a72482 100644
--- a/client_wizard/scripts/Clientconf.pm
+++ b/client_wizard/scripts/Clientconf.pm
@@ -11,6 +11,15 @@ my $o = DrakconnectConf->new();
my $wiz_domain_name = $o->get("DomainName");
my $wiz_ip_server = $o->get_from_known_dev("IP");
+sub name {
+ $o->get("SystemName");
+}
+
+sub ip {
+ $wiz_ip_server;
+}
+
+
sub up_serial {
my ($file) = @_;
@@ -43,7 +52,7 @@ sub test {
!$s_trunc and return 1;
($s_trunc != $sc_trunc) and return 1;
($dc == $ds || $dc < 0 || $dc > 255) and return 1;
- return 10;
+ 10;
}
sub do_it {