]> granicus.if.org Git - curl/commitdiff
fixed regex to fetch certdata.txt version since it was replaced by CVS (argh!)
authorGunter Knauf <gk@gknw.de>
Fri, 8 Feb 2008 01:58:11 +0000 (01:58 +0000)
committerGunter Knauf <gk@gknw.de>
Fri, 8 Feb 2008 01:58:11 +0000 (01:58 +0000)
added a switch to display certdata.txt version header.

lib/mk-ca-bundle.pl

index f6f63ecd08c6f3cd5ac37b9cd35fc167c210546f..bbfe32c0cc1cae0eb90422fe30282ebcab59310b 100755 (executable)
@@ -41,12 +41,13 @@ my $tmp = 'mytmpfile.txt';
 # If the OpenSSL commandline is not in search path you can configure it here!
 my $openssl = 'openssl';
 
-getopts('hinuv');
+getopts('hilnuv');
 
 if ($opt_h) {
   $0 =~ s/\\/\//g;
-  printf("Usage:\t%s [-i] [-n] [-u] [-v]\n", substr($0, rindex($0, '/') + 1));
+  printf("Usage:\t%s [-i] [-l] [-n] [-u] [-v]\n", substr($0, rindex($0, '/') + 1));
   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";
   print "\t-u\tunlink (remove) certdata.txt after processing\n";
   print "\t-v\tbe verbose and print out processed CAs\n";
@@ -108,8 +109,10 @@ while (<TXT>) {
   if (/\*\*\*\*\* BEGIN LICENSE BLOCK \*\*\*\*\*/) {
     open(CRT, ">>$crt") or die "Couldn't open $crt: $!";
     print CRT;
+    print if ($opt_l);
     while (<TXT>) {
       print CRT;
+      print if ($opt_l);
       last if (/\*\*\*\*\* END LICENSE BLOCK \*\*\*\*\*/);
     }
     close(CRT) or die "Couldn't close $crt: $!";
@@ -117,7 +120,7 @@ while (<TXT>) {
   next if /^#/;
   next if /^\s*$/;
   chomp;
-  if (/(\$RCSfile$\s+\$Revision$\s+\$Date$)\"/) {
+  if (/^CVS_ID\s+\"(.*)\"/) {
     open(CRT, ">>$crt") or die "Couldn't open $crt: $!";
     print CRT "# $1\n";
     close(CRT) or die "Couldn't close $crt: $!";