diff options
Diffstat (limited to 'contrib/bind9/doc/misc/format-options.pl')
-rw-r--r-- | contrib/bind9/doc/misc/format-options.pl | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/contrib/bind9/doc/misc/format-options.pl b/contrib/bind9/doc/misc/format-options.pl deleted file mode 100644 index c405ee2..0000000 --- a/contrib/bind9/doc/misc/format-options.pl +++ /dev/null @@ -1,49 +0,0 @@ -#!/usr/bin/perl -# -# Copyright (C) 2004, 2007, 2012 Internet Systems Consortium, Inc. ("ISC") -# Copyright (C) 2001 Internet Software Consortium. -# -# Permission to use, copy, modify, and/or distribute this software for any -# purpose with or without fee is hereby granted, provided that the above -# copyright notice and this permission notice appear in all copies. -# -# THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH -# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY -# AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT, -# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM -# LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE -# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR -# PERFORMANCE OF THIS SOFTWARE. - -# $Id: format-options.pl,v 1.5 2007/09/24 04:21:59 marka Exp $ - -print <<END; - -This is a summary of the named.conf options supported by -this version of BIND 9. - -END - -# Break long lines -while (<>) { - chomp; - s/\t/ /g; - my $line = $_; - m!^( *)!; - my $indent = $1; - my $comment = ""; - if ( $line =~ m!//.*! ) { - $comment = $&; - $line =~ s!//.*!!; - } - my $start = ""; - while (length($line) >= 79 - length($comment)) { - $_ = $line; - # this makes sure that the comment has something in front of it - $len = 75 - length($comment); - m!^(.{0,$len}) (.*)$!; - $start = $start.$1."\n"; - $line = $indent." ".$2; - } - print $start.$line.$comment."\n"; -} |