view release on metacpan or  search on metacpan

utils/minstren  view on Meta::CPAN

#

# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# minstren
# Copyright (c) 2001, 2002 John Pliam (pliam@atbash.com)
# This is open-source software.
# See file 'COPYING' in original distribution for complete details.
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #

use Getopt::Std;
use Data::Dumper;

$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;

$usage = "usage: $0 [-c <cipher_string>]\n";
getopts('c:') || die $usage;

$ciphercmd =  '/usr/bin/openssl ciphers -v';

# common exclusion tags for SSLCipherSuite
@nots = qw(ADH EXP EXP56 DES LOW MEDIUM SSLv2 RC4);

# form typical cipher suites