From cbec6a11b4b0f12cfd025e7ac424e8aa67b4349d Mon Sep 17 00:00:00 2001
From: Arnaud Desmons <adesmons@mandriva.com>
Date: Tue, 3 Sep 2002 15:12:10 +0000
Subject: fill func

---
 client_wizard/client.wiz            |  4 +++-
 client_wizard/scripts/Clientconf.pm | 11 ++++++++++-
 2 files changed, 13 insertions(+), 2 deletions(-)

(limited to 'client_wizard')

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 {
-- 
cgit v1.2.1