diff options
Diffstat (limited to 'client_wizard/scripts/Clientconf.pm')
| -rw-r--r-- | client_wizard/scripts/Clientconf.pm | 13 |
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) = @_; |