diff options
Diffstat (limited to 'Build/source/libs/curl/tests/ftpsserver.pl')
-rw-r--r-- | Build/source/libs/curl/tests/ftpsserver.pl | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/Build/source/libs/curl/tests/ftpsserver.pl b/Build/source/libs/curl/tests/ftpsserver.pl new file mode 100644 index 00000000000..b6bb11b036a --- /dev/null +++ b/Build/source/libs/curl/tests/ftpsserver.pl @@ -0,0 +1,48 @@ +#!/usr/bin/perl +# +# $Id: ftpsserver.pl,v 1.2 2001/09/17 08:55:32 bagder Exp $ +# This is the HTTPS server designed for the curl test suite. +# +# It is actually just a layer that runs stunnel properly. + +use strict; + +use stunnel; + +my $stunnel = &checkstunnel; + +if(!$stunnel) { + exit; +} + +# +# -p pemfile +# -P pid dir +# -d listen port +# -r target port + +my $verbose=0; # set to 1 for debugging + +my $port = 8821; # just our default, weird enough +my $ftp = 8921; # test ftp-server port +do { + if($ARGV[0] eq "-v") { + $verbose=1; + } + elsif($ARGV[0] eq "-r") { + $ftp=$ARGV[1]; + shift @ARGV; + } + elsif($ARGV[0] =~ /^(\d+)$/) { + $port = $1; + } +} while(shift @ARGV); + +my $path = `pwd`; +chomp $path; +my $cmd = "$stunnel -p $path/stunnel.pem -P $path/.ftps.pid -d $port -r $ftp"; + +if($verbose) { + print "FTPS server: $cmd\n"; +} +system($cmd); |