diff options
| -rw-r--r-- | dns_wizard/scripts/Dnsconf.pm | 37 |
1 files changed, 13 insertions, 24 deletions
diff --git a/dns_wizard/scripts/Dnsconf.pm b/dns_wizard/scripts/Dnsconf.pm index 744f6cc7..f5a00abb 100644 --- a/dns_wizard/scripts/Dnsconf.pm +++ b/dns_wizard/scripts/Dnsconf.pm @@ -2,10 +2,13 @@ package Dnsconf; require "__WIZ_HOME__/common/scripts/Vareqval.pm"; +require "__WIZ_HOME__/common/scripts/DrakconnectConf.pm"; use MDK::Common; use strict; use standalone; +my $o = DrakconnectConf->new(); + sub up_serial { my ($file) = @_; @@ -26,24 +29,13 @@ sub up_serial { } sub do_it { - my %mdk = Vareqval->get("/etc/sysconfig/mdk_serv"); - my $wiz_domain_name = $mdk{wiz_domain_name} if defined $mdk{wiz_domain_name} or - die "wiz_domain_name not in /etc/sysconfig/mdk_serv"; - my $wiz_host_name = $mdk{wiz_host_name} if defined $mdk{wiz_host_name} or - die "wiz_host_name not in /etc/sysconfig/mdk_serv"; - my $device = $mdk{wiz_device} if defined $mdk{wiz_host_name} or - die "wiz_device not in /etc/sysconfig/mdk_serv"; - - my %mdk = Vareqval->get("/etc/sysconfig/network-scripts/ifcfg-".$device); - my $wiz_ip_net = $mdk{NETWORK} if defined $mdk{NETWORK} or - die "NETWORK not in /etc/sysconfig/network-scripts/ifcfg-$device"; - my $wiz_ip_server = $mdk{IPADDR} if defined $mdk{IPADDR} or - die "IPADDR not in /etc/sysconfig/network-scripts/ifcfg-$device"; - - my $s_trunc = "$1.$2.$3" if $wiz_ip_net =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/; + my $wiz_ip_server = $o->get_from_known_dev("IP"); + my $wiz_domain_name = $o->get("DomainName"); + my $wiz_host_name = $o->get("SystemName"); + my $s_trunc = "$1.$2.$3" if $wiz_ip_server =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/; my $ds = "$4" if $wiz_ip_server =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/; my $host = "$1" if $wiz_host_name =~ /(.*?)\..*/; - my $reversnet = "$3$2$1" if $wiz_ip_net =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/; + my $reversnet = "$3$2$1" if $wiz_ip_server =~ /(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/; my $file = "/etc/host.conf"; MDK::Common::cp_af($file, $file.".orig"); @@ -70,12 +62,12 @@ sub do_it { # root.hints $file="/var/named/root.hints"; - MDK::Common::cp_af($file, $file . ".orig"); + -f $file and MDK::Common::cp_af($file, $file . ".orig"); MDK::Common::cp_af("__WIZ_HOME__/dns_wizard/scripts/root.hints.default", $file); # 127.0.0.rev $file="/var/named/127.0.0.rev"; - MDK::Common::cp_af($file, $file . ".orig"); + -f $file and MDK::Common::cp_af($file, $file . ".orig"); output($file, map { s|__hname__|$wiz_host_name|g; $_; @@ -84,7 +76,7 @@ sub do_it { # $ipnet.rev $file = "/var/named/$s_trunc.rev"; - MDK::Common::cp_af($file, $file.".orig"); + -f $file and MDK::Common::cp_af($file, $file.".orig"); output($file, map { s|__dname__|$wiz_domain_name|g; s|__hname__|$wiz_host_name|g; @@ -96,7 +88,7 @@ sub do_it { # $domain.db $file = "/var/named/$wiz_domain_name.db"; - MDK::Common::cp_af($file, $file.".orig"); + -f $file and MDK::Common::cp_af($file, $file.".orig"); output($file, map { s|__dname__|$wiz_domain_name|g; s|__hname__|$wiz_host_name|g; @@ -109,15 +101,12 @@ sub do_it { #resolv.conf $file = "/etc/resolv.conf"; - MDK::Common::cp_af($file, $file.".orig"); + -f $file and MDK::Common::cp_af($file, $file.".orig"); open(NEW, "> $file"); print NEW "domain $wiz_domain_name\n"; print NEW "nameserver $wiz_ip_server\n"; system("/sbin/chkconfig --level 235 named on"); system("/etc/rc.d/init.d/named restart"); - %mdk = Vareqval->get("/etc/sysconfig/mdk_serv"); - $mdk{wiz_caching_dns} = "1"; - Vareqval->commit("/etc/sysconfig/mdk_serv", \%mdk); 10; } |