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