PageRenderTime 19ms CodeModel.GetById 10ms app.highlight 6ms RepoModel.GetById 1ms app.codeStats 1ms

/contrib/bind9/doc/misc/format-options.pl

https://bitbucket.org/freebsd/freebsd-head/
Perl | 49 lines | 25 code | 5 blank | 19 comment | 3 complexity | 4bd86d47f2e22c6c0b9a418b9dca73e6 MD5 | raw file
 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}