diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/httpsserver.pl | 17 | ||||
| -rwxr-xr-x | tests/runtests.pl | 2 |
2 files changed, 13 insertions, 6 deletions
diff --git a/tests/httpsserver.pl b/tests/httpsserver.pl index d255d67e5..19e4061ec 100644 --- a/tests/httpsserver.pl +++ b/tests/httpsserver.pl @@ -25,6 +25,12 @@ my $verbose=0; # set to 1 for debugging my $port = 8433; # just our default, weird enough my $target_port = 8999; # test http-server port + +my $path = `pwd`; +chomp $path; + +my $srcdir=$path; + do { if($ARGV[0] eq "-v") { $verbose=1; @@ -36,16 +42,17 @@ do { $target_port=$ARGV[1]; shift @ARGV; } + elsif($ARGV[0] eq "-d") { + $srcdir=$ARGV[1]; + shift @ARGV; + } elsif($ARGV[0] =~ /^(\d+)$/) { $port = $1; } } while(shift @ARGV); -my $path = `pwd`; -chomp $path; - 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 open(CONF, ">$conffile") || return 1; @@ -62,7 +69,7 @@ print CONF " connect = $target_port "; 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 my $cmd="$stunnel -p $certfile -P $pidfile -d $port -r $target_port 2>/dev/null"; diff --git a/tests/runtests.pl b/tests/runtests.pl index 46c90350f..1c8f761dc 100755 --- a/tests/runtests.pl +++ b/tests/runtests.pl @@ -222,7 +222,7 @@ sub runhttpsserver { } 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); if($verbose) { print "CMD: $cmd\n"; |