# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
# PERFORMANCE OF THIS SOFTWARE.
-# $Id$
-
# Framework for starting test servers.
# Based on the type of server specified, check for port availability, remove
# temporary files, start the server, and verify that the server is running.
use Cwd 'abs_path';
use Getopt::Long;
-# Option handling
-# --noclean test [server [options]]
+# Usage:
+# perl start.pl [--noclean] --restart] [--port port] test [server [options]]
+#
+# --noclean Do not cleanup files in server directory.
+#
+# --restart Indicate that the server is being restarted, so get the
+# server to append output to an existing log file instead of
+# starting a new one.
+#
+# --port port Specify the default port being used by the server to answer
+# queries (default 5300). This script will interrogate the
+# server on this port to see if it is running. (Note: for
+# "named" nameservers, this can be overridden by the presence
+# of the file "named.port" in the server directory containing
+# the number of the query port.)
+#
+# test Name of the test directory.
+#
+# server Name of the server directory. This will be of the form
+# "nsN" or "ansN", where "N" is an integer between 1 and 8.
+# If not given, the script will start all the servers in the
+# test directory.
#
-# --noclean - Do not cleanup files in server directory
-# test - name of the test directory
-# server - name of the server directory
-# options - alternate options for the server
-# NOTE: options must be specified with '-- "<option list>"',
-# for instance: start.pl . ns1 -- "-c n.conf -d 43"
-# ALSO NOTE: this variable will be filled with the
-# contents of the first non-commented/non-blank line of args
-# in a file called "named.args" in an ns*/ subdirectory only
-# the FIRST non-commented/non-blank line is used (everything
-# else in the file is ignored. If "options" is already set,
-# then "named.args" is ignored.
-
-my $usage = "usage: $0 [--noclean] [--restart] test-directory [server-directory [server-options]]";
+# options Alternate options for the server,
+#
+# NOTE: options must be specified with '-- "<option list>"',
+# for instance: start.pl . ns1 -- "-c n.conf -d 43"
+#
+# ALSO NOTE: this variable will be filled with the contents
+# of the first non-commented/non-blank line of args in a file
+# called "named.args" in an ns*/ subdirectory. Only the FIRST
+# non-commented/non-blank line is used (everything else in the
+# file is ignored. If "options" is already set, then
+# "named.args" is ignored.
+
+my $usage = "usage: $0 [--noclean] [--restart] [--port <port>] test-directory [server-directory [server-options]]";
my $noclean = '';
my $restart = '';
my $defaultport = 5300;
-GetOptions('noclean' => \$noclean, 'restart' => \$restart, 'p=i' => \$defaultport);
+
+GetOptions('noclean' => \$noclean, 'restart' => \$restart, 'port=i' => \$defaultport) or die "$usage\n";
+
my $test = $ARGV[0];
my $server = $ARGV[1];
my $options = $ARGV[2];
if (!$test) {
- print "$usage\n";
+ die "$usage\n";
}
if (!-d $test) {
- print "No test directory: \"$test\"\n";
+ die "No test directory: \"$test\"\n";
}
if ($server && !-d "$test/$server") {
- print "No server directory: \"$test/$server\"\n";
+ die "No server directory: \"$test/$server\"\n";
}
# Global variables
} elsif ($server =~ /^ans/) {
$cleanup_files = "{ans.run}";
if (-e "$testdir/$server/ans.py") {
- $command = "$PYTHON -u ans.py 10.53.0.$' 5300";
+ $command = "$PYTHON -u ans.py 10.53.0.$' $defaultport";
} elsif (-e "$testdir/$server/ans.pl") {
$command = "$PERL ans.pl";
} else {
sub verify_server {
my $server = shift;
my $n = $server;
- my $port = 5300;
+ my $port = $defaultport;
my $tcp = "+tcp";
$n =~ s/^ns//;
# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
# PERFORMANCE OF THIS SOFTWARE.
-# $Id: stop.pl,v 1.12 2007/06/19 23:47:00 tbox Exp $
-
# Framework for stopping test servers
# Based on the type of server specified, signal the server to stop, wait
# briefly for it to die, and then kill it if it is still alive.
use strict;
use Cwd 'abs_path';
+use Getopt::Long;
-# Option handling
-# [--use-rndc] test [server]
+# Usage:
+# perl stop.pl [[-use-rndc] [--port port] test [server]
#
-# test - name of the test directory
-# server - name of the server directory
-
-my $usage = "usage: $0 [--use-rndc] test-directory [server-directory]";
-my $use_rndc;
+# --use-rndc Attempt to stop the server via the "rndc stop" command.
+#
+# --port port Only relevant if --use-rndc is specified, this sets the
+# command port over which the attempt should be made. If
+# not specified, port 9953 is used.
+#
+# test Name of the test directory,
+#
+# server Name of the server directory
-while (@ARGV && $ARGV[0] =~ /^-/) {
- my $opt = shift @ARGV;
- if ($opt eq '--use-rndc') {
- $use_rndc = 1;
- } else {
- die "$usage\n";
- }
-}
+my $usage = "usage: $0 [--use-rndc] [--port port] test-directory [server-directory]";
-my $test = $ARGV[0];
-my $server = $ARGV[1];
+my $use_rndc = 0;
+my $port = 9953;
+GetOptions('use-rndc' => \$use_rndc, 'port=i' => \$port) or die "$usage\n";
my $errors = 0;
+my $test = $ARGV[0];
+my $server = $ARGV[1];
die "$usage\n" unless defined($test);
die "No test directory: \"$test\"\n" unless (-d $test);
die "No server directory: \"$server\"\n" if (defined($server) && !-d "$test/$server");
my $ip = "10.53.0.$1";
# Ugly, but should work.
- system("$ENV{RNDC} -c $testdir/../common/rndc.conf -s $ip -p 9953 stop | sed 's/^/I:$server /'");
+ system("$ENV{RNDC} -c $testdir/../common/rndc.conf -s $ip -p $port stop | sed 's/^/I:$server /'");
return;
}
projects / thirdparty / bind9.git / commitdiff
