Lines Matching refs:crt
23 # This Perl script creates a fresh ca-bundle.crt file for use with libcurl.
27 # final ca-bundle.crt file.
167 print "\t-b\tbackup an existing version of ca-bundle.crt\n";
291 my $crt = $ARGV[0] || 'ca-bundle.crt';
294 my $stdout = $crt eq '-';
298 my $oldhash = oldhash($crt);
353 exit 0 if -e $crt && !$opt_f;
362 exit 1 if -e $crt || ! -r $txt;
392 open(CRT, '> -') or die "Couldn't open STDOUT: $!\n";
394 open(CRT,">$crt.~") or die "Couldn't open $crt.~: $!\n";
396 print CRT <<EOT;
428 print CRT;
431 print CRT;
493 print CRT "\n$caname\n";
494 print CRT @precert if($opt_m);
500 print CRT $string . "\n";
503 print CRT ("=" x $maxStringLength . "\n");
505 print CRT $pem;
511 $pipe .= " >> $crt.~";
512 close(CRT) or die "Couldn't close $crt.~: $!";
518 open(CRT, ">>$crt.~") or die "Couldn't open $crt.~: $!";
523 $pipe .= " >> $crt.~";
524 close(CRT) or die "Couldn't close $crt.~: $!";
530 open(CRT, ">>$crt.~") or die "Couldn't open $crt.~: $!";
542 close(CRT) or die "Couldn't close $crt.~: $!\n";
544 if ($opt_b && -e $crt) {
546 while (-e "$crt.~${bk}~") {
549 rename $crt, "$crt.~${bk}~" or die "Failed to create backup $crt.~$bk}~: $!\n";
550 } elsif( -e $crt ) {
551 unlink( $crt ) or die "Failed to remove $crt: $!\n";
553 rename "$crt.~", $crt or die "Failed to rename $crt.~ to $crt: $!\n";
