mirror/curl
2
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2025-01-18 14:04:30 +08:00
Code Issues Packages Projects Releases Wiki Activity

open pipe to openssl commandline instead of writing into temp file.

Browse Source
This commit is contained in:
Gunter Knauf 2008-02-11 18:52:45 +00:00
parent 44fba11b34
commit 019f6a1926
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,4 +1,4 @@
#!/usr/bin/perl
#!/usr/bin/perl -w
# ***************************************************************************
# * _ _ ____ _
# * Project ___| | | | _ \| |
@ -66,7 +66,6 @@ if ($opt_i) {
}
my $crt = $ARGV[0] || 'ca-bundle.crt';
my $tmp = 'mytmpfile.txt';
my $txt = substr($url, rindex($url, '/') + 1);
$txt =~ s/\?.*//;
@ -164,10 +163,9 @@ while (<TXT>) {
}
close(CRT) or die "Couldn't close $crt: $!";
if ($opt_t) {
open(TMP, ">$tmp") or die "Couldn't open $tmp: $!";
open(TMP, "|$openssl x509 -md5 -fingerprint -text -inform PEM >> $crt") or die "Couldn't open openssl pipe: $!";
print TMP $pem;
close(TMP) or die "Couldn't close $tmp: $!";
system("$openssl x509 -md5 -fingerprint -text -in $tmp -inform PEM >> $crt");
close(TMP) or die "Couldn't close openssl pipe: $!";
}
print "Parsing: $caname\n" if ($opt_v);
$certnum ++;
@ -175,7 +173,6 @@ while (<TXT>) {
}
close(TXT) or die "Couldn't close $txt: $!";
unlink $txt if ($opt_u);
unlink $tmp;
print "Done ($certnum CA certs processed).\n" if (!$opt_q);
exit;