- splits ca-bundle.crt from mod_ssl into separate certificates

Changed files:
    cert-split -> 1.1

diff --git a/cert-split b/cert-split
new file mode 100644 (file)
index 0000000..ad71079
--- /dev/null
+++ b/cert-split
@@ -0,0 +1,33 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+my $buf="";
+my $crt="";
+my $in=0;
+
+while(<STDIN>) {
+       next if /^#/;
+       if(/^=+$/) {
+               if($in) {
+                       print CRT $crt;
+                       close CRT;
+                       $buf=~s|/|-|g;
+                       $buf=~s|\n||;
+                       open CRT,">$buf.crt";
+                       $buf="";
+                       $crt="";
+               } else {
+                       $buf=~s|/|-|g;
+                       $buf=~s|\n||;
+                       open CRT,">$buf.crt";
+                       $buf="";
+                       $in=1;
+               }
+       } else {
+               $crt.=$buf;
+               $buf=$_;
+       }
+}
+print CRT $crt.$buf;
+close CRT;