| lh | 9ed821d | 2023-04-07 01:36:19 -0700 | [diff] [blame] | 1 | #!/usr/bin/env perl |
| 2 | # Determine if the given curl executable supports the 'openssl' SSL engine | ||||
| 3 | if ( $#ARGV != 0 ) | ||||
| 4 | { | ||||
| 5 | print "Usage: $0 curl-executable\n"; | ||||
| 6 | exit 3; | ||||
| 7 | } | ||||
| 8 | if (!open(CURL, "@ARGV[0] -s --engine list|")) | ||||
| 9 | { | ||||
| 10 | print "Can't get SSL engine list\n"; | ||||
| 11 | exit 2; | ||||
| 12 | } | ||||
| 13 | while( <CURL> ) | ||||
| 14 | { | ||||
| 15 | exit 0 if ( /openssl/ ); | ||||
| 16 | } | ||||
| 17 | close CURL; | ||||
| 18 | print "openssl engine not supported\n"; | ||||
| 19 | exit 1; | ||||