tests/system/start.pl

21 # Based on the type of server specified, check for port availability, remove
22 # temporary files, start the server, and verify that the server is running.
23 # If a server is specified, start it. Otherwise, start all servers for test.
31 #   --noclean test [server [options]]
33 #   --noclean - Do not cleanup files in server directory
35 #   server - name of the server directory
36 #   options - alternate options for the server
46 my $usage = "usage: $0 [--noclean] [--restart] test-directory [server-directory [server-options]]";
51 my $server = $ARGV[1];
60 if ($server && !-d "$test/$server") {
61 	print "No server directory: \"$test/$server\"\n";
72 # Start the server(s)
74 if ($server) {
75 	if ($server =~ /^ns/) {
76 		&check_ports($server);
78 	&start_server($server, $options);
79 	if ($server =~ /^ns/) {
80 		&verify_server($server);
105 	my $server = shift;
108 	if ($server && $server =~ /(\d+)$/) {
117 			print "$0: could not bind to server addresses, still running?\n";
118 			print "I:server sockets not available\n";
129 	my $server = shift;
136 	my $args_file = $cwd . "/" . $test . "/" . $server . "/" . "named.args";
138 	if ($server =~ /^ns/) {
161 				if (-e "$testdir/$server/named.nosoa");
163 				if (-e "$testdir/$server/named.noaa");
172 	} elsif ($server =~ /^lwresd/) {
189 	} elsif ($server =~ /^ans/) {
191                 if (-e "$testdir/$server/ans.pl") {
208 		print "I:Unknown server type $server\n";
214 	# print "I:starting server %s\n",$server;
216 	chdir "$testdir/$server";
222 	# get the shell to report the pid of the server ($!)
225 	# start the server
229 	# wait up to 14 seconds for the server to start and to write the
230 	# pid file otherwise kill this server and any others that have
235 			print "I:Couldn't start server $server (pid=$child)\n";
250 	my $server = shift;
251 	my $n = $server;
260 			print "I:no response from $server\n";