summaryrefslogtreecommitdiff
path: root/lib/mk-ca-bundle.pl
diff options
context:
space:
mode:
authorGunter Knauf <gk@gknw.de>2008-02-10 01:29:24 +0000
committerGunter Knauf <gk@gknw.de>2008-02-10 01:29:24 +0000
commit08e5c0812f5a8ecef763126b677ccabf1239362b (patch)
treeab27a57e910b2aed00876e05cceb2d95b6af7ab1 /lib/mk-ca-bundle.pl
parenta8c71961e0522a0eb30d5037156d26df96379cbc (diff)
downloadcurl-08e5c0812f5a8ecef763126b677ccabf1239362b.tar.gz
added -b switch to provide a backup functionality for existing ca-bundle.crt file.
Diffstat (limited to 'lib/mk-ca-bundle.pl')
-rwxr-xr-xlib/mk-ca-bundle.pl13
1 files changed, 11 insertions, 2 deletions
diff --git a/lib/mk-ca-bundle.pl b/lib/mk-ca-bundle.pl
index a96c22179..959bbf277 100755
--- a/lib/mk-ca-bundle.pl
+++ b/lib/mk-ca-bundle.pl
@@ -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!
my $openssl = 'openssl';
-getopts('hilnuv');
+getopts('bhilnuv');
if ($opt_h) {
$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-l\tprint license info about certdata.txt\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);
+if ($opt_b && -e $crt) {
+ my $bk = 1;
+ while (-e "$crt.~$bk~") {
+ $bk++;
+ }
+ rename $crt, "$crt.~$bk~";
+}
+
my $currentdate = scalar gmtime() . " UTC";
open(CRT,">$crt") or die "Couldn't open $crt: $!";
print CRT <<EOT;