diff options
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/system/vyatta_update_resolv.pl | 109 |
1 files changed, 104 insertions, 5 deletions
diff --git a/scripts/system/vyatta_update_resolv.pl b/scripts/system/vyatta_update_resolv.pl index a725a16e..b35cae4a 100755 --- a/scripts/system/vyatta_update_resolv.pl +++ b/scripts/system/vyatta_update_resolv.pl @@ -30,7 +30,8 @@ use lib "/opt/vyatta/share/perl5/"; use Getopt::Long; my $change_dir = ''; my $modify_dir = ''; -GetOptions("change_dir=s" => \$change_dir, "modify_dir=s" => \$modify_dir); +my $dhclient_script = 0; +GetOptions("change_dir=s" => \$change_dir, "modify_dir=s" => \$modify_dir, "dhclient-script=i" => \$dhclient_script ); use VyattaConfig; @@ -45,11 +46,19 @@ if ($modify_dir ne '') { $vc->setLevel('system'); +my @domains; +my $domain_name = undef; + +if ($dhclient_script == 1) { + $vc->{_active_dir_base} = "/opt/vyatta/config/active/"; + @domains = $vc->returnOrigValues('domain-search domain'); + $domain_name = $vc->returnOrigValue('domain-name'); +} else { + @domains = $vc->returnValues('domain-search domain'); + $domain_name = $vc->returnValue('domain-name'); +} -my @domains = $vc->returnValues('domain-search domain'); -my $domain_name = $vc->returnValue('domain-name'); - -if (@domains > 0 && $domain_name && length($domain_name) > 0) { +if ($dhclient_script == 0 && @domains > 0 && $domain_name && length($domain_name) > 0) { print STDERR "System configuration error. Both \'domain-name\' and \'domain-search\' are specified, but only one of these mutually exclusive parameters is allowed.\n"; print STDERR "System configuration commit aborted due to error(s).\n"; exit(1); @@ -63,6 +72,24 @@ foreach my $domain (@domains) { $doms .= $domain; } +# add domain names received from dhcp client to domain search in /etc/resolv.conf if domain-name not set in CLI +if (!defined($domain_name)) { + my @dhcp_interfaces_resolv_files = `ls /etc/ | grep dhclient.new`; + if ($#dhcp_interfaces_resolv_files >= 0) { + for my $each_file (@dhcp_interfaces_resolv_files) { + chomp $each_file; + my $find_search = `grep search /etc/$each_file 2> /dev/null | wc -l`; + if ($find_search == 1) { + my $search_string = `grep search /etc/$each_file`; + my @dhcp_domains = split(/ /, $search_string, 2); + my $dhcp_domain = $dhcp_domains[1]; + chomp $dhcp_domain; + $doms .= ' ' . $dhcp_domain; + } + } + } +} + my $search = ''; if (length($doms) > 0) { $search = "search\t\t$doms\t\t#line generated by $0\n"; @@ -73,6 +100,78 @@ if ($domain_name && length($domain_name) > 0) { $domain = "domain\t\t$domain_name\t\t#line generated by $0\n"; } +# update /etc/resolv.conf for name-servers received from dhcp client, only done when dhclient-script calls this script +if ($dhclient_script == 1) { + my @current_dhcp_nameservers; + my $restart_ntp = 0; + + # code below to add new name-servers received from dhcp client + + my @dhcp_interfaces_resolv_files = `ls /etc/ | grep dhclient.new`; + if ($#dhcp_interfaces_resolv_files >= 0) { + my $ns_count = 0; + for my $each_file (@dhcp_interfaces_resolv_files) { + chomp $each_file; + my $find_nameserver = `grep nameserver /etc/$each_file 2> /dev/null | wc -l`; + if ($find_nameserver > 0) { + my @nameservers = `grep nameserver /etc/$each_file`; + for my $each_nameserver (@nameservers) { + my @nameserver = split(/ /, $each_nameserver, 2); + my $ns = $nameserver[1]; + chomp $ns; + $current_dhcp_nameservers[$ns_count] = $ns; + $ns_count++; + my $search_ns_in_resolvconf = `grep $ns /etc/resolv.conf 2> /dev/null | wc -l`; + if ($search_ns_in_resolvconf == 0) { + open (APPEND, ">>/etc/resolv.conf") or die "$! error trying to overwrite"; + print APPEND "nameserver\t$ns\t\t#nameserver written by $0\n"; + close (APPEND); + $restart_ntp = 1; + } + } + } + } + } + + # code below to remove old name-servers from /etc/resolv.conf that were not received in this response from dhcp-server + + my @nameservers_dhcp_in_resolvconf = `grep 'nameserver written' /etc/resolv.conf`; + my @dhcp_nameservers_in_resolvconf; + my $count_nameservers_in_resolvconf = 0; + for my $count_dhcp_nameserver (@nameservers_dhcp_in_resolvconf) { + my @dhcp_nameserver = split(/\t/, $count_dhcp_nameserver, 3); + $dhcp_nameservers_in_resolvconf[$count_nameservers_in_resolvconf] = $dhcp_nameserver[1]; + $count_nameservers_in_resolvconf++; + } + if ($#current_dhcp_nameservers < 0) { + for my $dhcpnameserver (@dhcp_nameservers_in_resolvconf) { + my $cmd = "sed -i '/$dhcpnameserver/d' /etc/resolv.conf"; + system($cmd); + $restart_ntp = 1; + } + } else { + for my $dhcpnameserver (@dhcp_nameservers_in_resolvconf) { + my $found = 0; + for my $currentnameserver (@current_dhcp_nameservers) { + if ($dhcpnameserver eq $currentnameserver){ + $found = 1; + } + } + if ($found == 0) { + my $cmd = "sed -i '/$dhcpnameserver/d' /etc/resolv.conf"; + system($cmd); + $restart_ntp = 1; + } + + } + } + if ($restart_ntp == 1) { + # this corresponds to what is done in name-server/node.def as a fix for bug 1300 + my $cmd_ntp_restart = "if [ -f /etc/ntp.conf ] && grep -q 'server' /etc/ntp.conf; then /usr/sbin/invoke-rc.d ntp restart >&/dev/null; fi &"; + system($cmd_ntp_restart); + } +} + # The following will re-write '/etc/resolv.conf' line by line, # replacing the 'search' specifier with the latest values, |