mirror/curl
2
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2025-01-24 14:15:18 +08:00
Code Issues Packages Projects Releases Wiki Activity

runtests.pl now passes the sourcedir path to the httpsserver.pl script

Browse Source
This commit is contained in:
Daniel Stenberg 2003-01-21 10:14:25 +00:00
parent 90982529fc
commit 5796a1b282
2 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tests/httpsserver.pl
View File

@ -25,6 +25,12 @@ my $verbose=0; # set to 1 for debugging
my $port = 8433; # just our default, weird enough my $port = 8433; # just our default, weird enough
my $target_port = 8999; # test http-server port my $target_port = 8999; # test http-server port
my $path = `pwd`;
chomp $path;
my $srcdir=$path;
do { do {
if($ARGV[0] eq "-v") { if($ARGV[0] eq "-v") {
$verbose=1; $verbose=1;
@ -36,16 +42,17 @@ do {
$target_port=$ARGV[1]; $target_port=$ARGV[1];
shift @ARGV; shift @ARGV;
} }
elsif($ARGV[0] eq "-d") {
$srcdir=$ARGV[1];
shift @ARGV;
}
elsif($ARGV[0] =~ /^(\d+)$/) { elsif($ARGV[0] =~ /^(\d+)$/) {
$port = $1; $port = $1;
} }
} while(shift @ARGV); } while(shift @ARGV);
my $path = `pwd`;
chomp $path;
my $conffile="$path/stunnel.conf"; # stunnel configuration data my $conffile="$path/stunnel.conf"; # stunnel configuration data
my $certfile="$path/stunnel.pem"; # stunnel server certificate my $certfile="$srcdir/stunnel.pem"; # stunnel server certificate
my $pidfile="$path/.https.pid"; # stunnel process pid file my $pidfile="$path/.https.pid"; # stunnel process pid file
open(CONF, ">$conffile") || return 1; open(CONF, ">$conffile") || return 1;
@ -62,7 +69,7 @@ print CONF "
connect = $target_port connect = $target_port
"; ";
close CONF; close CONF;
system("chmod go-rwx $conffile $path/stunnel.pem"); # secure permissions system("chmod go-rwx $conffile $certfile"); # secure permissions
# works only with stunnel versions < 4.00 # works only with stunnel versions < 4.00
my $cmd="$stunnel -p $certfile -P $pidfile -d $port -r $target_port 2>/dev/null"; my $cmd="$stunnel -p $certfile -P $pidfile -d $port -r $target_port 2>/dev/null";

2
tests/runtests.pl
View File

@ -222,7 +222,7 @@ sub runhttpsserver {
} }
my $flag=$debugprotocol?"-v ":""; my $flag=$debugprotocol?"-v ":"";
my $cmd="$perl $srcdir/httpsserver.pl $flag -r $HOSTPORT $HTTPSPORT &"; my $cmd="$perl $srcdir/httpsserver.pl $flag -d $srcdir -r $HOSTPORT $HTTPSPORT &";
system($cmd); system($cmd);
if($verbose) { if($verbose) {
print "CMD: $cmd\n"; print "CMD: $cmd\n";