Brought OS X section up to date, deprecating the osxsetup module and adding a section...
[privoxy.git] / utils / prepare-configfile.pl
1 #!/usr/local/bin/perl
2
3 use strict;
4 use warnings;
5
6 sub main() {
7     my $hit_header = 0;
8     my $hit_option = 0;
9     my $header_len;
10
11     while (<>) {
12         s/^1\. \@\@TITLE\@\@/     /i;
13
14         if (m/^(\d\.)(\d\.)(\d\.)?\s/) {
15             # Remove the first digit as it's the
16             # config file section in the User Manual.
17             s/^(\d\.)//;
18
19             # If it's a section header, uppercase it.
20             $_ = uc() if (/^\d\.\s+/);
21
22             # Remember to underline it.
23             $hit_header = 1;
24             $header_len = length($_);
25         }
26
27         s/^/#  /;
28
29         # XXX: someone should figure out what this stuff
30         # is supposed to do (and if it really does that).
31         s/^#  #/####/ if /^#  #{12,}/;
32         s/^.*$// if $hit_option;
33         $hit_option = 0;
34         s/^\n//;
35         s/^#\s*-{20,}//;
36         s/ *$//;
37         $hit_option = 1 if s/^#\s+@@//;
38     
39         print;
40
41         if ($hit_header) {
42             # The previous line was a section
43             # header so we better underline it.
44             die "Invalid header length" unless defined $header_len;
45             print "#  " . "=" x $header_len . "\n";
46             $hit_header = 0;
47         };
48     }
49 }
50 main();