aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xlib/mk-ca-bundle.pl9
1 files changed, 3 insertions, 6 deletions
diff --git a/lib/mk-ca-bundle.pl b/lib/mk-ca-bundle.pl
index 2463626be..4a70f715f 100755
--- a/lib/mk-ca-bundle.pl
+++ b/lib/mk-ca-bundle.pl
@@ -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;