luo980/curl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

testrun: explicitly set proper IP address for stunnel listen/connect

Browse Source 
Closes #15051
This commit is contained in:
Stefan Eissing 2024-09-26 10:28:38 +02:00 committed by Daniel Stenberg
parent 8289ac1be6
commit f518982775
No known key found for this signature in database
GPG Key ID: 5CC908FDB71E12C2
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/secureserver.pl
View File

@ -201,6 +201,8 @@ $certfile = abs_path($certfile);
my $ssltext = uc($proto) ." SSL/TLS:"; my $ssltext = uc($proto) ." SSL/TLS:";
my $host_ip = ($ipvnum == 6)? '::1' : '127.0.0.1';
#*************************************************************************** #***************************************************************************
# Find out version info for the given stunnel binary # Find out version info for the given stunnel binary
# #
@ -255,6 +257,8 @@ if($stunnel_version < 400) {
if($stunnel_version >= 319) { if($stunnel_version >= 319) {
$socketopt = "-O a:SO_REUSEADDR=1"; $socketopt = "-O a:SO_REUSEADDR=1";
} }
# TODO: we do not use $host_ip in this old version. I simply find
# no documentation how to. But maybe ipv6 is not available anyway?
$cmd = "\"$stunnel\" -p $certfile -P $pidfile "; $cmd = "\"$stunnel\" -p $certfile -P $pidfile ";
$cmd .= "-d $accept_port -r $target_port -f -D $loglevel "; $cmd .= "-d $accept_port -r $target_port -f -D $loglevel ";
$cmd .= ($socketopt) ? "$socketopt " : ""; $cmd .= ($socketopt) ? "$socketopt " : "";
@ -304,8 +308,8 @@ if($stunnel_version >= 400) {
} }
print $stunconf "\n"; print $stunconf "\n";
print $stunconf "[curltest]\n"; print $stunconf "[curltest]\n";
print $stunconf "accept = $accept_port\n"; print $stunconf "accept = $host_ip:$accept_port\n";
print $stunconf "connect = $target_port\n"; print $stunconf "connect = $host_ip:$target_port\n";
if(!close($stunconf)) { if(!close($stunconf)) {
print "$ssltext Error closing file $conffile\n"; print "$ssltext Error closing file $conffile\n";
exit 1; exit 1;
@ -332,8 +336,8 @@ if($stunnel_version >= 400) {
} }
print "\n"; print "\n";
print "[curltest]\n"; print "[curltest]\n";
print "accept = $accept_port\n"; print "accept = $host_ip:$accept_port\n";
print "connect = $target_port\n"; print "connect = $host_ip:$target_port\n";
} }
} }