← Back to branch summary

~andreserl/ubuntu/lucid/bind9/bind9-apport-533601

« back to all changes in this revision

Viewing changes to doc/misc/format-options.pl

  • Committer: Bazaar Package Importer
  • Author(s): LaMont Jones, LaMont Jones, Internet Software Consortium, Inc, localization folks
  • Date: 2008-08-02 14:20:20 UTC
  • mfrom: (1.2.1 upstream) (6.1.24 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080802142020-l1hon9jy8lbbjxmg
http://bugs.debian.org/149259
http://bugs.debian.org/492418
http://bugs.debian.org/493392
http://bugs.debian.org/492564
http://bugs.debian.org/490027
http://bugs.debian.org/492949
http://bugs.debian.org/492425
http://bugs.debian.org/491369
http://bugs.debian.org/492048
http://bugs.debian.org/490630
http://bugs.debian.org/492587
[LaMont Jones]

* default to using resolvconf if it is installed
* fix sonames and dependencies.  Closes: #149259, #492418
* Do not build-depend libcap2-dev on non-linux.  Closes: #493392
* drop unused query-loc manpage.  Closes: #492564
* lwresd: Deliver /etc/bind directory.  Closes: #490027
* fix query-source comment in default install

[Internet Software Consortium, Inc]

* 9.5.0-P2.  Closes: #492949

[localization folks]

* l10n: Spanish debconf translation.  Closes: #492425 (Ignacio Mondino)
* l10n: Swedish debconf templates.  Closes: #491369 (Martin Ågren)
* l10n: Japanese debconf translations.  Closes: #492048 (Hideki Yamane
  (Debian-JP))
* l10n: Finnish translation.  Closes: #490630 (Esko Arajärvi)
* l10n: Italian debconf translations.  Closes: #492587 (Alessandro Vietta)

Show diffs side-by-side

added added

removed removed

Lines of Context:
doc/misc/format-options.pl
1
1
#!/usr/bin/perl
2
2
#
3
 
# Copyright (C) 2004  Internet Systems Consortium, Inc. ("ISC")
 
3
# Copyright (C) 2004, 2007  Internet Systems Consortium, Inc. ("ISC")
4
4
# Copyright (C) 2001  Internet Software Consortium.
5
5
#
6
 
# Permission to use, copy, modify, and distribute this software for any
 
6
# Permission to use, copy, modify, and/or distribute this software for any
7
7
# purpose with or without fee is hereby granted, provided that the above
8
8
# copyright notice and this permission notice appear in all copies.
9
9
#
15
15
# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
16
16
# PERFORMANCE OF THIS SOFTWARE.
17
17
 
18
 
# $Id: format-options.pl,v 1.1.206.1 2004/03/06 13:16:19 marka Exp $
 
18
# $Id: format-options.pl,v 1.5 2007/09/24 04:21:59 marka Exp $
19
19
 
20
20
print <<END;
21
21
 
26
26
 
27
27
# Break long lines
28
28
while (<>) {
 
29
        chomp;
29
30
        s/\t/        /g;
30
 
        if (length >= 79) {
31
 
                m!^( *)!;
32
 
                my $indent = $1;
33
 
                s!^(.{0,75}) (.*)$!\1\n$indent    \2!;
34
 
        }
35
 
        print;
 
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";
36
49
}