my $checkstunnel = &checkstunnel;
+my $ssl_version; # set if libcurl is built with SSL support
+
#######################################################################
# variables the command line options may set
#
my $flag=$debugprotocol?"-v ":"";
my $cmd="perl $srcdir/ftpsserver.pl $flag -r $FTPPORT $FTPSPORT &";
- print "CMD: $cmd\n";
system($cmd);
if($verbose) {
print "ftpd stunnel started\n";
"* Host: $hostname",
"* System: $hosttype";
+ if($libcurl =~ /SSL/i) {
+ $ssl_version=1;
+ }
+
if( -r $memdump) {
# if this exists, curl was compiled with memory debugging
# enabled and we shall verify that no memory leaks exist
printf("* Memory debugging: %s\n", $memory_debug?"ON":"OFF");
printf("* HTTPS server: %s\n", $checkstunnel?"ON":"OFF");
printf("* FTPS server: %s\n", $checkstunnel?"ON":"OFF");
+ printf("* libcurl SSL: %s\n", $ssl_version?"ON":"OFF");
print "***************************************** \n";
}
elsif($testnum< 400) {
# 300 - 399 is for HTTPS, two servers!
- if(!$checkstunnel) {
+ if(!$checkstunnel || !$ssl_version) {
# we can't run https tests without stunnel
+ # or if libcurl is SSL-less
return 1;
}
elsif($testnum< 500) {
# 400 - 499 is for FTPS, also two servers
- if(!$checkstunnel) {
+ if(!$checkstunnel || !$ssl_version) {
# we can't run https tests without stunnel
+ # or if libcurl is SSL-less
return 1;
}
if(!$run{'ftp'}) {
print "No tests were performed!\n";
}
if($skipped) {
- print "$skipped tests were skipped due to server problems\n";
+ print "$skipped tests were skipped due to restraints\n";
}