moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-21 23:58:49 -05:00
Code Issues Releases Wiki Activity

Cosmetics: lowercase non-special subroutine names.

Browse Source
This commit is contained in:
Guenter Knauf 2014-10-26 19:07:35 +01:00
parent a9c0cd4ab3
commit 7be56906d6
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lib/mk-ca-bundle.pl
View File

@ -119,7 +119,7 @@ if(!defined($opt_d)) {
# Use predefined URL or else custom URL specified on command line. # Use predefined URL or else custom URL specified on command line.
my $url = ( defined( $urls{$opt_d} ) ) ? $urls{$opt_d} : $opt_d; my $url = ( defined( $urls{$opt_d} ) ) ? $urls{$opt_d} : $opt_d;
my $curl=`curl -V`; my $curl = `curl -V`;
if ($opt_i) { if ($opt_i) {
print ("=" x 78 . "\n"); print ("=" x 78 . "\n");
@ -135,7 +135,7 @@ if ($opt_i) {
print ("=" x 78 . "\n"); print ("=" x 78 . "\n");
} }
sub WARNING_MESSAGE() { sub warning_message() {
if ( $opt_d =~ m/^risk$/i ) { # Long Form Warning and Exit if ( $opt_d =~ m/^risk$/i ) { # Long Form Warning and Exit
print "Warning: Use of this script may pose some risk:\n"; print "Warning: Use of this script may pose some risk:\n";
print "\n"; print "\n";
@ -182,10 +182,10 @@ sub VERSION_MESSAGE() {
print "${0} version ${version} running Perl ${]} on ${^O}\n"; print "${0} version ${version} running Perl ${]} on ${^O}\n";
} }
WARNING_MESSAGE() unless ($opt_q || $url =~ m/^(ht|f)tps:/i ); warning_message() unless ($opt_q || $url =~ m/^(ht|f)tps:/i );
HELP_MESSAGE() if ($opt_h); HELP_MESSAGE() if ($opt_h);
sub IS_IN_LIST($@) { sub is_in_list($@) {
my $target = shift; my $target = shift;
return defined(List::Util::first { $target eq $_ } @_); return defined(List::Util::first { $target eq $_ } @_);
@ -193,7 +193,7 @@ sub IS_IN_LIST($@) {
# Parses $param_string as a case insensitive comma separated list with optional whitespace # Parses $param_string as a case insensitive comma separated list with optional whitespace
# validates that only allowed parameters are supplied # validates that only allowed parameters are supplied
sub PARSE_CSV_PARAM($$@) { sub parse_csv_param($$@) {
my $description = shift; my $description = shift;
my $param_string = shift; my $param_string = shift;
my @valid_values = @_; my @valid_values = @_;
@ -205,7 +205,7 @@ sub PARSE_CSV_PARAM($$@) {
} split( ',', $param_string ); } split( ',', $param_string );
# Find all values which are not in the list of valid values or "ALL" # Find all values which are not in the list of valid values or "ALL"
my @invalid = grep { !IS_IN_LIST($_,"ALL",@valid_values) } @values; my @invalid = grep { !is_in_list($_,"ALL",@valid_values) } @values;
if ( scalar(@invalid) > 0 ) { if ( scalar(@invalid) > 0 ) {
# Tell the user which parameters were invalid and print the standard help message which will exit # Tell the user which parameters were invalid and print the standard help message which will exit
@ -213,7 +213,7 @@ sub PARSE_CSV_PARAM($$@) {
HELP_MESSAGE(); HELP_MESSAGE();
} }
@values = @valid_values if ( IS_IN_LIST("ALL",@values) ); @values = @valid_values if ( is_in_list("ALL",@values) );
return @values; return @values;
} }
@ -253,17 +253,17 @@ if ( $opt_p !~ m/:/ ) {
} }
(my $included_mozilla_trust_purposes_string, my $included_mozilla_trust_levels_string) = split( ':', $opt_p ); (my $included_mozilla_trust_purposes_string, my $included_mozilla_trust_levels_string) = split( ':', $opt_p );
my @included_mozilla_trust_purposes = PARSE_CSV_PARAM( "trust purpose", $included_mozilla_trust_purposes_string, @valid_mozilla_trust_purposes ); my @included_mozilla_trust_purposes = parse_csv_param( "trust purpose", $included_mozilla_trust_purposes_string, @valid_mozilla_trust_purposes );
my @included_mozilla_trust_levels = PARSE_CSV_PARAM( "trust level", $included_mozilla_trust_levels_string, @valid_mozilla_trust_levels ); my @included_mozilla_trust_levels = parse_csv_param( "trust level", $included_mozilla_trust_levels_string, @valid_mozilla_trust_levels );
my @included_signature_algorithms = PARSE_CSV_PARAM( "signature algorithm", $opt_s, @valid_signature_algorithms ); my @included_signature_algorithms = parse_csv_param( "signature algorithm", $opt_s, @valid_signature_algorithms );
sub SHOULD_OUTPUT_CERT(%) { sub should_output_cert(%) {
my %trust_purposes_by_level = @_; my %trust_purposes_by_level = @_;
foreach my $level (@included_mozilla_trust_levels) { foreach my $level (@included_mozilla_trust_levels) {
# for each level we want to output, see if any of our desired purposes are included # for each level we want to output, see if any of our desired purposes are included
return 1 if ( defined( List::Util::first { IS_IN_LIST( $_, @included_mozilla_trust_purposes ) } @{$trust_purposes_by_level{$level}} ) ); return 1 if ( defined( List::Util::first { is_in_list( $_, @included_mozilla_trust_purposes ) } @{$trust_purposes_by_level{$level}} ) );
} }
return 0; return 0;
@ -412,9 +412,9 @@ while (<TXT>) {
while (<TXT>) { while (<TXT>) {
last if (/^#/); last if (/^#/);
if (/^CKA_TRUST_([A-Z_]+)\s+CK_TRUST\s+CKT_NSS_([A-Z_]+)\s*$/) { if (/^CKA_TRUST_([A-Z_]+)\s+CK_TRUST\s+CKT_NSS_([A-Z_]+)\s*$/) {
if ( !IS_IN_LIST($1,@valid_mozilla_trust_purposes) ) { if ( !is_in_list($1,@valid_mozilla_trust_purposes) ) {
print STDERR "Warning: Unrecognized trust purpose for cert: $caname. Trust purpose: $1. Trust Level: $2\n" if (!$opt_q); print STDERR "Warning: Unrecognized trust purpose for cert: $caname. Trust purpose: $1. Trust Level: $2\n" if (!$opt_q);
} elsif ( !IS_IN_LIST($2,@valid_mozilla_trust_levels) ) { } elsif ( !is_in_list($2,@valid_mozilla_trust_levels) ) {
print STDERR "Warning: Unrecognized trust level for cert: $caname. Trust purpose: $1. Trust Level: $2\n" if (!$opt_q); print STDERR "Warning: Unrecognized trust level for cert: $caname. Trust purpose: $1. Trust Level: $2\n" if (!$opt_q);
} else { } else {
push @{$trust_purposes_by_level{$2}}, $1; push @{$trust_purposes_by_level{$2}}, $1;
@ -422,7 +422,7 @@ while (<TXT>) {
} }
} }
if ( !SHOULD_OUTPUT_CERT(%trust_purposes_by_level) ) { if ( !should_output_cert(%trust_purposes_by_level) ) {
$skipnum ++; $skipnum ++;
} else { } else {
my $encoded = MIME::Base64::encode_base64($data, ''); my $encoded = MIME::Base64::encode_base64($data, '');