Home | History | Annotate | Download | only in libtest 
      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;
     20