From 3deedd8cfcb55bde89687dca84b3130f1439f62b Mon Sep 17 00:00:00 2001
From: Arnaud Desmons <adesmons@mandriva.com>
Date: Fri, 20 Sep 2002 11:06:03 +0000
Subject: __WIZ_HOME__ fix

---
 client_wizard/scripts/Clientconf.pm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'client_wizard')

diff --git a/client_wizard/scripts/Clientconf.pm b/client_wizard/scripts/Clientconf.pm
index f2454dba..d7bceb64 100644
--- a/client_wizard/scripts/Clientconf.pm
+++ b/client_wizard/scripts/Clientconf.pm
@@ -1,8 +1,8 @@
 #!/usr/bin/perl
 
 package Clientconf;
-require "/home/logarno/soft/wizard_perl/test/common/scripts/Vareqval.pm";
-require "/home/logarno/soft/wizard_perl/test/common/scripts/DrakconnectConf.pm";
+require "__WIZ_HOME__/common/scripts/Vareqval.pm";
+require "__WIZ_HOME__/common/scripts/DrakconnectConf.pm";
 use MDK::Common;
 use strict;
 use standalone;
@@ -25,6 +25,15 @@ sub	check {
     0;
 }
 
+sub	get_root {
+    my	$file = "/etc/sysconfig/named";
+    if (-f $file) {
+	my %mdk = Vareqval->get($file);
+	return $mdk{ROOTDIR};
+    }
+    "";
+}
+
 sub	up_serial {
     my	($file) = @_;
     
-- 
cgit v1.2.1