summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--client_wizard/scripts/Clientconf.pm13
1 files changed, 11 insertions, 2 deletions
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) = @_;