moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-22 08:08:50 -05:00
Code Issues Releases Wiki Activity

Some cosmetics and simplifies.

Browse Source
This commit is contained in:
Guenter Knauf 2014-10-23 16:27:40 +02:00
parent 2be6941f42
commit 4b7d499e64
1 changed files with 21 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -234,9 +234,8 @@ sub sha1 {
sub oldsha1 { sub oldsha1 {
my ($crt)=@_;
my $sha1 = ""; my $sha1 = "";
open(C, "<$crt") || return 0; open(C, "<$_[0]") || return 0;
while(<C>) { while(<C>) {
chomp; chomp;
if($_ =~ /^\#\# SHA1: (.*)/) { if($_ =~ /^\#\# SHA1: (.*)/) {
@ -286,21 +285,13 @@ print STDERR "Downloading '$txt' ...\n" if (!$opt_q);
if($curl && !$opt_n) { if($curl && !$opt_n) {
my $https = $url; my $https = $url;
$https =~ s/^http:/https:/; $https =~ s/^http:/https:/;
printf "Get certdata over HTTPS with curl!\n", $https; print STDERR "Get certdata over HTTPS with curl!\n" if (!$opt_q);
my $quiet = $opt_q ? "-s" : ""; my $quiet = $opt_q ? "-s" : "";
my @out = `curl -w %{response_code} $quiet -O $https`; my @out = `curl -w %{response_code} $quiet -O $https`;
if(@out && $out[0] == 200) {
my $code = 0;
if(@out) {
$code = $out[0];
}
if($code == 200) {
$fetched = 1; $fetched = 1;
} } else {
else { print STDERR "Failed downloading HTTPS with curl, trying HTTP with LWP\n" if (!$opt_q);
print STDERR "Failed downloading HTTPS with curl, trying HTTP with LWP\n"
unless $opt_q;
} }
} }