22f0b13f28a7df3b348b18848d0ccd745ea88c3cAndreas Gustafsson#!/usr/bin/perl
22f0b13f28a7df3b348b18848d0ccd745ea88c3cAndreas Gustafsson#
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews# Copyright (C) 2001, 2004, 2007, 2012, 2016 Internet Systems Consortium, Inc. ("ISC")
bf8267aa453e5d2a735ed732a043b77a0b355b20Mark Andrews#
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews# This Source Code Form is subject to the terms of the Mozilla Public
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews# License, v. 2.0. If a copy of the MPL was not distributed with this
0c27b3fe77ac1d5094ba3521e8142d9e7973133fMark Andrews# file, You can obtain one at http://mozilla.org/MPL/2.0/.
22f0b13f28a7df3b348b18848d0ccd745ea88c3cAndreas Gustafsson
f2d8c4a4c3dfa212ddcf5b86d4c5fced4965e52eMark Andrews# $Id: format-options.pl,v 1.5 2007/09/24 04:21:59 marka Exp $
22f0b13f28a7df3b348b18848d0ccd745ea88c3cAndreas Gustafsson
22f0b13f28a7df3b348b18848d0ccd745ea88c3cAndreas Gustafssonprint <<END;
22f0b13f28a7df3b348b18848d0ccd745ea88c3cAndreas Gustafsson
22f0b13f28a7df3b348b18848d0ccd745ea88c3cAndreas GustafssonThis is a summary of the named.conf options supported by
22f0b13f28a7df3b348b18848d0ccd745ea88c3cAndreas Gustafssonthis version of BIND 9.
22f0b13f28a7df3b348b18848d0ccd745ea88c3cAndreas Gustafsson
22f0b13f28a7df3b348b18848d0ccd745ea88c3cAndreas GustafssonEND
22f0b13f28a7df3b348b18848d0ccd745ea88c3cAndreas Gustafsson
22f0b13f28a7df3b348b18848d0ccd745ea88c3cAndreas Gustafsson# Break long lines
22f0b13f28a7df3b348b18848d0ccd745ea88c3cAndreas Gustafssonwhile (<>) {
f2d8c4a4c3dfa212ddcf5b86d4c5fced4965e52eMark Andrews chomp;
22f0b13f28a7df3b348b18848d0ccd745ea88c3cAndreas Gustafsson s/\t/ /g;
f2d8c4a4c3dfa212ddcf5b86d4c5fced4965e52eMark Andrews my $line = $_;
f2d8c4a4c3dfa212ddcf5b86d4c5fced4965e52eMark Andrews m!^( *)!;
f2d8c4a4c3dfa212ddcf5b86d4c5fced4965e52eMark Andrews my $indent = $1;
f2d8c4a4c3dfa212ddcf5b86d4c5fced4965e52eMark Andrews my $comment = "";
f2d8c4a4c3dfa212ddcf5b86d4c5fced4965e52eMark Andrews if ( $line =~ m!//.*! ) {
f2d8c4a4c3dfa212ddcf5b86d4c5fced4965e52eMark Andrews $comment = $&;
f2d8c4a4c3dfa212ddcf5b86d4c5fced4965e52eMark Andrews $line =~ s!//.*!!;
22f0b13f28a7df3b348b18848d0ccd745ea88c3cAndreas Gustafsson }
f2d8c4a4c3dfa212ddcf5b86d4c5fced4965e52eMark Andrews my $start = "";
f2d8c4a4c3dfa212ddcf5b86d4c5fced4965e52eMark Andrews while (length($line) >= 79 - length($comment)) {
f2d8c4a4c3dfa212ddcf5b86d4c5fced4965e52eMark Andrews $_ = $line;
f2d8c4a4c3dfa212ddcf5b86d4c5fced4965e52eMark Andrews # this makes sure that the comment has something in front of it
f2d8c4a4c3dfa212ddcf5b86d4c5fced4965e52eMark Andrews $len = 75 - length($comment);
f2d8c4a4c3dfa212ddcf5b86d4c5fced4965e52eMark Andrews m!^(.{0,$len}) (.*)$!;
f2d8c4a4c3dfa212ddcf5b86d4c5fced4965e52eMark Andrews $start = $start.$1."\n";
f2d8c4a4c3dfa212ddcf5b86d4c5fced4965e52eMark Andrews $line = $indent." ".$2;
f2d8c4a4c3dfa212ddcf5b86d4c5fced4965e52eMark Andrews }
f2d8c4a4c3dfa212ddcf5b86d4c5fced4965e52eMark Andrews print $start.$line.$comment."\n";
22f0b13f28a7df3b348b18848d0ccd745ea88c3cAndreas Gustafsson}