1*00b67f09SDavid van Moolenbroek#!/usr/bin/perl 2*00b67f09SDavid van Moolenbroek# 3*00b67f09SDavid van Moolenbroek# Copyright (C) 2004, 2007, 2012 Internet Systems Consortium, Inc. ("ISC") 4*00b67f09SDavid van Moolenbroek# Copyright (C) 2001 Internet Software Consortium. 5*00b67f09SDavid van Moolenbroek# 6*00b67f09SDavid van Moolenbroek# Permission to use, copy, modify, and/or distribute this software for any 7*00b67f09SDavid van Moolenbroek# purpose with or without fee is hereby granted, provided that the above 8*00b67f09SDavid van Moolenbroek# copyright notice and this permission notice appear in all copies. 9*00b67f09SDavid van Moolenbroek# 10*00b67f09SDavid van Moolenbroek# THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH 11*00b67f09SDavid van Moolenbroek# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY 12*00b67f09SDavid van Moolenbroek# AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT, 13*00b67f09SDavid van Moolenbroek# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM 14*00b67f09SDavid van Moolenbroek# LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE 15*00b67f09SDavid van Moolenbroek# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR 16*00b67f09SDavid van Moolenbroek# PERFORMANCE OF THIS SOFTWARE. 17*00b67f09SDavid van Moolenbroek 18*00b67f09SDavid van Moolenbroek# Id: format-options.pl,v 1.5 2007/09/24 04:21:59 marka Exp 19*00b67f09SDavid van Moolenbroek 20*00b67f09SDavid van Moolenbroekprint <<END; 21*00b67f09SDavid van Moolenbroek 22*00b67f09SDavid van MoolenbroekThis is a summary of the named.conf options supported by 23*00b67f09SDavid van Moolenbroekthis version of BIND 9. 24*00b67f09SDavid van Moolenbroek 25*00b67f09SDavid van MoolenbroekEND 26*00b67f09SDavid van Moolenbroek 27*00b67f09SDavid van Moolenbroek# Break long lines 28*00b67f09SDavid van Moolenbroekwhile (<>) { 29*00b67f09SDavid van Moolenbroek chomp; 30*00b67f09SDavid van Moolenbroek s/\t/ /g; 31*00b67f09SDavid van Moolenbroek my $line = $_; 32*00b67f09SDavid van Moolenbroek m!^( *)!; 33*00b67f09SDavid van Moolenbroek my $indent = $1; 34*00b67f09SDavid van Moolenbroek my $comment = ""; 35*00b67f09SDavid van Moolenbroek if ( $line =~ m!//.*! ) { 36*00b67f09SDavid van Moolenbroek $comment = $&; 37*00b67f09SDavid van Moolenbroek $line =~ s!//.*!!; 38*00b67f09SDavid van Moolenbroek } 39*00b67f09SDavid van Moolenbroek my $start = ""; 40*00b67f09SDavid van Moolenbroek while (length($line) >= 79 - length($comment)) { 41*00b67f09SDavid van Moolenbroek $_ = $line; 42*00b67f09SDavid van Moolenbroek # this makes sure that the comment has something in front of it 43*00b67f09SDavid van Moolenbroek $len = 75 - length($comment); 44*00b67f09SDavid van Moolenbroek m!^(.{0,$len}) (.*)$!; 45*00b67f09SDavid van Moolenbroek $start = $start.$1."\n"; 46*00b67f09SDavid van Moolenbroek $line = $indent." ".$2; 47*00b67f09SDavid van Moolenbroek } 48*00b67f09SDavid van Moolenbroek print $start.$line.$comment."\n"; 49*00b67f09SDavid van Moolenbroek} 50