#!/usr/bin/env perl # Copyright (C) Internet Systems Consortium, Inc. ("ISC") # # SPDX-License-Identifier: MPL-2.0 # # This Source Code Form is subject to the terms of the Mozilla Public # License, v. 2.0. If a copy of the MPL was not distributed with this # file, you can obtain one at https://mozilla.org/MPL/2.0/. # # See the COPYRIGHT file distributed with this work for additional # information regarding copyright ownership. use strict; use warnings; my $lines; while (<>) { chomp; if (/\/\* .Id:.* \*\//) { next; } s/\"/\\\"/g; s/$/\\n\\/; $lines .= $_ . "\n"; } my $mkey = "#define TRUST_ANCHORS \\\n\t\"\\\n" . $lines . "\"\n"; print <