12345678910111213141516171819 |
- #!/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;
|