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

mk-ca-bundle.pl: converted tabs to spaces, deleted trailing spaces

Browse Source
This commit is contained in:
Viktor Szakáts 2014-09-11 16:26:26 +02:00 committed by Daniel Stenberg
parent 748644b72d
commit 82b8b6865c
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -97,7 +97,7 @@ my @valid_signature_algorithms = (
"MD5", "MD5",
"SHA1", "SHA1",
"SHA256", "SHA256",
"SHA512" "SHA512"
); );
$0 =~ s@.*(/|\\)@@; $0 =~ s@.*(/|\\)@@;
@ -129,14 +129,14 @@ if ($opt_i) {
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";
print " 1) Using http is subject to man in the middle attack of certdata content\n"; print " 1) Using http is subject to man in the middle attack of certdata content\n";
print " 2) Default to 'release', but more recent updates may be found in other trees\n"; print " 2) Default to 'release', but more recent updates may be found in other trees\n";
print " 3) certdata.txt file format may change, lag time to update this script\n"; print " 3) certdata.txt file format may change, lag time to update this script\n";
print " 4) Generally unwise to blindly trust CAs without manual review & verification\n"; print " 4) Generally unwise to blindly trust CAs without manual review & verification\n";
print " 5) Mozilla apps use additional security checks aren't represented in certdata\n"; print " 5) Mozilla apps use additional security checks aren't represented in certdata\n";
print " 6) Use of this script will make a security engineer grind his teeth and\n"; print " 6) Use of this script will make a security engineer grind his teeth and\n";
print " swear at you. ;)\n"; print " swear at you. ;)\n";
exit; exit;
} else { # Short Form Warning } else { # Short Form Warning
print "Warning: Use of this script may pose some risk, -d risk for more details.\n"; print "Warning: Use of this script may pose some risk, -d risk for more details.\n";
@ -203,9 +203,9 @@ sub PARSE_CSV_PARAM($$@) {
print "Error: Invalid ", $description, scalar(@invalid) == 1 ? ": " : "s: ", join( ", ", map { "\"$_\"" } @invalid ), "\n"; print "Error: Invalid ", $description, scalar(@invalid) == 1 ? ": " : "s: ", join( ", ", map { "\"$_\"" } @invalid ), "\n";
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;
} }
@ -244,12 +244,12 @@ my @included_signature_algorithms = PARSE_CSV_PARAM( "signature algorithm", $opt
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;
} }
@ -314,7 +314,7 @@ if(!$filedate) {
} }
# get the hash from the download file # get the hash from the download file
my $newsha1= sha1($txt); my $newsha1= sha1($txt);
if($oldsha1 eq $newsha1) { if($oldsha1 eq $newsha1) {
print STDERR "Downloaded file identical to previous run\'s source file. Exiting\n"; print STDERR "Downloaded file identical to previous run\'s source file. Exiting\n";