#!/usr/bin/env perl | |
# Determine if the given curl executable supports the 'openssl' SSL engine | |
if ( $#ARGV != 0 ) | |
{ | |
print "Usage: $0 curl-executable\n"; | |
exit 3; | |
} | |
if (!open(CURL, "@ARGV[0] -s --engine list|")) | |
{ | |
print "Can't get SSL engine list\n"; | |
exit 2; | |
} | |
while( <CURL> ) | |
{ | |
exit 0 if ( /openssl/ ); | |
} | |
close CURL; | |
print "openssl engine not supported\n"; | |
exit 1; |