mir/kea
2
0
Fork 0
mirror of https://gitlab.isc.org/isc-projects/kea synced 2025-08-30 21:45:37 +00:00
Code Issues Releases Wiki Activity

[1818] Use bindctl to verify server instead of dig

Browse Source
This commit is contained in:
Mukund Sivaraman
2012-04-02 13:45:09 +05:30
parent 0d2ebae0cc
commit a17f42a08f
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
tests/system/start.pl
View File

@@ -53,6 +53,8 @@ if ($server && !-d "$test/$server") {
my $topdir = abs_path("$test/.."); my $topdir = abs_path("$test/..");
my $testdir = abs_path("$test"); my $testdir = abs_path("$test");
my $RUN_BIND10 = $ENV{'RUN_BIND10'}; my $RUN_BIND10 = $ENV{'RUN_BIND10'};
my $RUN_BINDCTL = $ENV{'RUN_BINDCTL'};
my $BINDCTL_CSV_DIR = $ENV{'BINDCTL_CSV_DIR'};
my $NAMED = $ENV{'BIND9_NAMED'}; my $NAMED = $ENV{'BIND9_NAMED'};
my $LWRESD = $ENV{'LWRESD'}; my $LWRESD = $ENV{'LWRESD'};
my $DIG = $ENV{'DIG'}; my $DIG = $ENV{'DIG'};
@@ -211,9 +213,8 @@ sub verify_server {
my $tries = 0; my $tries = 0;
while (1) { while (1) {
my $return = system("$DIG +tcp +noadd +nosea +nostat +noquest +nocomm +nocmd -p 53210 version.bind. chaos txt \@10.53.0.$n > dig.out"); my $return = system("echo \"Stats show\" | $RUN_BINDCTL --csv-file-dir=$BINDCTL_CSV_DIR > bindctl.out");
last if ($return == 0); last if ($return == 0);
print `grep ";" dig.out`;
if (++$tries >= 30) { if (++$tries >= 30) {
print "I:no response from $server\n"; print "I:no response from $server\n";
print "R:FAIL\n"; print "R:FAIL\n";