mirror of
https://github.com/curl/curl.git
synced 2025-01-30 14:22:33 +08:00
added -b switch to provide a backup functionality for existing ca-bundle.crt file.
This commit is contained in:
parent
a8c71961e0
commit
08e5c0812f
@ -39,11 +39,12 @@ my $url = 'http://lxr.mozilla.org/seamonkey/source/security/nss/lib/ckfw/builtin
|
|||||||
# If the OpenSSL commandline is not in search path you can configure it here!
|
# If the OpenSSL commandline is not in search path you can configure it here!
|
||||||
my $openssl = 'openssl';
|
my $openssl = 'openssl';
|
||||||
|
|
||||||
getopts('hilnuv');
|
getopts('bhilnuv');
|
||||||
|
|
||||||
if ($opt_h) {
|
if ($opt_h) {
|
||||||
$0 =~ s/\\/\//g;
|
$0 =~ s/\\/\//g;
|
||||||
printf("Usage:\t%s [-i] [-l] [-n] [-u] [-v] [<outputfile>]\n", substr($0, rindex($0, '/') + 1));
|
printf("Usage:\t%s [-b] [-i] [-l] [-n] [-u] [-v] [<outputfile>]\n", substr($0, rindex($0, '/') + 1));
|
||||||
|
print "\t-b\tbackup an existing version of ca-bundle.crt\n";
|
||||||
print "\t-i\tprint version info about used modules\n";
|
print "\t-i\tprint version info about used modules\n";
|
||||||
print "\t-l\tprint license info about certdata.txt\n";
|
print "\t-l\tprint license info about certdata.txt\n";
|
||||||
print "\t-n\tno download of certdata.txt (to use existing)\n";
|
print "\t-n\tno download of certdata.txt (to use existing)\n";
|
||||||
@ -80,6 +81,14 @@ if (!$opt_n) {
|
|||||||
|
|
||||||
die "File '$txt' doesnt exist - dont use -n switch to download the file!\n" if (!-e $txt);
|
die "File '$txt' doesnt exist - dont use -n switch to download the file!\n" if (!-e $txt);
|
||||||
|
|
||||||
|
if ($opt_b && -e $crt) {
|
||||||
|
my $bk = 1;
|
||||||
|
while (-e "$crt.~$bk~") {
|
||||||
|
$bk++;
|
||||||
|
}
|
||||||
|
rename $crt, "$crt.~$bk~";
|
||||||
|
}
|
||||||
|
|
||||||
my $currentdate = scalar gmtime() . " UTC";
|
my $currentdate = scalar gmtime() . " UTC";
|
||||||
open(CRT,">$crt") or die "Couldn't open $crt: $!";
|
open(CRT,">$crt") or die "Couldn't open $crt: $!";
|
||||||
print CRT <<EOT;
|
print CRT <<EOT;
|
||||||
|
Loading…
Reference in New Issue
Block a user