From 38f51465c98b29cbcd787b2cc9c060d617c66f6d Mon Sep 17 00:00:00 2001 From: Michael Tremer Date: Wed, 29 Jan 2020 11:47:35 +0100 Subject: [PATCH] dns.cgi: Shorten time when checking if DNS is alive For localhost, one second should be plenty Signed-off-by: Michael Tremer --- html/cgi-bin/dns.cgi | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/html/cgi-bin/dns.cgi b/html/cgi-bin/dns.cgi index aac7955ec1..3b47f5ed4b 100755 --- a/html/cgi-bin/dns.cgi +++ b/html/cgi-bin/dns.cgi @@ -434,7 +434,7 @@ sub show_nameservers () { # # Simple send a request to unbound and check if it can resolve the # DNS test server. - my $dns_status_ret = &check_nameserver("127.0.0.1", "$dns_test_server", "UDP"); + my $dns_status_ret = &check_nameserver("127.0.0.1", "$dns_test_server", "UDP", undef, "+timeout=1", "+retry=0"); if ($dns_status_ret eq "2") { $dns_status_string = "$Lang::tr{'working'}"; @@ -841,8 +841,8 @@ sub red_is_active () { } # Function to check a given nameserver against propper work. -sub check_nameserver($$$$) { - my ($nameserver, $record, $proto, $tls_hostname) = @_; +sub check_nameserver($$$$$) { + my ($nameserver, $record, $proto, $tls_hostname, @args) = @_; # Check if the system is online. unless (&red_is_active()) { @@ -851,7 +851,7 @@ sub check_nameserver($$$$) { # Default values. my @command = ("kdig", "+dnssec", - "+bufsize=1232"); + "+bufsize=1232", @args); # Handle different protols. if ($proto eq "TCP") { -- 2.39.2