runtests: log minimal and maximal used port numbers

This commit is contained in:
Marc Hoersken 2020-03-09 17:12:35 +01:00
parent e96fe70cab
commit 4d43d06143
No known key found for this signature in database
GPG Key ID: 61E03CBED7BC859E
1 changed files with 7 additions and 0 deletions

View File

@ -120,6 +120,8 @@ my $CLIENTIP="127.0.0.1"; # address which curl uses for incoming connections
my $CLIENT6IP="[::1]"; # address which curl uses for incoming connections
my $base = 8990; # base port number
my $minport; # minimum used port number
my $maxport; # maximum used port number
my $HTTPPORT; # HTTP server port
my $HTTP6PORT; # HTTP IPv6 server port
@ -3031,6 +3033,7 @@ sub checksystem {
$run_event_based?"event-based ":"");
logmsg sprintf("%s\n", $libtool?"Libtool ":"");
logmsg ("* Seed: $randseed\n");
logmsg ("* Port range: $minport-$maxport\n");
if($verbose) {
logmsg "* Ports:\n";
@ -5324,6 +5327,8 @@ if ($gdbthis) {
}
}
$minport = $base; # original base port number
$HTTPPORT = $base++; # HTTP server port
$HTTPSPORT = $base++; # HTTPS (stunnel) server port
$FTPPORT = $base++; # FTP server port
@ -5355,6 +5360,8 @@ $SMBSPORT = $base++; # SMBS port
$NEGTELNETPORT = $base++; # TELNET port with negotiation
$HTTPUNIXPATH = 'http.sock'; # HTTP server Unix domain socket path
$maxport = $base-1; # updated base port number
#######################################################################
# clear and create logging directory:
#