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.
157 print "\t-b\tbackup an existing version of ca-bundle.crt\n";
278 my $crt = $ARGV[0] || 'ca-bundle.crt';
281 my $stdout = $crt eq '-';
285 my $oldsha1 = oldsha1($crt);
310 exit 0 if -e $crt && !$opt_f;
317 exit 1 if -e $crt || ! -r $txt;
343 open(CRT, '> -') or die "Couldn't open STDOUT: $!\n";
345 open(CRT,">$crt.~") or die "Couldn't open $crt.~: $!\n";
347 print CRT <<EOT;
378 print CRT;
381 print CRT;
389 print CRT "# $1\n";
438 print CRT "\n$caname\n";
445 print CRT $string . "\n";
448 print CRT ("=" x $maxStringLength . "\n");
450 print CRT $pem;
456 $pipe .= " >> $crt.~";
457 close(CRT) or die "Couldn't close $crt.~: $!";
463 CRT, ">>$crt.~") or die "Couldn't open $crt.~: $!";
468 $pipe .= " >> $crt.~";
469 close(CRT) or die "Couldn't close $crt.~: $!";
475 open(CRT, ">>$crt.~") or die "Couldn't open $crt.~: $!";
485 close(CRT) or die "Couldn't close $crt.~: $!\n";
487 if ($opt_b && -e $crt) {
489 while (-e "$crt.~${bk}~") {
492 rename $crt, "$crt.~${bk}~" or die "Failed to create backup $crt.~$bk}~: $!\n";
493 } elsif( -e $crt ) {
494 unlink( $crt ) or die "Failed to remove $crt: $!\n";
496 rename "$crt.~", $crt or die "Failed to rename $crt.~ to $crt: $!\n";
