#!/usr/bin/perl -w

# Process a PEM file into a Javascript array of certificates

$first=1;
$in_cert=0;

print "// cabundle.js - an array of CA certificates. \n";
print "// Generated automatically by build/process-pem.pl.\n\n";

print "var caBundle = [\n";

while (<STDIN>) {
    chomp;
    s/\r//g;
    if (!$in_cert) {
	if (/-+BEGIN CERTIFICATE-+/) {
	    $in_cert=1;
	    if (!$first) {
		print ",\n";
	    } else {
		$first=0;
	    }
	    print '"';
	    print;
	    print '\n';
	}
    } elsif (/-+END CERTIFICATE-+/) {
	$in_cert=0;
	print;
	print '"';
    } else {
	print;
	print '\n';
    }
}

print "];\n";