Commit 08e5c081 authored by Guenter Knauf's avatar Guenter Knauf
Browse files

added -b switch to provide a backup functionality for existing ca-bundle.crt file.

parent a8c71961

lib/mk-ca-bundle.pl

+11 −2
Original line number Diff line number Diff line
@@ -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;