9fb6d11abb
The ARM and the manpages have been converted into Sphinx documentation format. Sphinx uses reStructuredText as its markup language, and many of its strengths come from the power and straightforwardness of reStructuredText and its parsing and translating suite, the Docutils.
44 lines
852 B
Perl
44 lines
852 B
Perl
#!/usr/bin/perl
|
|
#
|
|
# Copyright (C) Internet Systems Consortium, Inc. ("ISC")
|
|
#
|
|
# 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 http://mozilla.org/MPL/2.0/.
|
|
#
|
|
# See the COPYRIGHT file distributed with this work for additional
|
|
# information regarding copyright ownership.
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
if (@ARGV < 1) {
|
|
print STDERR <<'END';
|
|
usage:
|
|
perl rst-zoneopt.pl zoneopt_file
|
|
END
|
|
exit 1;
|
|
}
|
|
|
|
my $FILE = shift;
|
|
|
|
open (FH, "<", $FILE) or die "Can't open $FILE";
|
|
|
|
print "::\n\n";
|
|
|
|
while (<FH>) {
|
|
if (m{// not.*implemented} || m{// obsolete} ||
|
|
m{// ancient} || m{// test.*only})
|
|
{
|
|
next;
|
|
}
|
|
|
|
s{ // not configured}{};
|
|
s{ // may occur multiple times}{};
|
|
s{[[]}{[}g;
|
|
s{[]]}{]}g;
|
|
s{ }{\t}g;
|
|
|
|
print " " . $_;
|
|
}
|