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